emacs-diffs
[Top][All Lists]
Advanced

[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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]