Function: woman-get-next-char

woman-get-next-char is a byte-compiled function defined in woman.el.gz.

Signature

(woman-get-next-char)

Documentation

Return and delete next char in buffer, including special chars.

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
;; A list of the form (\"[ace]\" (a . b) (c . d) (e . ?\s)) or nil.

(defun woman-get-next-char ()
  "Return and delete next char in buffer, including special chars."
  (if ;;(looking-at "\\\\(\\(..\\)")
      ;; Match special \(xx and strings \*[xxx], \*(xx, \*x:
      (looking-at "\\\\\\((..\\|\\*\\(\\[[^]]+\\]\\|(..\\|.\\)\\)")
      (prog1 (match-string 0)
	(woman-delete-match 0))
    (prog1 (char-to-string (following-char))
      (delete-char 1))))