diff options
author | Glenn Morris <rgm@gnu.org> | 2016-12-10 19:44:14 -0800 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2016-12-10 19:44:14 -0800 |
commit | 6db78ae97e602f7ec06045df7e0388e4c14d0b1d (patch) | |
tree | a51cad6f81c33fb40f6d7baa9e5298a3dd6e942a /lisp/abbrev.el | |
parent | 5f7d906e88d692db7d60cb8112af9a1825e95627 (diff) | |
download | emacs-6db78ae97e602f7ec06045df7e0388e4c14d0b1d.tar.gz |
Fix a typo in define-abbrev-table
* lisp/abbrev.el (define-abbrev-table): Fix typo in docstring handling.
Diffstat (limited to 'lisp/abbrev.el')
-rw-r--r-- | lisp/abbrev.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 8c4f6eb01b2..165b24735a0 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -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 |