From: Glenn Morris <rgm@gnu.org>
Date: Sun, 11 Dec 2016 03:44:14 +0000 (-0800)
Subject: Fix a typo in define-abbrev-table
X-Git-Tag: emacs-25.1.91~27
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6db78ae97e602f7ec06045df7e0388e4c14d0b1d;p=emacs.git

Fix a typo in define-abbrev-table

* lisp/abbrev.el (define-abbrev-table): Fix typo in docstring handling.
---

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