Changeset - a6c5da2727f5
[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:
0 comments (0 inline, 0 general)
src/workgroups2.el
Show inline comments
 
@@ -1160,10 +1160,9 @@ Saves some variables to restore a BUFFER later."
 

	
 
(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)
 
@@ -2406,8 +2405,8 @@ ignored.
 
  "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)
0 comments (0 inline, 0 general)