mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

* lisp/progmodes/sh-script.el (sh-font-lock-paren, sh-kw, sh-prev-thing):

Browse Source 
Handle new bashisms ";&" and ";;&".

Fixes: debbugs:7947
This commit is contained in:
Stefan Monnier 2011-02-05 10:53:04 -05:00
parent 156ad271e5
commit 7cb76591b0
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -1,7 +1,12 @@
2011-02-05 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/sh-script.el (sh-font-lock-paren, sh-kw, sh-prev-thing):
Handle new bashisms ";&" and ";;&" (bug#7947).
2011-02-05 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-smb.el (tramp-smb-errors): Use `regexp-opt'. Add
"NT_STATUS_IO_TIMEOUT" and "NT_STATUS_NO_SUCH_USER".
* net/tramp-smb.el (tramp-smb-errors): Use `regexp-opt'.
Add "NT_STATUS_IO_TIMEOUT" and "NT_STATUS_NO_SUCH_USER".
2011-02-05 Era Eriksson <era+tramp@iki.fi> (tiny change)

6
lisp/progmodes/sh-script.el
View File

@ -1104,7 +1104,7 @@ subshells can nest."
;; a normal command rather than the real `in' keyword.
;; I.e. we should look back to try and find the
;; corresponding `case'.
(looking-at ";;\\|in"))
(looking-at ";[;&]\\|in"))
sh-st-punc)))
(defun sh-font-lock-backslash-quote ()
@ -1659,6 +1659,8 @@ This adds rules for comments and assignments."
("esac" sh-handle-this-esac sh-handle-prev-esac)
(case-label nil sh-handle-after-case-label) ;; ???
(";;" nil sh-handle-prev-case-alt-end) ;; ???
(";;&" nil sh-handle-prev-case-alt-end) ;Like ";;" with diff semantics.
(";&" nil sh-handle-prev-case-alt-end) ;Like ";;" with diff semantics.
("done" sh-handle-this-done sh-handle-prev-done)
("do" sh-handle-this-do sh-handle-prev-do))
@ -2496,7 +2498,7 @@ we go to the end of the previous line and do not check for continuations."
(sh-prev-line nil)
(line-beginning-position))))
(skip-chars-backward " \t;" min-point)
(if (looking-at "\\s-*;;")
(if (looking-at "\\s-*;[;&]")
;; (message "Found ;; !")
";;"
(skip-chars-backward "^)}];\"'`({[" min-point)