Changeset 7934


Ignore:
Timestamp:
Dec 23, 2007, 4:47:41 PM (12 years ago)
Author:
gz
Message:

Oops. missed a couple in previous checkin

Location:
branches/event-ide/ccl/cocoa-ide/hemlock/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/event-ide/ccl/cocoa-ide/hemlock/src/command.lisp

    r7933 r7934  
    380380  :value nil)
    381381
    382 (defcommand "Scroll Window Down" (p &optional (view (current-view)))
     382(defcommand "Scroll Window Down" (p)
    383383  "Move down one screenfull.
    384384  With prefix argument scroll down that many lines."
     
    390390    (set-scroll-position :page-down)))
    391391
    392 (defcommand "Scroll Window Up" (p &optional (view (current-view)))
     392(defcommand "Scroll Window Up" (p)
    393393  "Move up one screenfull.
    394394  With prefix argument scroll up that many lines."
  • branches/event-ide/ccl/cocoa-ide/hemlock/src/morecoms.lisp

    r7913 r7934  
    419419             (page-offset point p))
    420420            (t (goto-page point p)))
    421     (hemlock-ext:scroll-mark-to-top point)))
     421    (set-scroll-position :line point)))
    422422
    423423(defun goto-page (mark i)
Note: See TracChangeset for help on using the changeset viewer.