From 6db78ae97e602f7ec06045df7e0388e4c14d0b1d Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 10 Dec 2016 19:44:14 -0800 Subject: Fix a typo in define-abbrev-table * lisp/abbrev.el (define-abbrev-table): Fix typo in docstring handling. --- lisp/abbrev.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/abbrev.el') 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 -- cgit v1.2.1