Commit b8d7d7e8 authored by Daniel Colascione's avatar Daniel Colascione
Browse files

Fix previous commit

parent d235b1d2
...@@ -186,32 +186,32 @@ ...@@ -186,32 +186,32 @@
(setf pos (or pos (point))) (setf pos (or pos (point)))
(save-match-data (save-match-data
(save-excursion (save-excursion
(goto-char pos) (ignore-errors
(or (eql (char-before) ?\') (goto-char pos)
(let ((parent (or (eql (char-before) ?\')
(ignore-errors (let ((parent
(up-list -1) (up-list -1)
(cond (cond
((looking-at (rx "(" (* (syntax -)) "(")) ((looking-at (rx "(" (* (syntax -)) "("))
(up-list -1) (up-list -1)
(when (looking-at "(\\_<let\\*?\\_>") (when (looking-at "(\\_<let\\*?\\_>")
(goto-char (match-end 0)) (goto-char (match-end 0))
'let)) 'let))
((looking-at ((looking-at
(rx "(" (rx "("
(group-n 1 (+ (or (syntax w) (syntax _)))) (group-n 1 (+ (or (syntax w) (syntax _))))
symbol-end)) symbol-end))
(prog1 (intern-soft (match-string-no-properties 1)) (prog1 (intern-soft (match-string-no-properties 1))
(goto-char (match-end 1)))))))) (goto-char (match-end 1)))))))
(or (eq parent 'declare) (or (eq parent 'declare)
(and (eq parent 'let) (and (eq parent 'let)
(progn (progn
(forward-sexp 1) (forward-sexp 1)
(< pos (point)))) (< pos (point))))
(and (eq parent 'condition-case) (and (eq parent 'condition-case)
(progn (progn
(forward-sexp 2) (forward-sexp 2)
(< (point) pos))))))))) (< (point) pos))))))))))
(defun lisp--el-match-keyword (limit) (defun lisp--el-match-keyword (limit)
(catch 'found (catch 'found
......
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