Function: woman-unquote

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

Signature

(woman-unquote TO)

Documentation

Delete any double-quote characters between point and TO.

Leave point at TO (which should be a marker).

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
;;; Formatting macros that do not cause a break:

(defun woman-unquote (to)
  "Delete any double-quote characters between point and TO.
Leave point at TO (which should be a marker)."
  (let (in-quote)
    (while (search-forward "\"" to 1)
      (if (and in-quote (looking-at "\""))
	  ;; Repeated double-quote represents single double-quote
	  (delete-char 1)
	(if (or in-quote (looking-at ".*\"")) ; paired
	    (delete-char -1))
	(setq in-quote (not in-quote))
	))
    (if in-quote
	(WoMan-warn "Unpaired \" in .%s arguments." woman-request))))