From 6a6e859a93e0b5eb714c2bc4770bfef871e34ebd Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 6 Dec 2005 22:10:07 +0000 Subject: [PATCH] (edebug-skip-whitespace): read1:lread.c says that comments end at \n, regardless of selective-display. --- lisp/ChangeLog | 9 +++++++-- lisp/emacs-lisp/edebug.el | 3 +-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e0b9a01107b..9061ec433a4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-12-06 Stefan Monnier + + * emacs-lisp/edebug.el (edebug-skip-whitespace): read1:lread.c says + that comments end at \n, regardless of selective-display. + 2005-12-07 Nick Roberts * progmodes/gdb-ui.el (gdb-error-regexp, gdb-first-post-prompt) @@ -23,8 +28,8 @@ (gdb-data-list-register-values-handler) (gdb-data-list-register-values-custom) (gdb-get-changed-registers, gdb-get-changed-registers-handler) - (gdb-stack-list-locals-handler, gdb-get-register-names): New - functions for use with GDB 6.4+. + (gdb-stack-list-locals-handler, gdb-get-register-names): + New functions for use with GDB 6.4+. (gdb-locals-watch-map-1): New variable for use with GDB 6.4+. (gdb-source-file-regexp, gdb-var-list-children-regexp-1) (gdb-var-update-regexp-1, gdb-data-list-register-values-regexp) 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"))) -- 2.39.2