comparison lisp/emacs-lisp/edebug.el @ 67357:ad09fcb8cef5

(edebug-skip-whitespace): read1:lread.c says that comments end at \n, regardless of selective-display.

67356:568e3be4fb8c

(defun edebug-skip-whitespace ()
  ;; 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 " \t\r\n\f")))


;; Mostly obsolete reader; still used in one case.

67357:ad09fcb8cef5

(defun edebug-skip-whitespace ()
  ;; Leave point before the next token, skipping white space and comments.
  (skip-chars-forward " \t\r\n\f")
  (while (= (following-char) ?\;)
    (skip-chars-forward "^\n")  ; skip the comment
    (skip-chars-forward " \t\r\n\f")))


;; Mostly obsolete reader; still used in one case.