From 0dd7b8f0e7346bb1899faa2e0c1bdf98794d17e6 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 5 Oct 2001 09:32:11 +0000 Subject: [PATCH] Use facep iso find-face. --- lisp/emacs-lisp/lselect.el | 12 ++++++------ 1 file 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 -- 2.39.2