diff options
| author | Stefan Monnier | 2015-04-27 00:01:36 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2015-04-27 00:01:36 -0400 |
| commit | d32d0fae2a7e37a065f1dd2372763c4dc0e409f4 (patch) | |
| tree | f3a6be535a377b4714c63bbe8c9cd6ee6c2c7dc3 | |
| parent | 0b7238829393baf71be87b9a420200ce0c41e76b (diff) | |
| download | emacs-d32d0fae2a7e37a065f1dd2372763c4dc0e409f4.tar.gz emacs-d32d0fae2a7e37a065f1dd2372763c4dc0e409f4.zip | |
* elisp-mode.el: Catch errors from `documentation'
Fixes: debbugs:20418
* lisp/progmodes/elisp-mode.el (elisp--get-fnsym-args-string):
Catch errors from documentation.
(emacs-lisp-mode-abbrev-table): Remove redundant defvar.
| -rw-r--r-- | lisp/progmodes/elisp-mode.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index ad35c48a101..f2890686e79 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el | |||
| @@ -30,7 +30,6 @@ | |||
| 30 | 30 | ||
| 31 | (require 'lisp-mode) | 31 | (require 'lisp-mode) |
| 32 | 32 | ||
| 33 | (defvar emacs-lisp-mode-abbrev-table nil) | ||
| 34 | (define-abbrev-table 'emacs-lisp-mode-abbrev-table () | 33 | (define-abbrev-table 'emacs-lisp-mode-abbrev-table () |
| 35 | "Abbrev table for Emacs Lisp mode. | 34 | "Abbrev table for Emacs Lisp mode. |
| 36 | It has `lisp-mode-abbrev-table' as its parent." | 35 | It has `lisp-mode-abbrev-table' as its parent." |
| @@ -1164,7 +1163,10 @@ or elsewhere, return a 1-line docstring." | |||
| 1164 | (args | 1163 | (args |
| 1165 | (cond | 1164 | (cond |
| 1166 | ((listp advertised) advertised) | 1165 | ((listp advertised) advertised) |
| 1167 | ((setq doc (help-split-fundoc (documentation sym t) sym)) | 1166 | ((setq doc (help-split-fundoc |
| 1167 | (condition-case nil (documentation sym t) | ||
| 1168 | (invalid-function nil)) | ||
| 1169 | sym)) | ||
| 1168 | (car doc)) | 1170 | (car doc)) |
| 1169 | (t (help-function-arglist sym))))) | 1171 | (t (help-function-arglist sym))))) |
| 1170 | ;; Stringify, and store before highlighting, downcasing, etc. | 1172 | ;; Stringify, and store before highlighting, downcasing, etc. |