Changed version to 1.2.1.

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

diff --git a/lisp/emacs-lisp/lselect.el b/lisp/emacs-lisp/lselect.el
index df2b8d65d86211b8d073d7cfc405bb097d8b2226..9531ba18f5103976cf0e782318968a4c90c73aa4 100644 (file)
--- a/lisp/emacs-lisp/lselect.el
+++ b/lisp/emacs-lisp/lselect.el
@@ -1,9 +1,10 @@
 ;;; lselect.el --- Lucid interface to X Selections
 
+;; Copyright (C) 1990, 1993 Free Software Foundation, Inc.
+
 ;; 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,8 +20,9 @@
 ;; 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.
 
 ;;; Code:
 
@@ -28,8 +30,8 @@
 ;;; 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.)
 
-(fset 'x-get-cutbuffer 'x-get-cut-buffer)
-(fset 'x-store-cutbuffer 'x-set-cut-buffer)
+(defalias 'x-get-cutbuffer 'x-get-cut-buffer)
+(defalias 'x-store-cutbuffer 'x-set-cut-buffer)
 
 (or (find-face 'primary-selection)
     (make-face 'primary-selection))
@@ -225,4 +227,6 @@ the kill ring or the Clipboard."
     (push-mark)
     (insert clip)))
 
+(provide 'lselect)
+
 ;;; lselect.el ends here.