workgroups2 Changeset - a6c5da2727f5

Changeset - a6c5da2727f5

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-24 08:56:36
sergey@pashinin.com

minor fixes

1 file changed with 4 insertions and 5 deletions:

src/workgroups2.el

0 comments (0 inline, 0 general)

src/workgroups2.el

➞

Show inline comments

@@ @@ -1157,16 +1157,15 @@ Saves some variables to restore a BUFFER later." @@
      (eval `(add-to-list 'wg-special-buffer-serdes-functions
                          ',(intern (format "wg-serialize-%s-buffer" mode-str)) t))
      ))
 (defvar wg-current-session nil "Current session object.")
 (defun wg-current-session (&optional noerror)
-  "Return `wg-current-session' or scream unless NOERROR."
+  "Return `wg-current-session' or error unless NOERROR."
   (or wg-current-session
       (unless noerror
         (error "No session is defined"))))
       (unless noerror (error "No session is defined"))))
 ;; locate-dominating-file
 (defun wg-get-first-existing-dir (&optional dir)
   "Test if DIR exists and return it.
 If not - try to go to the parent dir and do the same."
   (let* ((d (or dir default-directory)))
@@ @@ -2403,14 +2402,14 @@ ignored. @@
 (defun wg-restore-frames ()
   "Try to recreate opened frames, take info from session's 'frame-list parameter."
   (interactive)
   (delete-other-frames)
   (when (wg-current-session t)
     (let ((fl (wg-session-parameter (wg-current-session t) 'frame-list nil))
   (awhen (wg-current-session t)
     (let ((fl (wg-session-parameter it 'frame-list nil))
           (frame (selected-frame)))
       (mapc (lambda (wconfig)
               (with-selected-frame (make-frame)
                 ;;(wg-frame-resize-and-position wconfig)
                 ;;(wg-restore-frame-size-position wconfig)
                 ;;(wg-wconfig-restore-frame-position wconfig)

0 comments (0 inline, 0 general)