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 | e8a57935cbb4ccde7f621eeeca22141e5a5327b4 (patch) | |
| tree | cb90c678fa9e79cf41c1b6a22d62b620aaf0e07f /lisp/sun-curs.el | |
| parent | 0b030df78b499fde5f8dd3f20dd24a2e002fe4ee (diff) | |
| download | emacs-e8a57935cbb4ccde7f621eeeca22141e5a5327b4.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)) |