diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-03-27 18:01:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-03-27 18:01:28 +0000 |
| commit | e15765f5e2b9286dd02d47acde2a383a4ee6c25a (patch) | |
| tree | 7fc3217936cac4149f44178c44fcc85c420c4d3b /lisp/emacs-lisp | |
| parent | 0b899bd20494bbff5ba3d5d158f074a1db9dc1cc (diff) | |
| download | emacs-e15765f5e2b9286dd02d47acde2a383a4ee6c25a.tar.gz emacs-e15765f5e2b9286dd02d47acde2a383a4ee6c25a.tar.bz2 emacs-e15765f5e2b9286dd02d47acde2a383a4ee6c25a.zip | |
(try-face-font, find-face, get-face): New aliases.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lucid.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el index 9e61577c970..d1b541d34b9 100644 --- a/lisp/emacs-lisp/lucid.el +++ b/lisp/emacs-lisp/lucid.el @@ -98,6 +98,10 @@ bottom of the buffer stack." (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'. |