diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-08-04 04:15:43 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-08-04 04:15:43 +0000 |
| commit | c4ea28b3e90c54717a64729ed29d18736a76c6a7 (patch) | |
| tree | ce3d5522aecb19af9cfcd78d2edfe4cdf40d39e0 /lisp/sun-curs.el | |
| parent | d822e0eedf0ca4c60681b94b0f810370f8e603d4 (diff) | |
| download | emacs-c4ea28b3e90c54717a64729ed29d18736a76c6a7.tar.gz | |
entered into RCS
Diffstat (limited to 'lisp/sun-curs.el')
| -rw-r--r-- | lisp/sun-curs.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/sun-curs.el b/lisp/sun-curs.el index 238fdc4e847..e0a530de7bd 100644 --- a/lisp/sun-curs.el +++ b/lisp/sun-curs.el @@ -28,6 +28,8 @@ ;;; ;;; 9-dec-86 Jeff Peck, Sun Microsystems Inc. <peck@sun.com> +(require 'cl) + (defvar sc::cursors nil "List of known cursors") (defmacro defcursor (name x y string) @@ -96,7 +98,7 @@ Otherwise, ICON should be a vector or the name of a vector of [x y 32-chars]" (defun sc::pic-ins-at-mouse (char) "Picture insert char at mouse location" (mouse-move-point *mouse-window* (min 15 *mouse-x*) (min 15 *mouse-y*)) - (move-to-column-force (1+ (min 15 (current-column)))) + (move-to-column (1+ (min 15 (current-column))) t) (delete-char -1) (insert char) (sc::goto-hotspot)) |