Function: highlight-changes-previous-change

highlight-changes-previous-change is an autoloaded, interactive and byte-compiled function defined in hilit-chg.el.gz.

Signature

(highlight-changes-previous-change)

Documentation

Move to the beginning of the previous change, if in Highlight Changes mode.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/hilit-chg.el.gz
;;;###autoload
(defun highlight-changes-previous-change ()
  "Move to the beginning of the previous change, if in Highlight Changes mode."
  (interactive)
  (if highlight-changes-mode
      (let ( (start (point)) (prop nil) )
	(or (bobp)
	    (setq prop (get-text-property (1- (point)) 'hilit-chg)))
	(if prop
	    ;; we are in a change
	    (setq start (previous-single-property-change (point) 'hilit-chg)))
	(if start
	    (setq start (previous-single-property-change start 'hilit-chg)))
	;; special handling for the case where (point-min) is a change
	(if start
	    (setq start (or (previous-single-property-change start 'hilit-chg)
			    (if (get-text-property (point-min) 'hilit-chg)
				(point-min)))))
	(if start
	    (goto-char start)
	  (message "no previous change")))
    (message "This buffer is not in Highlight Changes mode.")))