diff options
| author | Glenn Morris | 2016-12-10 19:44:14 -0800 |
|---|---|---|
| committer | Glenn Morris | 2016-12-10 19:44:14 -0800 |
| commit | 6db78ae97e602f7ec06045df7e0388e4c14d0b1d (patch) | |
| tree | a51cad6f81c33fb40f6d7baa9e5298a3dd6e942a | |
| parent | 5f7d906e88d692db7d60cb8112af9a1825e95627 (diff) | |
| download | emacs-6db78ae97e602f7ec06045df7e0388e4c14d0b1d.tar.gz emacs-6db78ae97e602f7ec06045df7e0388e4c14d0b1d.zip | |
Fix a typo in define-abbrev-table
* lisp/abbrev.el (define-abbrev-table): Fix typo in docstring handling.
| -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: | |||
| 979 | ;; We used to manually add the docstring, but we also want to record this | 979 | ;; We used to manually add the docstring, but we also want to record this |
| 980 | ;; location as the definition of the variable (in load-history), so we may | 980 | ;; location as the definition of the variable (in load-history), so we may |
| 981 | ;; as well just use `defvar'. | 981 | ;; as well just use `defvar'. |
| 982 | (if (and docstring props (symbolp docstring)) | 982 | (when (and docstring props (symbolp docstring)) |
| 983 | ;; There is really no docstring, instead the docstring arg | 983 | ;; There is really no docstring, instead the docstring arg |
| 984 | ;; is a property name. | 984 | ;; is a property name. |
| 985 | (push docstring props) (setq docstring nil)) | 985 | (push docstring props) (setq docstring nil)) |
| 986 | (eval `(defvar ,tablename nil ,@(if docstring (list docstring)))) | 986 | (eval `(defvar ,tablename nil ,@(if docstring (list docstring)))) |
| 987 | (let ((table (if (boundp tablename) (symbol-value tablename)))) | 987 | (let ((table (if (boundp tablename) (symbol-value tablename)))) |
| 988 | (unless table | 988 | (unless table |