Update of /project/phemlock/cvsroot/phemlock/src/core In directory common-lisp.net:/tmp/cvs-serv8366/src/core
Modified Files: htext2.lisp Log Message: format string for ERROR was missing an argument Date: Fri Jul 9 08:41:24 2004 Author: dbarlow
Index: phemlock/src/core/htext2.lisp diff -u phemlock/src/core/htext2.lisp:1.1 phemlock/src/core/htext2.lisp:1.2 --- phemlock/src/core/htext2.lisp:1.1 Fri Jul 9 08:00:36 2004 +++ phemlock/src/core/htext2.lisp Fri Jul 9 08:41:24 2004 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; #+CMU (ext:file-comment - "$Header: /project/phemlock/cvsroot/phemlock/src/core/htext2.lisp,v 1.1 2004/07/09 15:00:36 gbaumann Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/core/htext2.lisp,v 1.2 2004/07/09 15:41:24 dbarlow Exp $") ;;; ;;; ********************************************************************** ;;; @@ -231,13 +231,13 @@ (defun buffer-start (mark &optional (buffer (line-buffer (mark-line mark)))) "Change Mark to point to the beginning of Buffer, which defaults to the buffer Mark is currently in." - (unless buffer (error "Mark ~S does not point into a buffer.")) + (unless buffer (error "Mark ~S does not point into a buffer." mark)) (move-mark mark (buffer-start-mark buffer)))
(defun buffer-end (mark &optional (buffer (line-buffer (mark-line mark)))) "Change Mark to point to the end of Buffer, which defaults to the buffer Mark is currently in." - (unless buffer (error "Mark ~S does not point into a buffer.")) + (unless buffer (error "Mark ~S does not point into a buffer." mark)) (move-mark mark (buffer-end-mark buffer)))
(defun move-mark (mark new-position)