Mercurial > emacs

comparison lisp/woman.el @ 91048:d38543a1c0f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 880-885) - Remove RCS keywords from doc/misc/cc-mode.texi - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-264
author Miles Bader <miles@gnu.org>
date Sat, 13 Oct 2007 05:53:03 +0000
parents 14c4a6aac623 41439f6baee9
children a0e466c4d599
comparison
equal deleted inserted replaced
91047:1cf8ecbaa1dc 91048:d38543a1c0f9
2714 (woman-delete-whole-line)) 2714 (woman-delete-whole-line))
2715 2715
2716 (defun woman0-rename () 2716 (defun woman0-rename ()
2717 "Effect renaming required by .rn requests." 2717 "Effect renaming required by .rn requests."
2718 ;; For now, do this backwards AFTER all macro expansion. 2718 ;; For now, do this backwards AFTER all macro expansion.
2719 (dolist ((new woman0-rename-alist)) 2719 (dolist (new woman0-rename-alist)
2720 (let ((old (cdr new)) 2720 (let ((old (cdr new))
2721 (new (car new))) 2721 (new (car new)))
2722 (goto-char (point-min)) 2722 (goto-char (point-min))
2723 (setq new (concat "^[.'][ \t]*" (regexp-quote new))) 2723 (setq new (concat "^[.'][ \t]*" (regexp-quote new)))
2724 (setq old (concat "." old)) 2724 (setq old (concat "." old))