Function: crisp-home

crisp-home is an interactive and byte-compiled function defined in crisp.el.gz.

Signature

(crisp-home)

Documentation

"Home" the point, the way CRiSP would do it.

The first use moves point to beginning of the line. Second consecutive use moves point to beginning of the screen. Third consecutive use moves point to the beginning of the buffer.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/crisp.el.gz
(defun crisp-home ()
  "\"Home\" the point, the way CRiSP would do it.
The first use moves point to beginning of the line.  Second
consecutive use moves point to beginning of the screen.  Third
consecutive use moves point to the beginning of the buffer."
  (interactive nil)
  (cond
    ((and (eq last-command 'crisp-home)
	  (eq crisp-last-last-command 'crisp-home))
     (goto-char (point-min)))
    ((eq last-command 'crisp-home)
     (move-to-window-line 0))
    (t
     (beginning-of-line)))
  (setq crisp-last-last-command last-command))