Mercurial > hg > xemacs-beta

comparison lisp/register.el @ 3288:f45c9ff6f425

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-03-17 16:54:59 by james] Fix an incomplete Emacs sync. See xemacs-patches message <m3k6avjrtm.fsf@jerrypc.cs.usu.edu> and its followups.
author james
date Fri, 17 Mar 2006 16:55:00 +0000
parents cae0c437c95a
children 2e528066e2fc
comparison
equal deleted inserted replaced
3287:681d0fbb904e 3288:f45c9ff6f425
229 (setq val (cdr val)))) 229 (setq val (cdr val))))
230 (princ "a rectangle starting with ") 230 (princ "a rectangle starting with ")
231 (princ (car val)))) 231 (princ (car val))))
232 232
233 ((stringp val) 233 ((stringp val)
234 (remove-list-of-text-properties 0 (length val) 234 ;; XEmacs change: we don't have remove-list-of-text-properties
235 yank-excluded-properties val) 235 (set-text-properties 0 (length val) nil val)
236 (if verbose 236 (if verbose
237 (progn 237 (progn
238 (princ "the text:\n") 238 (princ "the text:\n")
239 (princ val)) 239 (princ val))
240 (cond 240 (cond