mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* progmodes/sh-script.el (sh-maybe-here-document): Avoid inserting

Browse source 
another heredoc if the user adds another < (Bug#3226).
This commit is contained in:
Chong Yidong 2009-08-16 14:04:25 +00:00
parent a0645cddf0
commit 1abbe4e531
2 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2009-08-16 Chong Yidong <cyd@stupidchicken.com>
* progmodes/sh-script.el (sh-maybe-here-document): Avoid inserting
another heredoc if the user adds another < (Bug#3226).
* mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event): Don't
initialize based on window-system (Bug#4124).

2
lisp/progmodes/sh-script.el
View file

@ -3749,7 +3749,7 @@ The document is bounded by `sh-here-document-word'."
(interactive "*P")
(self-insert-command (prefix-numeric-value arg))
(or arg
(not (eq (char-after (- (point) 2)) last-command-event))
(not (looking-back "[^<]<<"))
(save-excursion
(backward-char 2)
(sh-quoted-p))