Mercurial > emacs
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."