(quail-choose-completion-string): Store

[gnu-emacs] / lisp / sun-curs.el

diff --git a/lisp/sun-curs.el b/lisp/sun-curs.el
index e0a530de7bd211f064bfb36d8dc615fbd04e3737..b95ecde7e17a2aa4b3a12d0e3648a3ac8fb51c07 100644 (file)
--- a/lisp/sun-curs.el
+++ b/lisp/sun-curs.el
@@ -1,8 +1,10 @@
-;;; sun-cursors.el --- cursor definitions for Sun windows
+;;; sun-curs.el --- cursor definitions for Sun windows
 
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
 ;; Author: Jeff Peck <peck@sun.com>
+;; Maintainer: none
+;; Keywords: hardware
 
 ;; This file is part of GNU Emacs.
 
@@ -17,8 +19,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:
 
@@ -30,7 +33,8 @@
 
 (require 'cl)
 
-(defvar sc::cursors nil "List of known cursors")
+(eval-and-compile
+  (defvar sc::cursors nil "List of known cursors"))
 
 (defmacro defcursor (name x y string)
   (if (not (memq name sc::cursors)) 
@@ -117,7 +121,7 @@ Otherwise, ICON should be a vector or the name of a vector of [x y 32-chars]"
   ("Set Cursor" sc:set-cursor
                (sc::menu-choose-cursor *menu-window* *menu-x* *menu-y*)) 
   ("Reset Cursor" sc:set-cursor nil)
-  ("Help". sc::edit-icon-help-menu)
+  ("Help" sc::edit-icon-help-menu)
   ("Quit" sc::quit-edit)
   )
 
@@ -212,4 +216,4 @@ Otherwise, ICON should be a vector or the name of a vector of [x y 32-chars]"
 
 (provide 'sm-cursors)
 
-;;; sun-cursors.el ends here
+;;; sun-curs.el ends here