mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00
Code Issues Releases Activity

* minibuffer.el (read-file-name): Check for repeat before putting

Browse Source 
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.
This commit is contained in:
Chong Yidong 2009-10-18 22:25:36 +00:00
parent 6873acca85
commit 7346a407f4
4 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ChangeLog
View File

@ -1,3 +1,14 @@
2009-10-18 Chong Yidong <cyd@stupidchicken.com>
* 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.
2009-10-18 Aaron S. Hawley <aaron.s.hawley@gmail.com> 2009-10-18 Aaron S. Hawley <aaron.s.hawley@gmail.com>
* textmodes/sgml-mode.el (sgml-tag-help): Prompt user for tag. * textmodes/sgml-mode.el (sgml-tag-help): Prompt user for tag.

5
lisp/emacs-lisp/lisp-mode.el
View File

@ -673,6 +673,11 @@ If CHAR is not a character, return nil."
(when (eq (preceding-char) ??) (when (eq (preceding-char) ??)
(forward-char -1))) (forward-char -1)))
;; Skip over hash table read syntax.
(and (> (point) (1+ (point-min)))
(looking-back "#s" (- (point) 2))
(forward-char -2))
;; Skip over `#N='s. ;; Skip over `#N='s.
(when (eq (preceding-char) ?=) (when (eq (preceding-char) ?=)
(let (labeled-p) (let (labeled-p)

8
lisp/minibuffer.el
View File

@ -1289,12 +1289,16 @@ and `read-file-name-function'."
(if replace-in-history (if replace-in-history
;; Replace what Fcompleting_read added to the history ;; Replace what Fcompleting_read added to the history
;; with what we will actually return. ;; with what we will actually return. As an exception,
;; if that's the same as the second item in
;; file-name-history, it's really a repeat (Bug#4657).
(let ((val1 (minibuffer--double-dollars val))) (let ((val1 (minibuffer--double-dollars val)))
(if history-delete-duplicates (if history-delete-duplicates
(setcdr file-name-history (setcdr file-name-history
(delete val1 (cdr file-name-history)))) (delete val1 (cdr file-name-history))))
(setcar file-name-history val1)) (if (string= val1 (cadr file-name-history))
(pop file-name-history)
(setcar file-name-history val1)))
(if add-to-history (if add-to-history
;; Add the value to the history--but not if it matches ;; Add the value to the history--but not if it matches
;; the last value already there. ;; the last value already there.

2
lisp/textmodes/sgml-mode.el
View File

@ -909,7 +909,7 @@ With prefix argument ARG, repeat this ARG times."
(kill-sexp 1)) (kill-sexp 1))
(setq open (point)) (setq open (point))
(when (and (sgml-skip-tag-forward 1) (when (and (sgml-skip-tag-forward 1)
(not (looking-back "/>"))) (not (sgml-looking-back-at "/>")))
(kill-sexp -1))) (kill-sexp -1)))
;; Delete any resulting empty line. If we didn't kill-sexp, ;; Delete any resulting empty line. If we didn't kill-sexp,
;; this *should* do nothing, because we're right after the tag. ;; this *should* do nothing, because we're right after the tag.