[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d32d0fa: * elisp-mode.el: Catch errors from `docume
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master d32d0fa: * elisp-mode.el: Catch errors from `documentation' |
Date: |
Mon, 27 Apr 2015 04:01:39 +0000 |
branch: master
commit d32d0fae2a7e37a065f1dd2372763c4dc0e409f4
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* 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.
---
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 ad35c48..f289068 100644
--- a/lisp/progmodes/elisp-mode.el
+++ b/lisp/progmodes/elisp-mode.el
@@ -30,7 +30,6 @@
(require 'lisp-mode)
-(defvar emacs-lisp-mode-abbrev-table nil)
(define-abbrev-table 'emacs-lisp-mode-abbrev-table ()
"Abbrev table for Emacs Lisp mode.
It has `lisp-mode-abbrev-table' as its parent."
@@ -1164,7 +1163,10 @@ or elsewhere, return a 1-line docstring."
(args
(cond
((listp advertised) advertised)
- ((setq doc (help-split-fundoc (documentation sym t) sym))
+ ((setq doc (help-split-fundoc
+ (condition-case nil (documentation sym t)
+ (invalid-function nil))
+ sym))
(car doc))
(t (help-function-arglist sym)))))
;; Stringify, and store before highlighting, downcasing, etc.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d32d0fa: * elisp-mode.el: Catch errors from `documentation',
Stefan Monnier <=