gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remember section visibility across buffer reconstructions.

Browse source 
* magit.el (magit-new-section): Find old section and inherit hidden
attribute.
(magit-create-buffer-sections): Make old top section available to
magit-new-section.
This commit is contained in:
Marius Vollmer 2008-09-07 02:15:45 +03:00
parent c315191639
commit d100f40298
1 changed files with 15 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
magit.el
View file

@ -294,17 +294,23 @@ Many Magit faces inherit from this one by default."
(defvar magit-top-section nil) (defvar magit-top-section nil)
(make-variable-buffer-local 'magit-top-section) (make-variable-buffer-local 'magit-top-section)
(put 'magit-submode 'permanent-local t)
(defvar magit-old-top-section nil)
(defun magit-new-section (title type) (defun magit-new-section (title type)
(message "Creating %s" title) (let* ((s (make-magit-section :parent magit-top-section
(let ((s (make-magit-section :parent magit-top-section
:title title :title title
:type type))) :type type))
(old (magit-find-section (magit-section-path s)
magit-old-top-section)))
(if magit-top-section (if magit-top-section
(setf (magit-section-children magit-top-section) (setf (magit-section-children magit-top-section)
(append (magit-section-children magit-top-section) (append (magit-section-children magit-top-section)
(list s))) (list s)))
(setq magit-top-section s)) (setq magit-top-section s))
(if old
(setf (magit-section-hidden s) (magit-section-hidden old)))
s)) s))
(defun magit-cancel-section (section) (defun magit-cancel-section (section)
@ -333,9 +339,12 @@ Many Magit faces inherit from this one by default."
(declare (indent 0)) (declare (indent 0))
`(let ((inhibit-read-only t)) `(let ((inhibit-read-only t))
(erase-buffer) (erase-buffer)
(setq magit-top-section nil) (let ((magit-old-top-section magit-top-section))
,@body (setq magit-top-section nil)
(magit-propertize-section magit-top-section))) ,@body
(magit-propertize-section magit-top-section)
(magit-section-set-hidden magit-top-section
(magit-section-hidden magit-top-section)))))
(defun magit-propertize-section (section) (defun magit-propertize-section (section)
(put-text-property (magit-section-beginning section) (put-text-property (magit-section-beginning section)