xeals/origami.el
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Elisp parser shows defun args

Browse Source
This commit is contained in:
Greg Sexton 2014-08-16 19:26:51 +01:00
parent 90a3c55a19
commit 80b7547ea8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
origami-parsers.el
View File

@ -75,7 +75,7 @@ children of the pair."
(let (beg end offset acc) (let (beg end offset acc)
(while (< (point) (point-max)) (while (< (point) (point-max))
(setq beg (point)) (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)) (setq offset (- (point) beg))
(end-of-defun) (end-of-defun)
(backward-char) (backward-char)