aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorPaul Eggert2015-03-03 14:37:43 -0800
committerPaul Eggert2015-03-03 14:37:43 -0800
commite2ae1c5a40e2802fcd9f5ee26b4906be97c8b878 (patch)
treeb2d56b00e2ae8ba90167ede434561d4a3b1f273d /lisp
parentd8462361f2d087d6f7c745305c61a266843ee19c (diff)
parent4b0b27d0018f040bda6a2ec885fa54c666d9c083 (diff)
downloademacs-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/ChangeLog25
-rw-r--r--lisp/comint.el8
-rw-r--r--lisp/frame.el26
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 @@
12015-03-03 Juri Linkov <juri@linkov.net> 12015-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
112015-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
202015-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
252015-03-03 Juri Linkov <juri@linkov.net>
262015-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.