Elisp parser shows defun args

2014-08-16 19:26:51 +01:00 · 2014-08-16 19:26:51 +01:00 · 80b7547ea8
commit 80b7547ea8
parent 90a3c55a19
1 changed files with 1 additions and 1 deletions
--- a/origami-parsers.el
+++ b/origami-parsers.el
@ -75,7 +75,7 @@ children of the pair."
      (let (beg end offset acc)
        (while (< (point) (point-max))
          (setq beg (point))
-          (search-forward-regexp "(def\\w*\\s-*\\(\\s_\\|\\w\\)*" nil t)
+          (search-forward-regexp "(def\\w*\\s-*\\(\\s_\\|\\w\\|[?!]\\)*\\([ \\t]*(.*?)\\)?" nil t)
          (setq offset (- (point) beg))
          (end-of-defun)
          (backward-char)