changeset 41753:bf8b35f0db41

(hif-nexttoken): Move to before first def.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 01 Dec 2001 18:20:52 +0000
parents 0a900c386e8f
children e78fbcf9b878
files lisp/progmodes/hideif.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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."