mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Use set-face-underline rather than the alias set-face-underline-p

Browse Source 
* lisp/woman.el (woman-non-underline-faces):
* lisp/emacs-lisp/cl-lib.el (face-underline-p):
Use set-face-underline rather than the alias set-face-underline-p.
This commit is contained in:
Glenn Morris 2012-11-16 20:29:24 -05:00
parent 65463c4091
commit 9a5e2ee3cc
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2012-11-17 Glenn Morris <rgm@gnu.org>
* woman.el (woman-non-underline-faces):
* emacs-lisp/cl-lib.el (face-underline-p):
Use set-face-underline rather than the alias set-face-underline-p.
* window.el (with-temp-buffer-window): Doc fix.
2012-11-16 Stefan Monnier <monnier@iro.umontreal.ca>

2
lisp/emacs-lisp/cl-lib.el
View File

@ -661,7 +661,7 @@ If ALIST is non-nil, the new pairs are prepended to it."
(gv-define-setter face-foreground (x f &optional s)
`(set-face-foreground ,f ,x ,s))
(gv-define-setter face-underline-p (x f &optional s)
`(set-face-underline-p ,f ,x ,s))
`(set-face-underline ,f ,x ,s))
(gv-define-simple-setter file-modes set-file-modes t)
(gv-define-simple-setter frame-height set-screen-height t)
(gv-define-simple-setter frame-parameters modify-frame-parameters t)

2
lisp/woman.el
View File

@ -2191,7 +2191,7 @@ To be called on original buffer and any .so insertions."
(face-underline-p face))
(let ((face-no-ul (intern (concat face-name "-no-ul"))))
(copy-face face face-no-ul)
(set-face-underline-p face-no-ul nil)))))))
(set-face-underline face-no-ul nil)))))))
;; Preprocessors
;; =============