mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
that comments end at \n, regardless of selective-display.
This commit is contained in:
Stefan Monnier 2005-12-06 22:10:07 +00:00
parent 25c7f31583
commit 6a6e859a93
2 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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 @@
(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)

3
lisp/emacs-lisp/edebug.el
View file

@ -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")))