Function: custom-redraw

custom-redraw is a byte-compiled function defined in cus-edit.el.gz.

Signature

(custom-redraw WIDGET)

Documentation

Redraw WIDGET with current settings.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-redraw (widget)
  "Redraw WIDGET with current settings."
  (let ((line (count-lines (point-min) (point)))
	(column (current-column))
	(pos (point))
	(from (marker-position (widget-get widget :from)))
	(to (marker-position (widget-get widget :to))))
    (save-excursion
      (widget-value-set widget (widget-value widget))
      (custom-redraw-magic widget))
    (when (and (>= pos from) (<= pos to))
      (condition-case nil
	  (progn
	    (goto-char (point-min))
	    (forward-line (if (> column 0)
			      (1- line)
			    line))
	    (move-to-column column))
	(error nil)))))