Function: woman0-rn

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

Signature

(woman0-rn)

Documentation

Process .rn xx yy -- rename macro xx to yy.

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
;;; Process macro definitions:

(defun woman0-rn ()
  "Process .rn xx yy -- rename macro xx to yy."
  ;; For now, done backwards AFTER all macro expansion.
  ;; Should also allow requests and strings to be renamed!
  (if (eolp)				; ignore if no argument
      ()
    (let* ((beg (point))
	   (end (progn (woman-forward-arg 'unquote 'concat) (point)))
	   (old (buffer-substring beg end))
	   new)
      (if (eolp)			; ignore if no argument
	  ()
	(setq beg (point)
	      end (progn (woman-forward-arg 'unquote) (point))
	      new (buffer-substring beg end)
	      woman0-rename-alist (cons (cons new old) woman0-rename-alist)))))
  (woman-delete-whole-line))