Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 25642:556711217681
(eval-last-sexp): If after ?\LETTER, use all of that as the sexp.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 12 Sep 1999 02:17:20 +0000 |
| parents | 4feb8ce584a5 |
| children | 00b4eac00979 |
comparison
equal
deleted
inserted
replaced
| 25641:952461b8fdaf | 25642:556711217681 |
|---|---|
| 338 ;; then ignore the surrounding quotes. | 338 ;; then ignore the surrounding quotes. |
| 339 (setq ignore-quotes | 339 (setq ignore-quotes |
| 340 (or (eq (following-char) ?\') | 340 (or (eq (following-char) ?\') |
| 341 (eq (preceding-char) ?\'))) | 341 (eq (preceding-char) ?\'))) |
| 342 (forward-sexp -1) | 342 (forward-sexp -1) |
| 343 ;; If we were after `?\e' (or similar case), | |
| 344 ;; use the whole thing, not just the `e'. | |
| 345 (when (eq (preceding-char) ?\\) | |
| 346 (forward-char -1) | |
| 347 (when (eq (preceding-char) ??) | |
| 348 (forward-char -1))) | |
| 343 (save-restriction | 349 (save-restriction |
| 344 ;; vladimir@cs.ualberta.ca 30-Jul-1997: skip ` in | 350 ;; vladimir@cs.ualberta.ca 30-Jul-1997: skip ` in |
| 345 ;; `variable' so that the value is returned, not the | 351 ;; `variable' so that the value is returned, not the |
| 346 ;; name | 352 ;; name |
| 347 (if (and ignore-quotes | 353 (if (and ignore-quotes |