Mercurial > hg > xemacs-beta

comparison lisp/register.el @ 300:3cc9f0ebfbd1 r21-0b48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b48
author cvs
date Mon, 13 Aug 2007 10:40:26 +0200
parents 558f606b08ae
children
comparison
equal deleted inserted replaced
299:24cff6e8d715 300:3cc9f0ebfbd1
238 (princ val (current-buffer))) 238 (princ val (current-buffer)))
239 ((and (markerp val) (marker-position val)) 239 ((and (markerp val) (marker-position val))
240 (princ (marker-position val) (current-buffer))) 240 (princ (marker-position val) (current-buffer)))
241 (t 241 (t
242 (error "Register does not contain text")))) 242 (error "Register does not contain text"))))
243 (if (not arg) (exchange-point-and-mark))) 243 ;; XEmacs: don't activate the region. It's annoying.
244 (if (not arg) (exchange-point-and-mark t)))
244 245
245 (defun copy-to-register (register start end &optional delete-flag) 246 (defun copy-to-register (register start end &optional delete-flag)
246 "Copy region into register REGISTER. With prefix arg, delete as well. 247 "Copy region into register REGISTER. With prefix arg, delete as well.
247 Called from program, takes four args: REGISTER, START, END and DELETE-FLAG. 248 Called from program, takes four args: REGISTER, START, END and DELETE-FLAG.
248 START and END are buffer positions indicating what to copy." 249 START and END are buffer positions indicating what to copy."