/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

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

revision 1.175 by dmurray, Sun Aug 14 12:11:21 2005 UTC revision 1.176 by dmurray, Sun Aug 14 18:09:42 2005 UTC
# Line 797  Line 797 
797              do (forward-object mark)))              do (forward-object mark)))
798      (delete-region point mark)))      (delete-region point mark)))
799    
800    (define-named-command com-just-one-space ((count 'integer :prompt "Number of spaces"))
801      (let ((point (point (current-window)))
802            offset)
803        (loop until (beginning-of-line-p point)
804              while (whitespacep (object-before point))
805              do (backward-object point))
806        (loop until (end-of-line-p point)
807              while (whitespacep (object-after point))
808              repeat count do (forward-object point)
809              finally (setf offset (offset point)))
810        (loop until (end-of-line-p point)
811              while (whitespacep (object-after point))
812              do (forward-object point))
813        (delete-region offset point)))
814    
815  (define-named-command com-goto-position ()  (define-named-command com-goto-position ()
816    (setf (offset (point (current-window)))    (setf (offset (point (current-window)))
# Line 958  If *with-scrollbars nil, omit the scroll Line 972  If *with-scrollbars nil, omit the scroll
972      (when other-window      (when other-window
973        (page-down other-window))))        (page-down other-window))))
974    
975    (define-named-command com-scroll-other-window-up ()
976      (let ((other-window (second (windows *application-frame*))))
977        (when other-window
978          (page-up other-window))))
979    
980  (define-named-command com-delete-window ()  (define-named-command com-delete-window ()
981    (unless (null (cdr (windows *application-frame*)))    (unless (null (cdr (windows *application-frame*)))
982      (let* ((constellation (if *with-scrollbars*      (let* ((constellation (if *with-scrollbars*
# Line 1023  If *with-scrollbars nil, omit the scroll Line 1042  If *with-scrollbars nil, omit the scroll
1042                                   (return-from com-resize-kill-ring nil))))))                                   (return-from com-resize-kill-ring nil))))))
1043      (setf (kill-ring-max-size *kill-ring*) size)))      (setf (kill-ring-max-size *kill-ring*) size)))
1044    
1045    (define-named-command com-append-next-kill ()
1046      (setf (append-next-p *kill-ring*) t))
1047    
1048  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1049  ;;;  ;;;
1050  ;;; Incremental search  ;;; Incremental search
# Line 1662  If *with-scrollbars nil, omit the scroll Line 1684  If *with-scrollbars nil, omit the scroll
1684  (global-set-key '(#\Space :control) 'com-set-mark)  (global-set-key '(#\Space :control) 'com-set-mark)
1685  (global-set-key '(#\y :control) 'com-yank)  (global-set-key '(#\y :control) 'com-yank)
1686  (global-set-key '(#\w :control) 'com-kill-region)  (global-set-key '(#\w :control) 'com-kill-region)
1687    (global-set-key '(#\w :control :meta) 'com-append-next-kill)
1688  (global-set-key '(#\e :meta) `(com-forward-sentence ,*numeric-argument-marker*))  (global-set-key '(#\e :meta) `(com-forward-sentence ,*numeric-argument-marker*))
1689  (global-set-key '(#\a :meta) `(com-backward-sentence ,*numeric-argument-marker*))  (global-set-key '(#\a :meta) `(com-backward-sentence ,*numeric-argument-marker*))
1690  (global-set-key '(#\k :meta) `(com-kill-sentence ,*numeric-argument-marker*))  (global-set-key '(#\k :meta) `(com-kill-sentence ,*numeric-argument-marker*))
# Line 1678  If *with-scrollbars nil, omit the scroll Line 1701  If *with-scrollbars nil, omit the scroll
1701  (global-set-key '(#\v :control) 'com-page-down)  (global-set-key '(#\v :control) 'com-page-down)
1702  (global-set-key '(#\v :meta) 'com-page-up)  (global-set-key '(#\v :meta) 'com-page-up)
1703  (global-set-key '(#\v :control :meta) 'com-scroll-other-window)  (global-set-key '(#\v :control :meta) 'com-scroll-other-window)
1704    (global-set-key '(#\V :control :meta :shift) 'com-scroll-other-window-up)
1705  (global-set-key '(#\< :shift :meta) 'com-beginning-of-buffer)  (global-set-key '(#\< :shift :meta) 'com-beginning-of-buffer)
1706  (global-set-key '(#\> :shift :meta) 'com-end-of-buffer)  (global-set-key '(#\> :shift :meta) 'com-end-of-buffer)
1707  (global-set-key '(#\m :meta) 'com-back-to-indentation)  (global-set-key '(#\m :meta) 'com-back-to-indentation)
1708  (global-set-key '(#\\ :meta) `(com-delete-horizontal-space ,*numeric-argument-p*))  (global-set-key '(#\\ :meta) `(com-delete-horizontal-space ,*numeric-argument-p*))
1709    (global-set-key '(#\Space :meta) `(com-just-one-space ,*numeric-argument-marker*))
1710  (global-set-key '(#\^ :shift :meta) 'com-delete-indentation)  (global-set-key '(#\^ :shift :meta) 'com-delete-indentation)
1711  (global-set-key '(#\q :meta) 'com-fill-paragraph)  (global-set-key '(#\q :meta) 'com-fill-paragraph)
1712  (global-set-key '(#\d :meta) `(com-kill-word ,*numeric-argument-marker*))  (global-set-key '(#\d :meta) `(com-kill-word ,*numeric-argument-marker*))

Legend:
Removed from v.1.175  
changed lines
  Added in v.1.176

  ViewVC Help
Powered by ViewVC 1.1.5