/[cmucl]/src/hemlock/htext2.lisp
ViewVC logotype

Diff of /src/hemlock/htext2.lisp

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

revision 1.1.1.2 by ram, Fri Feb 8 16:35:07 1991 UTC revision 1.4 by emarsden, Sun Mar 28 15:48:11 2004 UTC
# Line 3  Line 3 
3  ;;; **********************************************************************  ;;; **********************************************************************
4  ;;; This code was written as part of the CMU Common Lisp project at  ;;; This code was written as part of the CMU Common Lisp project at
5  ;;; Carnegie Mellon University, and has been placed in the public domain.  ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;; If you want to use this code or any part of CMU Common Lisp, please contact  
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.  
6  ;;;  ;;;
7  (ext:file-comment  (ext:file-comment
8    "$Header$")    "$Header$")
# Line 241  Line 239 
239  (defun buffer-start (mark &optional (buffer (line-buffer (mark-line mark))))  (defun buffer-start (mark &optional (buffer (line-buffer (mark-line mark))))
240    "Change Mark to point to the beginning of Buffer, which defaults to    "Change Mark to point to the beginning of Buffer, which defaults to
241    the buffer Mark is currently in."    the buffer Mark is currently in."
242    (unless buffer (error "Mark ~S does not point into a buffer."))    (unless buffer (error "Mark ~S does not point into a buffer." mark))
243    (move-mark mark (buffer-start-mark buffer)))    (move-mark mark (buffer-start-mark buffer)))
244    
245  (defun buffer-end (mark &optional (buffer (line-buffer (mark-line mark))))  (defun buffer-end (mark &optional (buffer (line-buffer (mark-line mark))))
246    "Change Mark to point to the end of Buffer, which defaults to    "Change Mark to point to the end of Buffer, which defaults to
247    the buffer Mark is currently in."    the buffer Mark is currently in."
248    (unless buffer (error "Mark ~S does not point into a buffer."))    (unless buffer (error "Mark ~S does not point into a buffer." mark))
249    (move-mark mark (buffer-end-mark buffer)))    (move-mark mark (buffer-end-mark buffer)))
250    
251  (defun move-mark (mark new-position)  (defun move-mark (mark new-position)

Legend:
Removed from v.1.1.1.2  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5