Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b8d7d7e8
Commit
b8d7d7e8
authored
Mar 23, 2015
by
Daniel Colascione
Browse files
Fix previous commit
parent
d235b1d2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
25 additions
and
25 deletions
+25
-25
lisp/emacs-lisp/lisp-mode.el
lisp/emacs-lisp/lisp-mode.el
+25
-25
No files found.
lisp/emacs-lisp/lisp-mode.el
View file @
b8d7d7e8
...
...
@@ -186,32 +186,32 @@
(setf pos (or pos (point)))
(save-match-data
(save-excursion
(
goto-char pos)
(or (eql (char-before) ?\'
)
(let ((parent
(ignore-errors
(
ignore-errors
(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)))))))
)
(or (eq parent 'declare)
(and (eq parent 'let)
(progn
(forward-sexp 1)
(< pos (point))))
(and (eq parent 'condition-case)
(progn
(forward-sexp 2)
(< (point) pos)))))))))
(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)))))))
(or (eq parent 'declare)
(and (eq parent 'let)
(progn
(forward-sexp 1)
(< pos (point))))
(and (eq parent 'condition-case)
(progn
(forward-sexp 2)
(< (point) pos)))))))))
)
(defun lisp--el-match-keyword (limit)
(catch 'found
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment