Recenter the screen after goto-symbol

This commit is contained in:
toctan 2013-04-29 16:38:26 +08:00
parent 3996597b44
commit cca24f3bb9

View file

@ -63,7 +63,8 @@
((overlayp position) ((overlayp position)
(goto-char (overlay-start position))) (goto-char (overlay-start position)))
(t (t
(goto-char position))))) (goto-char position)))
(recenter)))
((listp symbol-list) ((listp symbol-list)
(dolist (symbol symbol-list) (dolist (symbol symbol-list)
(let (name position) (let (name position)