workgroups2 Changeset - 3dfc5d133be9

Changeset - 3dfc5d133be9

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-30 11:31:04
sergey@pashinin.com

commented speedbar-mode as it has bugs

1 file changed with 21 insertions and 42 deletions:

src/workgroups2.el

0 comments (0 inline, 0 general)

src/workgroups2.el

➞

Show inline comments

@@ @@ -2488,7 +2488,7 @@ Also add it to the wconfig kill-ring." @@
 ;; specialbufs
 (defcustom wg-special-buffer-serdes-functions
   '(wg-serialize-comint-buffer
-    wg-serialize-speedbar-buffer)
+    )
   "Functions providing serialization/deserialization for complex buffers.
 Use `wg-support' macro and this variable will be filled
                       (switch-to-buffer "*grep*")))))
 ;; speedbar-mode
 (defun wg-deserialize-speedbar-buffer (buf)
   "Deserialize speedbar-buffer BUF."
   (when (and (require 'speedbar nil 'noerror)
              (require 'dframe nil 'noerror))
     (wg-dbind (this-function args) (wg-buf-special-data buf)
       (let ((default-directory (car args))
             bufname)
         (if (boundp 'sr-speedbar-buffer-name)
             (setq bufname sr-speedbar-buffer-name)
           (setq bufname "*SPEEDBAR*"))
         (when (and (fboundp 'speedbar-mode)
                    (fboundp 'speedbar-reconfigure-keymaps)
                    (fboundp 'speedbar-update-contents)
                    (fboundp 'speedbar-set-timer))
           (with-no-warnings
             (setq speedbar-buffer (get-buffer-create bufname))
             (setq speedbar-frame (selected-frame)
                   dframe-attached-frame (selected-frame)
                   speedbar-select-frame-method 'attached
                   speedbar-verbosity-level 0
                   speedbar-last-selected-file nil)
             (set-buffer speedbar-buffer)
             (speedbar-mode)
             (speedbar-reconfigure-keymaps)
             (speedbar-update-contents)
             (speedbar-set-timer 1)
             (set-window-dedicated-p (get-buffer-window bufname) t)
             (switch-to-buffer bufname)))
         (current-buffer)
         ))))
 (defun wg-serialize-speedbar-buffer (buffer)
   "Serialize speedbar BUFFER."
   (with-current-buffer buffer
     (if (fboundp 'speedbar-mode)
         (when (eq major-mode 'speedbar-mode)
           (list 'wg-deserialize-speedbar-buffer
                 (list default-directory)
                 )))))
 ;; `speedbar-mode' (has bugs)
 ;; only from sr-speedbar.el
 ;;(wg-support 'speedbar-mode 'sr-speedbar
 ;;  `((deserialize . ,(lambda (buffer vars)
 ;;                      ;;(with-current-buffer (get-buffer-create "*SPEEDBAR*")
 ;;                        (with-no-warnings
 ;;                          (setq speedbar-buffer (get-buffer-create "*SPEEDBAR*"))
 ;;                          (setq speedbar-frame (selected-frame)
 ;;                                dframe-attached-frame (selected-frame)
 ;;                                speedbar-select-frame-method 'attached
 ;;                                speedbar-verbosity-level 0
 ;;                                speedbar-last-selected-file nil)
 ;;                          (set-buffer speedbar-buffer)
 ;;                          (speedbar-mode)
 ;;                          (speedbar-reconfigure-keymaps)
 ;;                          (speedbar-update-contents)
 ;;                          (speedbar-set-timer 1)
 ;;                          (aif (get-buffer-window "*SPEEDBAR*")
 ;;                              (set-window-dedicated-p it t))
 ;;                          (get-buffer-create "*SPEEDBAR*"))))))
 (defun wg-deserialize-slime-buffer (buf)

0 comments (0 inline, 0 general)