procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix a typo in define-abbrev-table

Browse source 
* lisp/abbrev.el (define-abbrev-table): Fix typo in docstring handling.
This commit is contained in:
Glenn Morris 2016-12-10 19:44:14 -08:00
parent 5f7d906e88
commit 6db78ae97e
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/abbrev.el
View file

@ -979,10 +979,10 @@ Properties with special meaning:
;; We used to manually add the docstring, but we also want to record this ;; We used to manually add the docstring, but we also want to record this
;; location as the definition of the variable (in load-history), so we may ;; location as the definition of the variable (in load-history), so we may
;; as well just use `defvar'. ;; as well just use `defvar'.
(if (and docstring props (symbolp docstring)) (when (and docstring props (symbolp docstring))
;; There is really no docstring, instead the docstring arg ;; There is really no docstring, instead the docstring arg
;; is a property name. ;; is a property name.
(push docstring props) (setq docstring nil)) (push docstring props) (setq docstring nil))
(eval `(defvar ,tablename nil ,@(if docstring (list docstring)))) (eval `(defvar ,tablename nil ,@(if docstring (list docstring))))
(let ((table (if (boundp tablename) (symbol-value tablename)))) (let ((table (if (boundp tablename) (symbol-value tablename))))
(unless table (unless table