Commit f0d21379 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(pp-to-string): Treat #( like (.

parent 12a8a239
......@@ -41,8 +41,8 @@ that `read' can handle, whenever this is possible."
(while (not (eobp))
;; (message "%06d" (- (point-max) (point)))
(cond
((looking-at "\\s\(")
(while (looking-at "\\s(")
((looking-at "\\s(\\|#\\s(")
(while (looking-at "\\s(\\|#\\s(")
(forward-char 1)))
((and (looking-at "\\(quote[ \t]+\\)\\([^.)]\\)")
(> (match-beginning 1) 1)
......
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