[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/cus-edit.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/cus-edit.el |
Date: |
Wed, 22 Jun 2005 10:22:02 -0400 |
Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.224 emacs/lisp/cus-edit.el:1.225
*** emacs/lisp/cus-edit.el:1.224 Fri Jun 10 14:01:47 2005
--- emacs/lisp/cus-edit.el Wed Jun 22 14:22:02 2005
***************
*** 1116,1122 ****
;;;###autoload
(defun customize-face (&optional face)
"Customize FACE, which should be a face name or nil.
! If FACE is nil, customize all faces.
Interactively, when point is on text which has a face specified,
suggest to customize that face, if it's customizable."
--- 1116,1123 ----
;;;###autoload
(defun customize-face (&optional face)
"Customize FACE, which should be a face name or nil.
! If FACE is nil, customize all faces. If FACE is actually a
! face-alias, customize the face it is aliased to.
Interactively, when point is on text which has a face specified,
suggest to customize that face, if it's customizable."
***************
*** 1133,1138 ****
--- 1134,1142 ----
face)
t nil)
"*Customize Faces*")
+ ;; If FACE is actually an alias, customize the face it is aliased to.
+ (if (get face 'face-alias)
+ (setq face (get face 'face-alias)))
(unless (facep face)
(error "Invalid face %S" face))
(custom-buffer-create (list (list face 'custom-face))
***************
*** 1142,1147 ****
--- 1146,1152 ----
;;;###autoload
(defun customize-face-other-window (&optional face)
"Show customization buffer for face FACE in other window.
+ If FACE is actually a face-alias, customize the face it is aliased to.
Interactively, when point is on text which has a face specified,
suggest to customize that face, if it's customizable."
***************
*** 1159,1164 ****
--- 1164,1171 ----
face)
t nil)
"*Customize Faces*")
+ (if (get face 'face-alias)
+ (setq face (get face 'face-alias)))
(unless (facep face)
(error "Invalid face %S" face))
(custom-buffer-create-other-window