procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Further define-obsolete-* doc fixups

Browse source 
* lisp/emacs-lisp/byte-run.el (define-obsolete-face-alias):
Fix up last change.
(define-obsolete-variable-alias): Ditto.

(cherry picked from commit 28e9f4390d)
This commit is contained in:
Lars Ingebrigtsen 2016-04-30 23:54:16 +02:00
parent 25b4cf33dd
commit 8c66ebfcf0
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/byte-run.el
View file

@ -407,7 +407,7 @@ dumped with Emacs). This is so that any user customizations are
applied before the defcustom tries to initialize the applied before the defcustom tries to initialize the
variable (this is due to the way `defvaralias' works). variable (this is due to the way `defvaralias' works).
If provided, WHEN should be a string indicating when the function If provided, WHEN should be a string indicating when the variable
was first made obsolete, for example a date or a release number. was first made obsolete, for example a date or a release number.
For the benefit of `custom-set-variables', if OBSOLETE-NAME has For the benefit of `custom-set-variables', if OBSOLETE-NAME has
@ -434,7 +434,7 @@ CURRENT-NAME, if it does not already have them:
;; It only really affects M-x describe-face output. ;; It only really affects M-x describe-face output.
(defmacro define-obsolete-face-alias (obsolete-face current-face when) (defmacro define-obsolete-face-alias (obsolete-face current-face when)
"Make OBSOLETE-FACE a face alias for CURRENT-FACE and mark it obsolete. "Make OBSOLETE-FACE a face alias for CURRENT-FACE and mark it obsolete.
If provided, WHEN should be a string indicating when the function If provided, WHEN should be a string indicating when the face
was first made obsolete, for example a date or a release number." was first made obsolete, for example a date or a release number."
`(progn `(progn
(put ,obsolete-face 'face-alias ,current-face) (put ,obsolete-face 'face-alias ,current-face)