[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110890: Use set-face-underline ra
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110890: Use set-face-underline rather than the alias set-face-underline-p |
Date: |
Fri, 16 Nov 2012 20:29:24 -0500 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 110890
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Fri 2012-11-16 20:29:24 -0500
message:
Use set-face-underline rather than the alias set-face-underline-p
* 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.
modified:
lisp/ChangeLog
lisp/emacs-lisp/cl-lib.el
lisp/woman.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-11-17 01:26:24 +0000
+++ b/lisp/ChangeLog 2012-11-17 01:29:24 +0000
@@ -1,5 +1,9 @@
2012-11-17 Glenn Morris <address@hidden>
+ * 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 <address@hidden>
=== modified file 'lisp/emacs-lisp/cl-lib.el'
--- a/lisp/emacs-lisp/cl-lib.el 2012-11-16 15:59:40 +0000
+++ b/lisp/emacs-lisp/cl-lib.el 2012-11-17 01:29:24 +0000
@@ -661,7 +661,7 @@
(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)
=== modified file 'lisp/woman.el'
--- a/lisp/woman.el 2012-11-06 01:49:44 +0000
+++ b/lisp/woman.el 2012-11-17 01:29:24 +0000
@@ -2191,7 +2191,7 @@
(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
;; =============
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-24 r110890: Use set-face-underline rather than the alias set-face-underline-p,
Glenn Morris <=