Changeset - 373b68567635
[Not reviewed]
0 1 0
Sergey Pashinin - 13 years ago 2013-04-30 14:29:24
sergey@pashinin.com
fixed wg-reload-session
1 file changed with 2 insertions and 1 deletions:
0 comments (0 inline, 0 general)
src/workgroups2.el
Show inline comments
 
@@ -123,25 +123,26 @@
 

	
 
(defun wg-turn-off-minibuffer-mode ()
 
  "`minibuffer-exit-hook' to turn off `wg-minibuffer-mode'."
 
  (wg-minibuffer-mode -1))
 

	
 

	
 

	
 
;;; workgroups-mode
 

	
 
(defun wg-reload-session ()
 
  "Reload current workgroups session."
 
  (interactive)
 
  (let ((file (wg-determine-session-save-file-name)))
 
  (let ((file (or (wg-determine-session-save-file-name)
 
                  wg-default-session-file)))
 
    (when (file-exists-p file)
 
      (condition-case err
 
          (wg-find-session-file wg-default-session-file)
 
        (error (message "Error finding session-file: %s" err))))
 
    ))
 

	
 
(defun wg-find-session-file-on-workgroups-mode-entry ()
 
  "This function is called when activating workgroups mode. It
 
loads a session file set in `wg-default-session-file' variable if
 
`wg-use-default-session-file' is t."
 
  (when (and wg-use-default-session-file
 
             (file-exists-p wg-default-session-file))
0 comments (0 inline, 0 general)