(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 98e726bb0fc3956d1259e61e68d1faaa0bc331eb..b292eefbaec7a07ef8b6492adc7eb0fb539481d7 100644 (file)
--- a/lisp/emacs-lisp/lselect.el
+++ b/lisp/emacs-lisp/lselect.el
@@ -1,9 +1,11 @@
 ;;; lselect.el --- Lucid interface to X Selections
 
+;; 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.
-;; Copyright (C) 1990, 1993 Free Software Foundation, Inc.
 ;; Based on Lucid's selection code.
 
 ;; This file is part of GNU Emacs.
@@ -19,22 +21,25 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; 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 ()
@@ -174,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 
@@ -225,4 +230,7 @@ the kill ring or the Clipboard."
     (push-mark)
     (insert clip)))
 
-;;; lselect.el ends here.
+(provide 'lselect)
+
+;;; arch-tag: 92fa54d4-c5d1-4e9b-ad58-cf1e13930556
+;;; lselect.el ends here