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

Diff of /climacs/gui.lisp

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

revision 1.89 by mvilleneuve, Thu Jan 20 19:12:48 2005 UTC revision 1.90 by mvilleneuve, Thu Jan 20 23:42:04 2005 UTC
# Line 505  Line 505 
505    (let ((buffer (buffer (current-window))))    (let ((buffer (buffer (current-window))))
506      (setf (auto-fill-mode buffer) (not (auto-fill-mode buffer)))))      (setf (auto-fill-mode buffer) (not (auto-fill-mode buffer)))))
507    
508    (define-named-command com-fill-paragraph ()
509      (let* ((pane (current-window))
510             (buffer (buffer pane))
511             (syntax (syntax buffer))
512             (point (point pane))
513             (begin-mark (clone-mark point))
514             (end-mark (clone-mark point)))
515        (unless (eql (object-before begin-mark) #\Newline)
516          (beginning-of-paragraph begin-mark syntax))
517        (unless (eql (object-after end-mark) #\Newline)
518          (end-of-paragraph end-mark syntax))
519        (do-buffer-region (object offset buffer
520                           (offset begin-mark) (offset end-mark))
521          (when (eql object #\Newline)
522            (setf object #\Space)))
523        (let ((point-backup (clone-mark point)))
524          (setf (offset point) (offset end-mark))
525          (possibly-fill-line)
526          (setf (offset point) (offset point-backup)))))
527    
528  (define-command com-extended-command ()  (define-command com-extended-command ()
529    (let ((item (accept 'command :prompt "Extended Command")))    (let ((item (accept 'command :prompt "Extended Command")))
530      (execute-frame-command *application-frame* item)))      (execute-frame-command *application-frame* item)))
# Line 1003  as two values" Line 1023  as two values"
1023  (global-set-key '(#\> :shift :meta) 'com-end-of-buffer)  (global-set-key '(#\> :shift :meta) 'com-end-of-buffer)
1024  (global-set-key '(#\m :meta) 'com-back-to-indentation)  (global-set-key '(#\m :meta) 'com-back-to-indentation)
1025  (global-set-key '(#\^ :shift :meta) 'com-delete-indentation)  (global-set-key '(#\^ :shift :meta) 'com-delete-indentation)
1026    (global-set-key '(#\q :meta) 'com-fill-paragraph)
1027  (global-set-key '(#\d :meta) 'com-delete-word)  (global-set-key '(#\d :meta) 'com-delete-word)
1028  (global-set-key '(#\Backspace :meta) 'com-backward-delete-word)  (global-set-key '(#\Backspace :meta) 'com-backward-delete-word)
1029  (global-set-key '(#\/ :meta) 'com-dabbrev-expand)  (global-set-key '(#\/ :meta) 'com-dabbrev-expand)

Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90

  ViewVC Help
Powered by ViewVC 1.1.5