Commit 6a6e859a authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(edebug-skip-whitespace): read1:lread.c says

that comments end at \n, regardless of selective-display.
parent 25c7f315
2005-12-06 Stefan Monnier <monnier@iro.umontreal.ca>
* 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 <nickrob@snap.net.nz> 2005-12-07 Nick Roberts <nickrob@snap.net.nz>
   
* progmodes/gdb-ui.el (gdb-error-regexp, gdb-first-post-prompt) * progmodes/gdb-ui.el (gdb-error-regexp, gdb-first-post-prompt)
...@@ -23,8 +28,8 @@ ...@@ -23,8 +28,8 @@
(gdb-data-list-register-values-handler) (gdb-data-list-register-values-handler)
(gdb-data-list-register-values-custom) (gdb-data-list-register-values-custom)
(gdb-get-changed-registers, gdb-get-changed-registers-handler) (gdb-get-changed-registers, gdb-get-changed-registers-handler)
(gdb-stack-list-locals-handler, gdb-get-register-names): New (gdb-stack-list-locals-handler, gdb-get-register-names):
functions for use with GDB 6.4+. New functions for use with GDB 6.4+.
(gdb-locals-watch-map-1): New variable 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-source-file-regexp, gdb-var-list-children-regexp-1)
(gdb-var-update-regexp-1, gdb-data-list-register-values-regexp) (gdb-var-update-regexp-1, gdb-data-list-register-values-regexp)
......
...@@ -733,8 +733,7 @@ already is one.)" ...@@ -733,8 +733,7 @@ already is one.)"
;; Leave point before the next token, skipping white space and comments. ;; Leave point before the next token, skipping white space and comments.
(skip-chars-forward " \t\r\n\f") (skip-chars-forward " \t\r\n\f")
(while (= (following-char) ?\;) (while (= (following-char) ?\;)
;; \r is counted as a comment terminator to support selective display. (skip-chars-forward "^\n") ; skip the comment
(skip-chars-forward "^\n\r") ; skip the comment
(skip-chars-forward " \t\r\n\f"))) (skip-chars-forward " \t\r\n\f")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment