aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2015-04-27 00:01:36 -0400
committerStefan Monnier2015-04-27 00:01:36 -0400
commitd32d0fae2a7e37a065f1dd2372763c4dc0e409f4 (patch)
treef3a6be535a377b4714c63bbe8c9cd6ee6c2c7dc3
parent0b7238829393baf71be87b9a420200ce0c41e76b (diff)
downloademacs-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.el6
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.
36It has `lisp-mode-abbrev-table' as its parent." 35It 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.