Mercurial > emacs
changeset 65103:27425eb4706a
(icon-edit, *mouse-window*, *mouse-x*, *mouse-y*, menu, char):
Defvar at compile time.
(sc::menu): Declare it before use.
(sc::pack-one-line): Use `let', not `let*'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 24 Aug 2005 15:54:20 +0000 |
| parents | 3b647b8b1789 |
| children | 99b859795eb0 |
| files | lisp/obsolete/sun-curs.el |
| diffstat | 1 files changed, 13 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/obsolete/sun-curs.el Wed Aug 24 15:20:18 2005 +0000 +++ b/lisp/obsolete/sun-curs.el Wed Aug 24 15:54:20 2005 +0000 @@ -32,7 +32,12 @@ ;;; ;;; 9-dec-86 Jeff Peck, Sun Microsystems Inc. <peck@sun.com> -(eval-when-compile (require 'cl)) +(eval-when-compile + (require 'cl) + (defvar *edit-icon*) (defvar char) + ;; These are from term/sun-mouse.el + (defvar *mouse-window*) (defvar *mouse-x*) (defvar *mouse-y*) (defvar menu)) + (require 'sun-fns) (eval-and-compile @@ -79,9 +84,11 @@ (if (symbolp icon) (setq icon (symbol-value icon))) (sun-change-cursor-icon icon)) +;; This does not make much sense... (make-local-variable '*edit-icon*) + +(defvar icon-edit nil) (make-variable-buffer-local 'icon-edit) -(setq-default icon-edit nil) (or (assq 'icon-edit minor-mode-alist) (push '(icon-edit " IconEdit") minor-mode-alist)) @@ -109,9 +116,6 @@ (insert char) (sc::goto-hotspot)) -(defun sc::menu-function (window x y) - (sun-menu-evaluate window (1+ x) y sc::menu)) - (defmenu sc::menu ("Cursor Menu") ("Pack & Use" sc::pack-buffer-to-cursor) @@ -127,6 +131,9 @@ ("Quit" sc::quit-edit) ) +(defun sc::menu-function (window x y) + (sun-menu-evaluate window (1+ x) y sc::menu)) + (defun sc::quit-edit () (interactive) (bury-buffer (current-buffer)) @@ -202,7 +209,7 @@ ) (defun sc::pack-one-line (dummy) - (let* (char chr1 chr2) + (let (char chr1 chr2) (setq char 0 chr1 (mapconcat 'sc::pack-one-char "12345678" "") chr1 char) (setq char 0 chr2 (mapconcat 'sc::pack-one-char "12345678" "") chr2 char) (forward-line 1)