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

diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el
index ba12b7cbffd8ca2a7b9acbc5b1b4d558e048070f..e814f296f0eec25a9cd93930442b7d61533aa5e5 100644 (file)
--- 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."