[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 6db78ae: Fix a typo in define-abbrev-table
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs-25 6db78ae: Fix a typo in define-abbrev-table |
Date: |
Sun, 11 Dec 2016 03:44:29 +0000 (UTC) |
branch: emacs-25
commit 6db78ae97e602f7ec06045df7e0388e4c14d0b1d
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
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(-)
diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 8c4f6eb..165b247 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 6db78ae: Fix a typo in define-abbrev-table,
Glenn Morris <=