/[cmucl]/src/hemlock/hunk-draw.lisp
ViewVC logotype

Diff of /src/hemlock/hunk-draw.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by ram, Mon Oct 31 04:50:12 1994 UTC revision 1.6.2.1 by pw, Sat Mar 23 18:50:45 2002 UTC
# Line 332  Line 332 
332  (defun frob-cursor (on)  (defun frob-cursor (on)
333    (if on (drop-cursor) (lift-cursor)))    (if on (drop-cursor) (lift-cursor)))
334    
335  (proclaim '(special *default-border-pixmap* *highlight-border-pixmap*))  (declaim (special *default-border-pixmap* *highlight-border-pixmap*))
336    
337  ;;; DROP-CURSOR and LIFT-CURSOR are separate functions from FROB-CURSOR  ;;; DROP-CURSOR and LIFT-CURSOR are separate functions from FROB-CURSOR
338  ;;; because they are called a couple places (e.g., HUNK-EXPOSED-REGION  ;;; because they are called a couple places (e.g., HUNK-EXPOSED-REGION

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.6.2.1

  ViewVC Help
Powered by ViewVC 1.1.5