diff options
| author | Paul Eggert | 2015-03-03 14:37:43 -0800 |
|---|---|---|
| committer | Paul Eggert | 2015-03-03 14:37:43 -0800 |
| commit | e2ae1c5a40e2802fcd9f5ee26b4906be97c8b878 (patch) | |
| tree | b2d56b00e2ae8ba90167ede434561d4a3b1f273d /lisp | |
| parent | d8462361f2d087d6f7c745305c61a266843ee19c (diff) | |
| parent | 4b0b27d0018f040bda6a2ec885fa54c666d9c083 (diff) | |
| download | emacs-e2ae1c5a40e2802fcd9f5ee26b4906be97c8b878.tar.gz emacs-e2ae1c5a40e2802fcd9f5ee26b4906be97c8b878.zip | |
Merge from origin/emacs-24
4b0b27d Fix invocation of commands whose file name includes extension
87fc99f Better support for the case of typing RET on the prompt in comint.
a7b1c2f Don't lose frame's background color when setting foreground
20c817d Fix handling of frame color parameters in TTY sessions
eca7da1 Complete the remaining documentation updates for 24.5
Conflicts:
doc/lispref/ChangeLog
etc/NEWS
lisp/ChangeLog
nt/ChangeLog
src/ChangeLog
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 25 | ||||
| -rw-r--r-- | lisp/comint.el | 8 | ||||
| -rw-r--r-- | lisp/frame.el | 26 |
3 files changed, 54 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cd042da8e92..69ccbfaa507 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,30 @@ | |||
| 1 | 2015-03-03 Juri Linkov <juri@linkov.net> | 1 | 2015-03-03 Juri Linkov <juri@linkov.net> |
| 2 | 2 | ||
| 3 | Better support for the case of typing RET on the prompt in comint. | ||
| 4 | |||
| 5 | * comint.el (comint-get-old-input-default): Go to the field end | ||
| 6 | when comint-use-prompt-regexp is nil. | ||
| 7 | (comint-line-beginning-position): Check if point is already | ||
| 8 | on the prompt before searching for the prompt when | ||
| 9 | comint-use-prompt-regexp is non-nil. (Bug#19710) | ||
| 10 | |||
| 11 | 2015-03-03 Eli Zaretskii <eliz@gnu.org> | ||
| 12 | |||
| 13 | * frame.el (frame-notice-user-settings): Refresh the value of | ||
| 14 | frame parameters after calling tty-handle-reverse-video. Call | ||
| 15 | face-set-after-frame-default with the actual parameters, to avoid | ||
| 16 | resetting colors back to unspecified. | ||
| 17 | (set-background-color, set-foreground-color): Pass the foreground | ||
| 18 | and background colors to face-set-after-frame-default. (Bug#19802) | ||
| 19 | |||
| 20 | 2015-03-03 Wolfgang Jenkner <wjenkner@inode.at> | ||
| 21 | |||
| 22 | * net/network-stream.el (network-stream-open-tls): Respect the | ||
| 23 | :end-of-capability setting. | ||
| 24 | |||
| 25 | 2015-03-03 Juri Linkov <juri@linkov.net> | ||
| 26 | 2015-03-03 Juri Linkov <juri@linkov.net> | ||
| 27 | |||
| 3 | Revert the previous change of comint-line-beginning-position callers, | 28 | Revert the previous change of comint-line-beginning-position callers, |
| 4 | and modify comint-line-beginning-position instead. | 29 | and modify comint-line-beginning-position instead. |
| 5 | 30 | ||
diff --git a/lisp/comint.el b/lisp/comint.el index b14ab5bdf9f..722a42d6af2 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -2222,7 +2222,10 @@ the current line with any initial string matching the regexp | |||
| 2222 | (null (get-char-property (setq bof (field-beginning)) 'field))) | 2222 | (null (get-char-property (setq bof (field-beginning)) 'field))) |
| 2223 | (field-string-no-properties bof) | 2223 | (field-string-no-properties bof) |
| 2224 | (comint-bol) | 2224 | (comint-bol) |
| 2225 | (buffer-substring-no-properties (point) (line-end-position))))) | 2225 | (buffer-substring-no-properties (point) |
| 2226 | (if comint-use-prompt-regexp | ||
| 2227 | (line-end-position) | ||
| 2228 | (field-end)))))) | ||
| 2226 | 2229 | ||
| 2227 | (defun comint-copy-old-input () | 2230 | (defun comint-copy-old-input () |
| 2228 | "Insert after prompt old input at point as new input to be edited. | 2231 | "Insert after prompt old input at point as new input to be edited. |
| @@ -2270,8 +2273,9 @@ a buffer local variable." | |||
| 2270 | (if comint-use-prompt-regexp | 2273 | (if comint-use-prompt-regexp |
| 2271 | ;; Use comint-prompt-regexp | 2274 | ;; Use comint-prompt-regexp |
| 2272 | (save-excursion | 2275 | (save-excursion |
| 2273 | (re-search-backward comint-prompt-regexp nil t) | ||
| 2274 | (beginning-of-line) | 2276 | (beginning-of-line) |
| 2277 | (unless (looking-at comint-prompt-regexp) | ||
| 2278 | (re-search-backward comint-prompt-regexp nil t)) | ||
| 2275 | (comint-skip-prompt) | 2279 | (comint-skip-prompt) |
| 2276 | (point)) | 2280 | (point)) |
| 2277 | ;; Use input fields. Note that, unlike the behavior of | 2281 | ;; Use input fields. Note that, unlike the behavior of |
diff --git a/lisp/frame.el b/lisp/frame.el index c81ee9bfa61..94e581b1e24 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -259,6 +259,10 @@ there (in decreasing order of priority)." | |||
| 259 | (let ((newparms (frame-parameters)) | 259 | (let ((newparms (frame-parameters)) |
| 260 | (frame (selected-frame))) | 260 | (frame (selected-frame))) |
| 261 | (tty-handle-reverse-video frame newparms) | 261 | (tty-handle-reverse-video frame newparms) |
| 262 | ;; tty-handle-reverse-video might change the frame's | ||
| 263 | ;; color parameters, and we need to use the updated | ||
| 264 | ;; value below. | ||
| 265 | (setq newparms (frame-parameters)) | ||
| 262 | ;; If we changed the background color, we need to update | 266 | ;; If we changed the background color, we need to update |
| 263 | ;; the background-mode parameter, and maybe some faces, | 267 | ;; the background-mode parameter, and maybe some faces, |
| 264 | ;; too. | 268 | ;; too. |
| @@ -266,7 +270,7 @@ there (in decreasing order of priority)." | |||
| 266 | (unless (or (assq 'background-mode initial-frame-alist) | 270 | (unless (or (assq 'background-mode initial-frame-alist) |
| 267 | (assq 'background-mode default-frame-alist)) | 271 | (assq 'background-mode default-frame-alist)) |
| 268 | (frame-set-background-mode frame)) | 272 | (frame-set-background-mode frame)) |
| 269 | (face-set-after-frame-default frame)))))) | 273 | (face-set-after-frame-default frame newparms)))))) |
| 270 | 274 | ||
| 271 | ;; If the initial frame is still around, apply initial-frame-alist | 275 | ;; If the initial frame is still around, apply initial-frame-alist |
| 272 | ;; and default-frame-alist to it. | 276 | ;; and default-frame-alist to it. |
| @@ -1201,7 +1205,15 @@ To get the frame's current background color, use `frame-parameters'." | |||
| 1201 | (modify-frame-parameters (selected-frame) | 1205 | (modify-frame-parameters (selected-frame) |
| 1202 | (list (cons 'background-color color-name))) | 1206 | (list (cons 'background-color color-name))) |
| 1203 | (or window-system | 1207 | (or window-system |
| 1204 | (face-set-after-frame-default (selected-frame)))) | 1208 | (face-set-after-frame-default (selected-frame) |
| 1209 | (list | ||
| 1210 | (cons 'background-color color-name) | ||
| 1211 | ;; Pass the foreground-color as | ||
| 1212 | ;; well, if defined, to avoid | ||
| 1213 | ;; losing it when faces are reset | ||
| 1214 | ;; to their defaults. | ||
| 1215 | (assq 'foreground-color | ||
| 1216 | (frame-parameters)))))) | ||
| 1205 | 1217 | ||
| 1206 | (defun set-foreground-color (color-name) | 1218 | (defun set-foreground-color (color-name) |
| 1207 | "Set the foreground color of the selected frame to COLOR-NAME. | 1219 | "Set the foreground color of the selected frame to COLOR-NAME. |
| @@ -1211,7 +1223,15 @@ To get the frame's current foreground color, use `frame-parameters'." | |||
| 1211 | (modify-frame-parameters (selected-frame) | 1223 | (modify-frame-parameters (selected-frame) |
| 1212 | (list (cons 'foreground-color color-name))) | 1224 | (list (cons 'foreground-color color-name))) |
| 1213 | (or window-system | 1225 | (or window-system |
| 1214 | (face-set-after-frame-default (selected-frame)))) | 1226 | (face-set-after-frame-default (selected-frame) |
| 1227 | (list | ||
| 1228 | (cons 'foreground-color color-name) | ||
| 1229 | ;; Pass the background-color as | ||
| 1230 | ;; well, if defined, to avoid | ||
| 1231 | ;; losing it when faces are reset | ||
| 1232 | ;; to their defaults. | ||
| 1233 | (assq 'background-color | ||
| 1234 | (frame-parameters)))))) | ||
| 1215 | 1235 | ||
| 1216 | (defun set-cursor-color (color-name) | 1236 | (defun set-cursor-color (color-name) |
| 1217 | "Set the text cursor color of the selected frame to COLOR-NAME. | 1237 | "Set the text cursor color of the selected frame to COLOR-NAME. |