Function: woman0-rename

woman0-rename is a byte-compiled function defined in woman.el.gz.

Signature

(woman0-rename)

Documentation

Effect renaming required by .rn requests.

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
(defun woman0-rename ()
  "Effect renaming required by .rn requests."
  ;; For now, do this backwards AFTER all macro expansion.
  (dolist (new woman0-rename-alist)
    (let ((old (cdr new))
          (new (car new)))
      (goto-char (point-min))
      (setq new (concat "^[.'][ \t]*" (regexp-quote new)))
      (setq old (concat "." old))
      (while (re-search-forward new nil t)
	(replace-match old nil t)))))