Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 19:37:58 +00:00
Code Issues Projects Releases Packages Wiki Activity

(crisp-last-last-command): Renamed from last-last-command

Browse source 
and defvar added.
This commit is contained in:
Richard M. Stallman 1997-05-20 18:49:06 +00:00
parent 9108fd3aef
commit f4ff0fb4fe
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/emulation/crisp.el
View file

@ -88,9 +88,12 @@ does not load Scroll All.")
(defvar crisp-load-hook nil
"Hooks to run after loadint the CRiSP emulator package.")
(defvar crisp-version "crisp.el release 1.1/$Revision: 1.3 $"
(defvar crisp-version "crisp.el release 1.1/$Revision: 1.4 $"
"The release number and RCS version for the CRiSP emulator.")
(defvar crisp-last-last-command nil
"The command *before* the last command.")
(if (string-match "XEmacs\\Lucid" emacs-version)
(add-minor-mode 'crisp-mode-enabled crisp-mode-modeline-string)
(or (assq 'crisp-mode-enabled minor-mode-alist)
@ -177,13 +180,14 @@ 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 last-last-command 'crisp-home))
((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 last-last-command last-command))
(setq crisp-last-last-command last-command))
(defun crisp-end ()
"\"End\" point, the way CRiSP would do it.
@ -192,14 +196,14 @@ consecutive use moves point to the end of the screen. Third
consecutive use moves point to the end of the buffer."
(interactive nil)
(cond
((and (eq last-command 'crisp-end) (eq last-last-command 'crisp-end))
((and (eq last-command 'crisp-end) (eq crisp-last-last-command 'crisp-end))
(goto-char (point-max)))
((eq last-command 'crisp-end)
(move-to-window-line -1)
(end-of-line))
(t
(end-of-line)))
(setq last-last-command last-command))
(setq crisp-last-last-command last-command))
;; Now enable the mode