diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-12-06 22:10:07 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-12-06 22:10:07 +0000 |
| commit | 6a6e859a93e0b5eb714c2bc4770bfef871e34ebd (patch) | |
| tree | 59b23e1617d50a7d2c41b8ffe0df4f1d5b1de24f /lisp/emacs-lisp | |
| parent | 25c7f31583f8b8de5138d6d82ca4917befc4712c (diff) | |
| download | emacs-6a6e859a93e0b5eb714c2bc4770bfef871e34ebd.tar.gz emacs-6a6e859a93e0b5eb714c2bc4770bfef871e34ebd.tar.bz2 emacs-6a6e859a93e0b5eb714c2bc4770bfef871e34ebd.zip | |
(edebug-skip-whitespace): read1:lread.c says
that comments end at \n, regardless of selective-display.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 765548083b5..01f1d760109 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -733,8 +733,7 @@ already is one.)" ;; Leave point before the next token, skipping white space and comments. (skip-chars-forward " \t\r\n\f") (while (= (following-char) ?\;) - ;; \r is counted as a comment terminator to support selective display. - (skip-chars-forward "^\n\r") ; skip the comment + (skip-chars-forward "^\n") ; skip the comment (skip-chars-forward " \t\r\n\f"))) |