From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 20 May 1997 18:49:06 +0000 (+0000)
Subject: (crisp-last-last-command): Renamed from last-last-command
X-Git-Tag: emacs-20.1~2045
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f4ff0fb4feedde7155855de8a6226d998b2ee526;p=emacs.git

(crisp-last-last-command): Renamed from last-last-command
and defvar added.
---

diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el
index 81148bf04d7..93f20715e9d 100644
--- a/lisp/emulation/crisp.el
+++ b/lisp/emulation/crisp.el
@@ -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