(Fprimitive_undo): Use base buffer's modtime field.

[bpt/emacs.git] / lisp / sun-curs.el

diff --git a/lisp/sun-curs.el b/lisp/sun-curs.el
index 238fdc4..5e8a6fa 100644 (file)
--- a/lisp/sun-curs.el
+++ b/lisp/sun-curs.el
@@ -1,8 +1,9 @@
-;;; 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>
+;; Keywords: hardware
 
 ;; This file is part of GNU Emacs.
 
@@ -28,6 +29,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 +99,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))
@@ -210,4 +213,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