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

Options var now buffer local.

Browse source
This commit is contained in:
Phil Jackson 2010-08-31 18:38:44 +01:00
parent ec4cf7056d
commit b3358715fa
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
magit-key-mode.el
View file

@ -241,18 +241,21 @@ put it in magit-key-mode-key-maps for fast lookup."
(kill-buffer magit-key-mode-buf-name))
(defun magit-key-mode (for-group &optional original-opts)
"Mode for magit key selection."
(interactive)
(let ((buf (get-buffer-create magit-key-mode-buf-name)))
(pop-to-buffer buf)
(with-current-buffer buf
(set (make-local-variable 'magit-key-mode-current-options)
(kill-all-local-variables)
(set (make-variable-buffer-local
'magit-key-mode-current-options)
original-opts)
(magit-key-mode-redraw for-group))))
(defun magit-key-mode-redraw (for-group)
"(re)draw the magit key buffer."
(let ((buffer-read-only nil))
(erase-buffer)
(kill-all-local-variables)
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults
'(magit-key-mode-font-lock-keywords t nil nil nil))