Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv30103

Modified Files: gui.lisp Log Message: Added some docstrings to commands.

--- /project/climacs/cvsroot/climacs/gui.lisp 2006/05/02 18:02:15 1.211 +++ /project/climacs/cvsroot/climacs/gui.lisp 2006/05/04 19:03:46 1.212 @@ -314,6 +314,8 @@ (find-command-table 'global-climacs-table)))

(define-command (com-full-redisplay :name t :command-table base-table) () + "Redisplay the contents of the current window. +FIXME: does this really have that effect?" (full-redisplay (current-window)))

(set-key 'com-full-redisplay @@ -332,6 +334,8 @@ (beep))))))

(define-command (com-load-file :name t :command-table base-table) () + "Prompt for a filename and CL:LOAD that file. +Signals and error if the file does not exist." (let ((filepath (accept 'pathname :prompt "Load File"))) (load-file filepath)))

@@ -429,6 +433,8 @@ ;; (note-pane-syntax-changed pane (syntax buffer)))

(define-command (com-switch-to-buffer :name t :command-table pane-table) () + "Prompt for a buffer name and switch to that buffer. +If the a buffer with that name does not exist, create it. Uses the name of the next buffer (if any) as a default." (let* ((default (second (buffers *application-frame*))) (buffer (if default (accept 'buffer @@ -469,6 +475,8 @@ (kill-buffer (buffer (current-window))))

(define-command (com-kill-buffer :name t :command-table pane-table) () + "Prompt for a buffer name and kill that buffer. +If the buffer needs saving, will prompt you to do so before killing it. Uses the current buffer as a default." (let ((buffer (accept 'buffer :prompt "Kill buffer" :default (buffer (current-window))