Commit 6db78ae9 authored by Glenn Morris's avatar Glenn Morris

Fix a typo in define-abbrev-table

* lisp/abbrev.el (define-abbrev-table): Fix typo in docstring handling.
parent 5f7d906e
......@@ -979,10 +979,10 @@ Properties with special meaning:
;; 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
;; as well just use `defvar'.
(if (and docstring props (symbolp docstring))
;; There is really no docstring, instead the docstring arg
;; is a property name.
(push docstring props) (setq docstring nil))
(when (and docstring props (symbolp docstring))
;; There is really no docstring, instead the docstring arg
;; is a property name.
(push docstring props) (setq docstring nil))
(eval `(defvar ,tablename nil ,@(if docstring (list docstring))))
(let ((table (if (boundp tablename) (symbol-value tablename))))
(unless table
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment