Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 105664:6a6fcf3e8e4d
* minibuffer.el (read-file-name): Check for repeat before putting
a default argument in file-name-history (Bug#4657).
* emacs-lisp/lisp-mode.el (preceding-sexp): Recognize hash table
read syntax (Bug#4737).
* textmodes/sgml-mode.el (sgml-delete-tag): Use
sgml-looking-back-at.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 18 Oct 2009 22:25:36 +0000 |
| parents | f2e56d1eff32 |
| children | b0a732611398 |
comparison
equal
deleted
inserted
replaced
| 105663:2b51dcf71b63 | 105664:6a6fcf3e8e4d |
|---|---|
| 670 ;; use the whole thing, not just the `e'. | 670 ;; use the whole thing, not just the `e'. |
| 671 (when (eq (preceding-char) ?\\) | 671 (when (eq (preceding-char) ?\\) |
| 672 (forward-char -1) | 672 (forward-char -1) |
| 673 (when (eq (preceding-char) ??) | 673 (when (eq (preceding-char) ??) |
| 674 (forward-char -1))) | 674 (forward-char -1))) |
| 675 | |
| 676 ;; Skip over hash table read syntax. | |
| 677 (and (> (point) (1+ (point-min))) | |
| 678 (looking-back "#s" (- (point) 2)) | |
| 679 (forward-char -2)) | |
| 675 | 680 |
| 676 ;; Skip over `#N='s. | 681 ;; Skip over `#N='s. |
| 677 (when (eq (preceding-char) ?=) | 682 (when (eq (preceding-char) ?=) |
| 678 (let (labeled-p) | 683 (let (labeled-p) |
| 679 (save-excursion | 684 (save-excursion |