mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

(hif-tokenize): Handle // comments after #if.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-01-11 05:47:14 +00:00
parent 450b15a0b0
commit ae34566ab4
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/progmodes/hideif.el
View File

@ -402,6 +402,11 @@ that form should be displayed.")
(aset expr-string (1- expr-start) ?\n)
)
((string-match "^//" expr-string expr-start)
(string-match "$" expr-string expr-start)
(setq expr-start (match-end 0))
)
((string-match hif-token-regexp expr-string expr-start)
(let ((token (substring expr-string expr-start (match-end 0))))
(setq expr-start (match-end 0))