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

Modified Files: syntax.lisp misc-commands.lisp core.lisp Log Message: A few small fixes.

--- /project/climacs/cvsroot/climacs/syntax.lisp 2006/08/11 21:59:05 1.69 +++ /project/climacs/cvsroot/climacs/syntax.lisp 2006/09/02 10:17:52 1.70 @@ -772,7 +772,7 @@ '(#\Newline #\Page)))

(defgeneric paragraph-delimiter (syntax) - (:documentation "Return the object used as a paragraph + (:documentation "Return the object sequence used as a paragraph deliminter in `syntax'.") (:method (syntax) '(#\Newline #\Newline))) \ No newline at end of file --- /project/climacs/cvsroot/climacs/misc-commands.lisp 2006/08/20 13:06:39 1.22 +++ /project/climacs/cvsroot/climacs/misc-commands.lisp 2006/09/02 10:17:52 1.23 @@ -203,7 +203,8 @@ (define-command (com-downcase-word :name t :command-table case-table) () "Convert the characters from point until the next word end to lower case. Leave point at the word end." - (downcase-word (point (current-window)))) + (downcase-word (point (current-window)) + (syntax (buffer (current-window)))))

(set-key 'com-downcase-word 'case-table @@ -217,7 +218,8 @@ of that word to upper case and the rest of the letters to lower case.

Leave point at the word end." - (capitalize-word (point (current-window)))) + (capitalize-word (point (current-window)) + (syntax (buffer (current-window)))))

(set-key 'com-capitalize-word 'case-table --- /project/climacs/cvsroot/climacs/core.lisp 2006/08/20 13:06:39 1.5 +++ /project/climacs/cvsroot/climacs/core.lisp 2006/09/02 10:17:52 1.6 @@ -145,14 +145,13 @@ ;;; ;;; Character case

-(defun downcase-word (mark &optional (n 1)) +(defun downcase-word (mark syntax &optional (n 1)) "Convert the next N words to lowercase, leaving mark after the last word." - (let ((syntax (syntax (buffer mark)))) - (loop repeat n - do (forward-to-word-boundary mark syntax) - (let ((offset (offset mark))) - (forward-word mark syntax 1 nil) - (downcase-region offset mark))))) + (loop repeat n + do (forward-to-word-boundary mark syntax) + (let ((offset (offset mark))) + (forward-word mark syntax 1 nil) + (downcase-region offset mark))))

(defun upcase-word (mark syntax &optional (n 1)) "Convert the next N words to uppercase, leaving mark after the last word." @@ -162,14 +161,13 @@ (forward-word mark syntax 1 nil) (upcase-region offset mark))))

-(defun capitalize-word (mark &optional (n 1)) +(defun capitalize-word (mark syntax &optional (n 1)) "Capitalize the next N words, leaving mark after the last word." - (let ((syntax (syntax (buffer mark)))) - (loop repeat n - do (forward-to-word-boundary mark syntax) - (let ((offset (offset mark))) - (forward-word mark syntax 1 nil) - (capitalize-region offset mark))))) + (loop repeat n + do (forward-to-word-boundary mark syntax) + (let ((offset (offset mark))) + (forward-word mark syntax 1 nil) + (capitalize-region offset mark))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -693,7 +691,7 @@ (error () (progn (beep) (display-message "Invalid answer") (return-from frame-exit nil))))) - do (save-buffer buffer)) + do (save-buffer buffer frame)) (when (or (notany #'(lambda (buffer) (and (needs-saving buffer) (filepath buffer))) (buffers frame)) (handler-case (accept 'boolean :prompt "Modified buffers exist. Quit anyway?")