From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 1 Dec 2001 18:20:52 +0000 (+0000)
Subject: (hif-nexttoken): Move to before first def.
X-Git-Tag: ttn-vms-21-2-B4~17963
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f1259a53b014c4b72c6fac5a166aac8e23f48a38;p=emacs.git

(hif-nexttoken): Move to before first def.
---

diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el
index ba12b7cbffd..e814f296f0e 100644
--- a/lisp/progmodes/hideif.el
+++ b/lisp/progmodes/hideif.el
@@ -354,6 +354,10 @@ that form should be displayed.")
 ;;; This parser is limited to the operators &&, ||, !, and "defined".
 ;;; Added ==, !=, +, and -.  Gary Oberbrunner, garyo@avs.com, 8/9/94
 
+(defsubst hif-nexttoken ()
+  "Pop the next token from token-list into the let variable \"hif-token\"."
+  (setq hif-token (pop hif-token-list)))
+
 (defun hif-parse-if-exp (hif-token-list)
   "Parse the TOKEN-LIST.  Return translated list in prefix form."
   (hif-nexttoken)
@@ -362,10 +366,6 @@ that form should be displayed.")
     (if hif-token ; is there still a token?
 	(error "Error: unexpected token: %s" hif-token))))
 
-(defsubst hif-nexttoken ()
-  "Pop the next token from token-list into the let variable \"hif-token\"."
-  (setq hif-token (pop hif-token-list)))
-
 (defun hif-expr ()
   "Parse an expression as found in #if.
        expr : term | expr '||' term."