procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix previous commit (again)

Browse source
This commit is contained in:
Daniel Colascione 2015-03-23 01:50:42 -07:00
parent b8d7d7e8e6
commit bad7308e0c
1 changed files with 16 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
lisp/emacs-lisp/lisp-mode.el
View file

@ -190,19 +190,22 @@
(goto-char pos)
(or (eql (char-before) ?\')
(let ((parent
(up-list -1)
(cond
((looking-at (rx "(" (* (syntax -)) "("))
(up-list -1)
(when (looking-at "(\\_<let\\*?\\_>")
(goto-char (match-end 0))
'let))
((looking-at
(rx "("
(group-n 1 (+ (or (syntax w) (syntax _))))
symbol-end))
(prog1 (intern-soft (match-string-no-properties 1))
(goto-char (match-end 1)))))))
(progn
(up-list -1)
(cond
((ignore-errors
(and (eql (char-after) ?\()
(progn
(up-list -1)
(looking-at "(\\_<let\\*?\\_>"))))
(goto-char (match-end 0))
'let)
((looking-at
(rx "("
(group-n 1 (+ (or (syntax w) (syntax _))))
symbol-end))
(prog1 (intern-soft (match-string-no-properties 1))
(goto-char (match-end 1))))))))
(or (eq parent 'declare)
(and (eq parent 'let)
(progn