[Phemlock-cvs] CVS update: phemlock/src/core/htext2.lisp

[Dan Barlow]

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)