diff options
| author | Lars Ingebrigtsen | 2016-04-30 23:54:16 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-04-30 23:54:16 +0200 |
| commit | 28e9f4390d8391c2c36be4ef515cf3a2c679a5a5 (patch) | |
| tree | f4e4f59f5afc3605fd5a361a52579836d2eb59a9 | |
| parent | 247c388f160581d207e41ca5926990bbf69d4a0f (diff) | |
| download | emacs-28e9f4390d8391c2c36be4ef515cf3a2c679a5a5.tar.gz emacs-28e9f4390d8391c2c36be4ef515cf3a2c679a5a5.zip | |
Further define-obsolete-* doc fixups
* lisp/emacs-lisp/byte-run.el (define-obsolete-face-alias):
Fix up last change.
(define-obsolete-variable-alias): Ditto.
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index ed457d9ede1..818c2683463 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el | |||
| @@ -407,7 +407,7 @@ dumped with Emacs). This is so that any user customizations are | |||
| 407 | applied before the defcustom tries to initialize the | 407 | applied before the defcustom tries to initialize the |
| 408 | variable (this is due to the way `defvaralias' works). | 408 | variable (this is due to the way `defvaralias' works). |
| 409 | 409 | ||
| 410 | If provided, WHEN should be a string indicating when the function | 410 | If provided, WHEN should be a string indicating when the variable |
| 411 | was first made obsolete, for example a date or a release number. | 411 | was first made obsolete, for example a date or a release number. |
| 412 | 412 | ||
| 413 | For the benefit of `custom-set-variables', if OBSOLETE-NAME has | 413 | For the benefit of `custom-set-variables', if OBSOLETE-NAME has |
| @@ -434,7 +434,7 @@ CURRENT-NAME, if it does not already have them: | |||
| 434 | ;; It only really affects M-x describe-face output. | 434 | ;; It only really affects M-x describe-face output. |
| 435 | (defmacro define-obsolete-face-alias (obsolete-face current-face when) | 435 | (defmacro define-obsolete-face-alias (obsolete-face current-face when) |
| 436 | "Make OBSOLETE-FACE a face alias for CURRENT-FACE and mark it obsolete. | 436 | "Make OBSOLETE-FACE a face alias for CURRENT-FACE and mark it obsolete. |
| 437 | If provided, WHEN should be a string indicating when the function | 437 | If provided, WHEN should be a string indicating when the face |
| 438 | was first made obsolete, for example a date or a release number." | 438 | was first made obsolete, for example a date or a release number." |
| 439 | `(progn | 439 | `(progn |
| 440 | (put ,obsolete-face 'face-alias ,current-face) | 440 | (put ,obsolete-face 'face-alias ,current-face) |