Function: woman-horizontal-line

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

Signature

(woman-horizontal-line)

Documentation

\l'Nc' -- Draw a horizontal line of length N using character c, default _.

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
(defun woman-horizontal-line ()
  "\\l\\='Nc\\=' -- Draw a horizontal line of length N using character c, default _."
  (delete-char -1)
  (delete-char 1)
  (looking-at "\\(.\\)\\(.*\\)\\1")
  (forward-char 1)
  (let* ((to (match-end 2))
         (from (match-beginning 0))
         (N (woman-parse-numeric-arg))
         (c (if (< (point) to) (following-char) ?_)))
    (delete-region from to)
    (delete-char 1)
    (insert (make-string N c))))