diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-01-11 05:47:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-01-11 05:47:14 +0000 |
| commit | ae34566ab46931b370c6f0133ec57640d67ac0b9 (patch) | |
| tree | f21397f9e57f07d5906f92b18c040b09a9a0a4fa /lisp/progmodes/hideif.el | |
| parent | 450b15a0b0103163eaeedf04e4158a1532b0984a (diff) | |
| download | emacs-ae34566ab46931b370c6f0133ec57640d67ac0b9.tar.gz emacs-ae34566ab46931b370c6f0133ec57640d67ac0b9.tar.bz2 emacs-ae34566ab46931b370c6f0133ec57640d67ac0b9.zip | |
(hif-tokenize): Handle // comments after #if.
Diffstat (limited to 'lisp/progmodes/hideif.el')
| -rw-r--r-- | lisp/progmodes/hideif.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el index 6394de36f71..a48e471f753 100644 --- a/lisp/progmodes/hideif.el +++ b/lisp/progmodes/hideif.el @@ -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)) |