workgroups2 Changeset - 31adc211a1c3

Changeset - 31adc211a1c3

Parent rev.

Child rev.

[Not reviewed]

0 2 0

Sergey Pashinin - 11 years ago 2014-08-31 12:47:55
sergey@pashinin.com

minor changes

2 files changed with 4 insertions and 4 deletions:

src/workgroups2.el

tests/workgroups2-tests.el

0 comments (0 inline, 0 general)

src/workgroups2.el

➞

Show inline comments

@@ @@ -4145,7 +4145,7 @@ nil otherwise." @@
   (and (not (wg-dups-p (wg-buf-list) :key 'wg-buf-uid :test 'string=))
        (not (wg-dups-p (wg-workgroup-list) :key 'wg-workgroup-uid :test 'string=))))
-(defun wg-find-session-file (filename)
+(defun wg-open-session (filename)
   "Load a session visiting FILENAME, creating one if none already exists."
   (interactive "FFind session file: ")
   (cond ((file-exists-p filename)
@@ @@ -4176,7 +4176,7 @@ nil otherwise." @@
          (wg-query-and-save-if-modified)
          (wg-reset-internal (wg-make-session :file-name filename))
          (wg-fontified-message (:cmd "(New Workgroups session file)")))))
-(defalias 'wg-open-session 'wg-find-session-file)
+(defalias 'wg-find-session-file 'wg-open-session)
 (defun wg-write-sexp-to-file (sexp file)
   "Write the printable representation of SEXP to FILE."

tests/workgroups2-tests.el

➞

Show inline comments

@@ @@ -106,8 +106,7 @@ @@
 (defmacro test-pickel (value)
   "Test `wg-pickel' `wg-unpickel' on VALUE."
   `(progn
      (eq (wg-unpickel (wg-pickel ,value)) ,value)))
   `(eq (wg-unpickel (wg-pickel ,value)) ,value))
 (ert-deftest 110-wg-pickel ()
   (test-pickel 123)
@@ @@ -117,6 +116,7 @@ @@
   (test-pickel (point-marker))    ; #<marker at 3427 in tests.el>
   (test-pickel (make-marker))     ; #<marker in no buffer>
   (test-pickel (list 'describe-variable 'help-xref-stack-item (get-buffer "*Help*")))
   ;;(test-pickel (window-tree))
   ;; TODO:
   ;;(test-pickel (current-window-configuration))
+  )

0 comments (0 inline, 0 general)