Changeset 12287


Ignore:
Timestamp:
Jun 24, 2009, 6:37:14 PM (10 years ago)
Author:
mikel
Message:

added several implementations of movement+select commands.

fixed a bug in Select Forward foo -- some of these commands were calling current-point-collapsing-selection when they should have been calling current-point-extending-selection

Location:
trunk/source/cocoa-ide/hemlock/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/bindings.lisp

    r12147 r12287  
    160160(bind-key "Forward Word" #k"meta-f")
    161161(bind-key "Select Forward Word" #k"meta-F")
     162(bind-key "Select Forward Word" #k"meta-shift-rightarrow")
    162163(bind-key "Backward Word" #k"meta-b")
    163164(bind-key "Select Backward Word" #k"meta-B")
     165(bind-key "Select Backward Word" #k"meta-shift-leftarrow")
    164166
    165167(bind-key "Forward Paragraph" #k"meta-]")
     
    375377(bind-key "Select to End of Defun" #k"control-meta-E")
    376378(bind-key "Forward Form" #k"control-meta-f")
     379(bind-key "Forward Form" #k"control-rightarrow")
    377380(bind-key "Select Forward Form" #k"control-meta-F")
     381(bind-key "Select Forward Form" #k"control-shift-rightarrow")
    378382(bind-key "Backward Form" #k"control-meta-b")
     383(bind-key "Backward Form" #k"control-leftarrow")¯
    379384(bind-key "Select Backward Form" #k"control-meta-B")
     385(bind-key "Select Backward Form" #k"control-shift-leftarrow")
    380386(bind-key "Forward List" #k"control-meta-n")
    381387(bind-key "Select Forward List" #k"control-meta-N")
  • trunk/source/cocoa-ide/hemlock/src/command.lisp

    r12286 r12287  
    108108    "Move the point of the current buffer forward p characters, extending the selection."
    109109  (let* ((p (or p 1))
    110          (point (current-point-collapsing-selection)))
     110         (point (current-point-extending-selection)))
    111111    (cond ((character-offset point p))
    112112          ((= p 1)
     
    372372
    373373(defcommand "Select to Beginning of Line" (p)
    374   "Moves the point to the beginning of the current line, extending the selection.
     374    "Moves the point to the beginning of the current line, extending the selection.
    375375  With prefix argument, moves the point to the beginning of the prefix'th
    376376  next line."
    377   "Moves the point down p lines and then to the beginning of the line, extending the selection."
     377    "Moves the point down p lines and then to the beginning of the line, extending the selection."
    378378  (let ((point (current-point-extending-selection)))
    379379    (unless (line-offset point (if p p 0)) (editor-error "No such line."))
Note: See TracChangeset for help on using the changeset viewer.