diff options
author | Glenn Morris <rgm@gnu.org> | 2012-09-05 00:05:56 -0700 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2012-09-05 00:05:56 -0700 |
commit | 7e570fbf3ef8ccd31df2651f5d2775c5697d5950 (patch) | |
tree | 2a722a870a0240ded0b1fcffb34f52a1d7d668e3 | |
parent | 1a1ecd2b14f38fcd995516a71b49c8810eac5828 (diff) | |
parent | f1220388bca64f31182daacfb2eefcc8053af11a (diff) |
Merge from emacs-24; up to 2012-05-05T02:50:20Z!monnier@iro.umontreal.ca
-rw-r--r-- | lisp/ChangeLog | 22 | ||||
-rw-r--r-- | lisp/calendar/holidays.el | 2 | ||||
-rw-r--r-- | lisp/emulation/cua-rect.el | 2 | ||||
-rw-r--r-- | lisp/play/blackbox.el | 2 | ||||
-rw-r--r-- | lisp/progmodes/flymake.el | 5 | ||||
-rw-r--r-- | lisp/progmodes/sh-script.el | 31 | ||||
-rw-r--r-- | lisp/textmodes/picture.el | 8 |
7 files changed, 52 insertions, 20 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 64dda45276..817175ebfe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,25 @@ +2012-09-05 Glenn Morris <rgm@gnu.org> + + * emulation/cua-rect.el (cua--init-rectangles): + * textmodes/picture.el (picture-mode-map): + * play/blackbox.el (blackbox-mode-map): Remap right-char and left-char + like forward-char and backward-char. (Bug#12317) + +2012-09-05 Leo Liu <sdl.web@gmail.com> + + * progmodes/flymake.el (flymake-warning-re): New variable. + (flymake-parse-line): Use it. + +2012-09-05 Glenn Morris <rgm@gnu.org> + + * calendar/holidays.el (holiday-christian-holidays): + Rename an entry. (Bug#12289) + +2012-09-05 Stefan Monnier <monnier@iro.umontreal.ca> + + * progmodes/sh-script.el (sh-font-lock-paren): Don't burp at BOB + (bug#12222). + 2012-09-04 Stefan Monnier <monnier@iro.umontreal.ca> * loadup.el: Load macroexp. Remove hack. diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el index 043d402f61..9643a1e290 100644 --- a/lisp/calendar/holidays.el +++ b/lisp/calendar/holidays.el @@ -250,7 +250,7 @@ See the documentation for `calendar-holidays' for details." (if calendar-christian-all-holidays-flag (append (holiday-fixed 1 6 "Epiphany") - (holiday-julian 12 25 "Eastern Orthodox Christmas") + (holiday-julian 12 25 "Christmas (Julian calendar)") (holiday-greek-orthodox-easter) (holiday-fixed 8 15 "Assumption") (holiday-advent 0 "Advent"))))) diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 39ce590152..f63d79adf4 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el @@ -1423,7 +1423,9 @@ With prefix arg, indent to that column." (define-key cua--rectangle-keymap [remap set-mark-command] 'cua-toggle-rectangle-mark) (define-key cua--rectangle-keymap [remap forward-char] 'cua-resize-rectangle-right) + (define-key cua--rectangle-keymap [remap right-char] 'cua-resize-rectangle-right) (define-key cua--rectangle-keymap [remap backward-char] 'cua-resize-rectangle-left) + (define-key cua--rectangle-keymap [remap left-char] 'cua-resize-rectangle-left) (define-key cua--rectangle-keymap [remap next-line] 'cua-resize-rectangle-down) (define-key cua--rectangle-keymap [remap previous-line] 'cua-resize-rectangle-up) (define-key cua--rectangle-keymap [remap end-of-line] 'cua-resize-rectangle-eol) diff --git a/lisp/play/blackbox.el b/lisp/play/blackbox.el index db2e18188e..1618960015 100644 --- a/lisp/play/blackbox.el +++ b/lisp/play/blackbox.el @@ -97,7 +97,9 @@ (let ((map (make-keymap))) (suppress-keymap map t) (blackbox-redefine-key map 'backward-char 'bb-left) + (blackbox-redefine-key map 'left-char 'bb-left) (blackbox-redefine-key map 'forward-char 'bb-right) + (blackbox-redefine-key map 'right-char 'bb-right) (blackbox-redefine-key map 'previous-line 'bb-up) (blackbox-redefine-key map 'next-line 'bb-down) (blackbox-redefine-key map 'move-end-of-line 'bb-eol) diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index ad28527492..10d5fdf9c6 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el @@ -977,6 +977,9 @@ from compile.el") ;; :type '(repeat (string number number number)) ;;) +(defvar flymake-warning-re "^[wW]arning" + "Regexp matching against err-text to detect a warning.") + (defun flymake-parse-line (line) "Parse LINE to see if it is an error or warning. Return its components if so, nil otherwise." @@ -997,7 +1000,7 @@ Return its components if so, nil otherwise." (match-string (nth 4 (car patterns)) line) (flymake-patch-err-text (substring line (match-end 0))))) (or err-text (setq err-text "<no error text>")) - (if (and err-text (string-match "^[wW]arning" err-text)) + (if (and err-text (string-match flymake-warning-re err-text)) (setq err-type "w") ) (flymake-log 3 "parse line: file-idx=%s line-idx=%s file=%s line=%s text=%s" file-idx line-idx diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index a422462775..b4d550bcee 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -1062,21 +1062,22 @@ subshells can nest." (backward-char 1)) (when (eq (char-before) ?|) (backward-char 1) t))) - (when (progn (backward-char 2) - (if (> start (line-end-position)) - (put-text-property (point) (1+ start) - 'syntax-multiline t)) - ;; FIXME: The `in' may just be a random argument to - ;; a normal command rather than the real `in' keyword. - ;; I.e. we should look back to try and find the - ;; corresponding `case'. - (and (looking-at ";[;&]\\|\\_<in") - ;; ";; esac )" is a case that looks like a case-pattern - ;; but it's really just a close paren after a case - ;; statement. I.e. if we skipped over `esac' just now, - ;; we're not looking at a case-pattern. - (not (looking-at "..[ \t\n]+esac[^[:word:]_]")))) - sh-st-punc)))) + (and (> (point) (1+ (point-min))) + (progn (backward-char 2) + (if (> start (line-end-position)) + (put-text-property (point) (1+ start) + 'syntax-multiline t)) + ;; FIXME: The `in' may just be a random argument to + ;; a normal command rather than the real `in' keyword. + ;; I.e. we should look back to try and find the + ;; corresponding `case'. + (and (looking-at ";[;&]\\|\\_<in") + ;; ";; esac )" is a case that looks like a case-pattern + ;; but it's really just a close paren after a case + ;; statement. I.e. if we skipped over `esac' just now, + ;; we're not looking at a case-pattern. + (not (looking-at "..[ \t\n]+esac[^[:word:]_]")))) + sh-st-punc)))) (defun sh-font-lock-backslash-quote () (if (eq (save-excursion (nth 3 (syntax-ppss (match-beginning 0)))) ?\') diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 24a4ac1b03..e663c1b45f 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -612,13 +612,15 @@ Leaves the region surrounding the rectangle." (define-key map [remap self-insert-command] 'picture-self-insert) (define-key map [remap self-insert-command] 'picture-self-insert) (define-key map [remap completion-separator-self-insert-command] - 'picture-self-insert) + 'picture-self-insert) (define-key map [remap completion-separator-self-insert-autofilling] - 'picture-self-insert) + 'picture-self-insert) (define-key map [remap forward-char] 'picture-forward-column) + (define-key map [remap right-char] 'picture-forward-column) (define-key map [remap backward-char] 'picture-backward-column) + (define-key map [remap left-char] 'picture-backward-column) (define-key map [remap delete-char] 'picture-clear-column) - ;; There are two possibilities for what is normally on DEL. + ;; There are two possibilities for what is normally on DEL. (define-key map [remap backward-delete-char-untabify] 'picture-backward-clear-column) (define-key map [remap delete-backward-char] 'picture-backward-clear-column) |