[Emacs-diffs] Changes to emacs/lisp/help-fns.el

[Juanma Barranquero]

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.50 emacs/lisp/help-fns.el:1.51
*** emacs/lisp/help-fns.el:1.50 Sat May 22 01:56:55 2004
--- emacs/lisp/help-fns.el      Fri Jun  4 23:25:00 2004
***************
*** 237,250 ****
            (concat "src/" file)
          file)))))
  
  (defun help-default-arg-highlight (arg)
    "Default function to highlight arguments in *Help* buffers.
! It returns ARG in lowercase italics, if the display supports it;
! else ARG is returned in uppercase normal."
!   (let ((attrs '(:slant italic)))
!     (if (display-supports-face-attributes-p attrs)
!         (propertize (downcase arg) 'face attrs)
!       arg)))
  
  (defun help-do-arg-highlight (doc args)
    (with-syntax-table (make-syntax-table emacs-lisp-mode-syntax-table)
--- 237,255 ----
            (concat "src/" file)
          file)))))
  
+ ;;;###autoload
+ (defface help-argument-name '((((supports :slant italic)) :inherit italic))
+   "Face to highlight argument names in *Help* buffers.")
+ 
  (defun help-default-arg-highlight (arg)
    "Default function to highlight arguments in *Help* buffers.
! It returns ARG in face `help-argument-name'; ARG is also
! downcased if it displays differently than the default
! face (according to `face-differs-from-default-p')."
!   (propertize (if (face-differs-from-default-p 'help-argument-name)
!                   (downcase arg)
!                 arg)
!               'face 'help-argument-name))
  
  (defun help-do-arg-highlight (doc args)
    (with-syntax-table (make-syntax-table emacs-lisp-mode-syntax-table)