A fruitful place for (re)optimization
The code in the attached hook function is dramatically slower in 21.0
than 20.4. What happened?
;;;;;;;;;;;;; Set up
(defun sb-init-apropos-faces ()
(setq apropos-symbol-face (make-face 'apropos-symbol-face))
(set-face-foreground 'apropos-symbol-face "Purple")
(when (featurep 'xemacs)
(make-face-bold 'apropos-symbol-face))
(setq apropos-keybinding-face (make-face 'apropos-keybinding-face))
(set-face-foreground 'apropos-keybinding-face "Blue")
(set-face-underline-p 'apropos-keybinding-face t)
(setq apropos-label-face (make-face 'apropos-label-face))
(set-face-foreground 'apropos-label-face "DeepPink")
(and running-xemacs (make-face-italic 'apropos-label-face))
;; Yuck! #### FIXME in apropos.el
(setq apropos-label-face `(face ,apropos-label-face
mouse-face highlight))
(setq apropos-property-face (make-face 'apropos-property-face))
(set-face-foreground 'apropos-property-face "Yellow4")
(and running-xemacs (make-face-bold-italic 'apropos-property-face))
(when (boundp 'apropos-mode-hook)
(remove-hook 'apropos-mode-hook 'sb-init-apropos-faces)))
(when (or running-xemacs
window-system)
(if running-xemacs
(add-hook 'apropos-mode-hook 'sb-init-apropos-faces)
(sb-init-apropos-faces)))
;;;;;;;;;;;;;;
M-x apropos label