# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1007230852 0
# Node ID bf8b35f0db41e4ee808de3a164a2617823a6592b
# Parent  0a900c386e8fcb4693aa294781299a29ef54753e
(hif-nexttoken): Move to before first def.

diff -r 0a900c386e8f -r bf8b35f0db41 lisp/progmodes/hideif.el
--- a/lisp/progmodes/hideif.el	Sat Dec 01 18:16:58 2001 +0000
+++ b/lisp/progmodes/hideif.el	Sat Dec 01 18:20:52 2001 +0000
@@ -354,6 +354,10 @@
 ;;; 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 @@
     (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."