Mercurial > emacs
diff lisp/emacs-lisp/lucid.el @ 2388:3f27c886f375
(try-face-font, find-face, get-face): New aliases.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 27 Mar 1993 18:01:28 +0000 |
parents | d4cc427a53dd |
children | 6ddf357bd36c |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lucid.el Sat Mar 27 08:21:02 1993 +0000 +++ b/lisp/emacs-lisp/lucid.el Sat Mar 27 18:01:28 1993 +0000 @@ -98,6 +98,10 @@ (switch-to-buffer (if (<= arg 1) (other-buffer (current-buffer)) (nth (1+ arg) (buffer-list))))) + +(fset 'find-face 'internal-find-face) +(fset 'get-face 'internal-get-face) +(fset 'try-face-font 'internal-try-face-font) ;; Support the Lucid names with `screen' instead of `frame'.