[Emacs-diffs] Changes to emacs/lisp/cus-edit.el

[Glenn Morris]

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