Mercurial > emacs
changeset 39565:e03e925846db
Use facep iso find-face.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 05 Oct 2001 09:32:11 +0000 |
| parents | 0e059993ad95 |
| children | 497b8fa7e100 |
| files | lisp/emacs-lisp/lselect.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lselect.el Fri Oct 05 09:31:27 2001 +0000 +++ b/lisp/emacs-lisp/lselect.el Fri Oct 05 09:32:11 2001 +0000 @@ -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 @@ ;(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