diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-10-05 09:32:11 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-10-05 09:32:11 +0000 |
| commit | 0dd7b8f0e7346bb1899faa2e0c1bdf98794d17e6 (patch) | |
| tree | 9ad91776b651f7d9de2f37c2903a0640b64b5c0e /lisp/emacs-lisp/lselect.el | |
| parent | d7f519edc1129145799b42794a35df7c0460a043 (diff) | |
| download | emacs-0dd7b8f0e7346bb1899faa2e0c1bdf98794d17e6.tar.gz emacs-0dd7b8f0e7346bb1899faa2e0c1bdf98794d17e6.tar.bz2 emacs-0dd7b8f0e7346bb1899faa2e0c1bdf98794d17e6.zip | |
Use facep iso find-face.
Diffstat (limited to 'lisp/emacs-lisp/lselect.el')
| -rw-r--r-- | lisp/emacs-lisp/lselect.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/lselect.el b/lisp/emacs-lisp/lselect.el index bb6f776a13b..693e6474f0a 100644 --- a/lisp/emacs-lisp/lselect.el +++ b/lisp/emacs-lisp/lselect.el @@ -29,17 +29,17 @@ ;;; Code: -;;; The selection code requires us to use certain symbols whose names are -;;; all upper-case; this may seem tasteless, but it makes there be a 1:1 -;;; correspondence between these symbols and X Atoms (which are upcased.) +;; The selection code requires us to use certain symbols whose names are +;; all upper-case; this may seem tasteless, but it makes there be a 1:1 +;; correspondence between these symbols and X Atoms (which are upcased.) (defalias 'x-get-cutbuffer 'x-get-cut-buffer) (defalias 'x-store-cutbuffer 'x-set-cut-buffer) -(or (find-face 'primary-selection) +(or (facep 'primary-selection) (make-face 'primary-selection)) -(or (find-face 'secondary-selection) +(or (facep 'secondary-selection) (make-face 'secondary-selection)) (defun x-get-secondary-selection () @@ -179,7 +179,7 @@ secondary selection instead of the primary selection." ;(setq x-sent-selection-hooks 'x-notice-selection-failures) -;;; Random utility functions +;; Random utility functions (defun x-kill-primary-selection () "If there is a selection, delete the text it covers, and copy it to |