diff options
| author | Stephen Leake <stephen_leake@stephe-leake.org> | 2015-09-01 04:36:05 -0500 |
|---|---|---|
| committer | Stephen Leake <stephen_leake@stephe-leake.org> | 2015-09-01 05:15:26 -0500 |
| commit | fcdd22dd4be2312aace9cce724f8ae8128b585ac (patch) | |
| tree | e567c51c37e7f6ae6b933bc4d6fd728fda39a7de | |
| parent | b62c0e7bee1dcf74c97e7979fe87b81598d4a4b2 (diff) | |
| download | emacs-fcdd22dd4be2312aace9cce724f8ae8128b585ac.tar.gz emacs-fcdd22dd4be2312aace9cce724f8ae8128b585ac.tar.bz2 emacs-fcdd22dd4be2312aace9cce724f8ae8128b585ac.zip | |
Show all known mode-local overrides in *Help*
* lisp/cedet/mode-local.el (describe-mode-local-overload): Assume Emacs
25. Add all known mode-local overrides.
| -rw-r--r-- | lisp/cedet/mode-local.el | 22 |
1 files changed, 17 insertions, 5 deletions
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el index 287e6558b2d..95cf65fdda5 100644 --- a/lisp/cedet/mode-local.el +++ b/lisp/cedet/mode-local.el @@ -637,11 +637,10 @@ SYMBOL is a function that can be overridden." (when (get symbol 'mode-local-overload) (let ((default (or (intern-soft (format "%s-default" (symbol-name symbol))) symbol)) - (override (and - (boundp 'describe-function-orig-buffer) ;; added in Emacs 25 - describe-function-orig-buffer - (with-current-buffer describe-function-orig-buffer - (fetch-overload symbol))))) + (override (with-current-buffer describe-function-orig-buffer + (fetch-overload symbol))) + modes) + (insert (overload-docstring-extension symbol) "\n\n") (insert (format-message "default function: `%s'\n" default)) (when (and (boundp 'describe-function-orig-buffer) ;; added in Emacs 25 @@ -651,6 +650,19 @@ SYMBOL is a function that can be overridden." describe-function-orig-buffer override)) (insert (format-message "\nno override in buffer '%s'\n" describe-function-orig-buffer)))) + + (mapatoms + (lambda (sym) (when (get sym 'mode-local-symbol-table) (push sym modes))) + obarray) + + (dolist (mode modes) + (let* ((major-mode mode) + (override (fetch-overload symbol))) + + (when override + (insert (format-message "\noverride in mode ‘%s’: ’%s’\n" + major-mode override)) + ))) ))) (add-hook 'help-fns-describe-function-functions 'describe-mode-local-overload) |