Function: custom-group--draw-horizontal-line

custom-group--draw-horizontal-line is a byte-compiled function defined in cus-edit.el.gz.

Signature

(custom-group--draw-horizontal-line)

Documentation

Draw a horizontal line at point.

This works for both graphical and text displays.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-group--draw-horizontal-line ()
  "Draw a horizontal line at point.
This works for both graphical and text displays."
  (let ((p (point)))
    (insert "\n")
    (put-text-property p (1+ p) 'face '(:underline t))
    (overlay-put (make-overlay p (1+ p))
		 'before-string
		 (propertize "\n" 'face '(:underline t)
                             'display
                             (list 'space :align-to
                                   `(+ (0 . right)
                                       ,(min (window-hscroll)
                                             (- (line-end-position)
                                                (line-beginning-position)))))))))