(match-string-no-properties): Use substring-no-properties.

[gnu-emacs] / lisp / emacs-lisp / lselect.el

diff --git a/lisp/emacs-lisp/lselect.el b/lisp/emacs-lisp/lselect.el
index 9531ba18f5103976cf0e782318968a4c90c73aa4..b292eefbaec7a07ef8b6492adc7eb0fb539481d7 100644 (file)
--- a/lisp/emacs-lisp/lselect.el
+++ b/lisp/emacs-lisp/lselect.el
@@ -2,6 +2,7 @@
 
 ;; Copyright (C) 1990, 1993 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
 ;; Keywords: emulations
 
 ;; This won't completely work until we support or emulate Lucid-style extents.
@@ -24,19 +25,21 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; 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 ()
@@ -176,7 +179,7 @@ secondary selection instead of the primary selection."
 ;(setq x-sent-selection-hooks 'x-notice-selection-failures)
 
 \f
-;;; 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 
@@ -229,4 +232,5 @@ the kill ring or the Clipboard."
 
 (provide 'lselect)
 
-;;; lselect.el ends here.
+;;; arch-tag: 92fa54d4-c5d1-4e9b-ad58-cf1e13930556
+;;; lselect.el ends here