workgroups2 Changeset - 028980b753ae

Changeset - 028980b753ae

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 12 years ago 2014-02-26 00:10:50
sergey@pashinin.com

Disabled help-mode for now because of a bug #29

Personally I couldn't reproduce it, but 2 confirmed this.

1 file changed with 3 insertions and 0 deletions:

src/workgroups-specialbufs.el

0 comments (0 inline, 0 general)

src/workgroups-specialbufs.el

➞

Show inline comments

@@ @@ -20,36 +20,39 @@ @@
                                         (dired default-directory)))))))
 ;; Info-mode
 (wg-support 'Info-mode 'info
             `((save . (Info-current-file Info-current-node))
               (deserialize . ,(lambda (buffer vars)
                                 (wg-aif vars
                                     (if (fboundp 'Info-find-node)
                                         (apply #'Info-find-node it))
                                   (info))))))
 ;; help-mode
 ;; Bug: https://github.com/pashinin/workgroups2/issues/29
 (if nil
 (wg-support 'help-mode 'help-mode
             `((save . (help-xref-stack-item help-xref-stack help-xref-forward-stack))
               (deserialize . ,(lambda (buffer vars)
                                (wg-dbind (item stack forward-stack) vars
                                  (condition-case err
                                      (apply (car item) (cdr item))
                                    (error (message "%s" err)))
                                  (wg-awhen (get-buffer "*Help*")
                                    (set-buffer it)
                                    (wg-when-boundp (help-xref-stack help-xref-forward-stack)
                                      (setq help-xref-stack stack
                                            help-xref-forward-stack forward-stack))))))))
+)
 ;; ielm
 (wg-support 'inferior-emacs-lisp-mode 'ielm
             `((deserialize . ,(lambda (buffer vars) (ielm)))))
 ;; Magit status
 (wg-support 'magit-status-mode 'magit
             `((deserialize . ,(lambda (buffer vars)
                                 (when (file-directory-p default-directory)
                                   (magit-status default-directory))))))
 ;; Shell

0 comments (0 inline, 0 general)