aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorPaul Eggert2015-03-03 14:41:30 -0800
committerPaul Eggert2015-03-03 14:41:30 -0800
commit37ad855a38786722833d06dfe78786acc7e9f412 (patch)
treede0f0c7aac92eb2c321c1d6ec3254250316d1035 /lisp
parent36a50f38fbbcf5cc0cafc44af9d1bfcd6c13fc25 (diff)
parentf1601063f29c99be77d2513320ed6d2494926c1d (diff)
downloademacs-37ad855a38786722833d06dfe78786acc7e9f412.tar.gz
emacs-37ad855a38786722833d06dfe78786acc7e9f412.zip
Merge from origin/emacs-24
f160106 Avoid assertion violations in Rmail due to newline cache 1b0ebbd browse-url-firefox: update for firefox 36's removal of -remote 1817892 Avoid erratic behavior of menu-bar tooltips on w32 (Bug#19925) 0260932 Bump python.el version b0adfc7 Spelling fixes 35f047c * src/fileio.c (Fmake_temp_name): Doc tweaks. 6f2971a * lisp/comint.el (comint-line-beginning-position): Revert searching 65d8ac7 Mention in admin/notes/repo how to mark commits not to be merged. 86fe750 # Remove NEWS temporary markup 4fa778b erc.el: Add old version header for package.el compatibilty 9366f05 Tramp: Disable paging with PAGER=cat Conflicts: admin/notes/repo etc/NEWS lisp/ChangeLog lisp/erc/ChangeLog src/ChangeLog
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog28
-rw-r--r--lisp/comint.el7
-rw-r--r--lisp/erc/ChangeLog6
-rw-r--r--lisp/erc/erc.el2
-rw-r--r--lisp/frame.el6
-rw-r--r--lisp/net/browse-url.el80
-rw-r--r--lisp/org/ChangeLog2
-rw-r--r--lisp/progmodes/python.el2
8 files changed, 73 insertions, 60 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47ddedae883..ad4a05f9129 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,33 @@
12015-03-03 Glenn Morris <rgm@gnu.org> 12015-03-03 Glenn Morris <rgm@gnu.org>
2 2
3 * net/browse-url.el (browse-url-firefox-startup-arguments):
4 Make obsolete.
5 (browse-url-firefox): Doc fix. Remove -remote, which no longer
6 exists in Firefox 36. (Bug#19921)
7 (browse-url-firefox-sentinel): Remove function.
8
92015-03-03 Eli Zaretskii <eliz@gnu.org>
10
11 * frame.el (blink-cursor-timer-function): Don't increment
12 blink-cursor-blinks-done counter when a menu is active on a w32
13 frame. (Bug#19925)
14
152015-03-03 Juri Linkov <juri@linkov.net>
16
17 * comint.el (comint-line-beginning-position): Revert searching for
18 the prompt when comint-use-prompt-regexp is non-nil because it
19 doesn't distinguish input from output. Check the field property
20 `output' for the case when comint-use-prompt-regexp is nil.
21 (Bug#19710)
22
232015-03-03 Jérémy Compostella <jeremy.compostella@gmail.com>
24
25 * net/tramp-sh.el (tramp-remote-process-environment): Disable paging
26 with PAGER=cat. (Bug#19870)
27
282015-03-03 Glenn Morris <rgm@gnu.org>
292015-03-03 Glenn Morris <rgm@gnu.org>
30
3 * textmodes/flyspell.el (flyspell-duplicate-distance): 31 * textmodes/flyspell.el (flyspell-duplicate-distance):
4 Bump :version. 32 Bump :version.
5 33
diff --git a/lisp/comint.el b/lisp/comint.el
index 722a42d6af2..b6944da355c 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2274,8 +2274,6 @@ a buffer local variable."
2274 ;; Use comint-prompt-regexp 2274 ;; Use comint-prompt-regexp
2275 (save-excursion 2275 (save-excursion
2276 (beginning-of-line) 2276 (beginning-of-line)
2277 (unless (looking-at comint-prompt-regexp)
2278 (re-search-backward comint-prompt-regexp nil t))
2279 (comint-skip-prompt) 2277 (comint-skip-prompt)
2280 (point)) 2278 (point))
2281 ;; Use input fields. Note that, unlike the behavior of 2279 ;; Use input fields. Note that, unlike the behavior of
@@ -2285,7 +2283,10 @@ a buffer local variable."
2285 ;; if there are two fields on a line, then the first one is the 2283 ;; if there are two fields on a line, then the first one is the
2286 ;; prompt, and the second one is an input field, and is front-sticky 2284 ;; prompt, and the second one is an input field, and is front-sticky
2287 ;; (as input fields should be). 2285 ;; (as input fields should be).
2288 (constrain-to-field (field-beginning) (line-end-position)))) 2286 (constrain-to-field (if (eq (field-at-pos (point)) 'output)
2287 (line-beginning-position)
2288 (field-beginning))
2289 (line-end-position))))
2289 2290
2290(defun comint-bol (&optional arg) 2291(defun comint-bol (&optional arg)
2291 "Go to the beginning of line, then skip past the prompt, if any. 2292 "Go to the beginning of line, then skip past the prompt, if any.
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index f89d5a2d043..22ebae4576c 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,9 @@
12015-03-03 Kelvin White <kwhite@gnu.org>
2
3 * erc.el: Add old version string back to file header for
4 package.el compatibility
5
62015-03-03 Glenn Morris <rgm@gnu.org>
12015-03-03 Glenn Morris <rgm@gnu.org> 72015-03-03 Glenn Morris <rgm@gnu.org>
2 8
3 * erc.el (erc-rename-buffers): Doc fix. Add :version. 9 * erc.el (erc-rename-buffers): Doc fix. Add :version.
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index e2366a1b58f..a84f9f07523 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -12,7 +12,7 @@
12;; Kelvin White (kwhite@gnu.org) 12;; Kelvin White (kwhite@gnu.org)
13;; Maintainer: emacs-devel@gnu.org 13;; Maintainer: emacs-devel@gnu.org
14;; Keywords: IRC, chat, client, Internet 14;; Keywords: IRC, chat, client, Internet
15 15;; Version: 5.3
16 16
17;; This file is part of GNU Emacs. 17;; This file is part of GNU Emacs.
18 18
diff --git a/lisp/frame.el b/lisp/frame.el
index 94e581b1e24..e8a89828b8d 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1816,8 +1816,12 @@ command starts, by installing a pre-command hook."
1816(defun blink-cursor-timer-function () 1816(defun blink-cursor-timer-function ()
1817 "Timer function of timer `blink-cursor-timer'." 1817 "Timer function of timer `blink-cursor-timer'."
1818 (internal-show-cursor nil (not (internal-show-cursor-p))) 1818 (internal-show-cursor nil (not (internal-show-cursor-p)))
1819 ;; Suspend counting blinks when the w32 menu-bar menu is displayed,
1820 ;; since otherwise menu tooltips will behave erratically.
1821 (or (and (fboundp 'w32--menu-bar-in-use)
1822 (w32--menu-bar-in-use))
1823 (setq blink-cursor-blinks-done (1+ blink-cursor-blinks-done)))
1819 ;; Each blink is two calls to this function. 1824 ;; Each blink is two calls to this function.
1820 (setq blink-cursor-blinks-done (1+ blink-cursor-blinks-done))
1821 (when (and (> blink-cursor-blinks 0) 1825 (when (and (> blink-cursor-blinks 0)
1822 (<= (* 2 blink-cursor-blinks) blink-cursor-blinks-done)) 1826 (<= (* 2 blink-cursor-blinks) blink-cursor-blinks-done))
1823 (blink-cursor-suspend) 1827 (blink-cursor-suspend)
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 42fb9549255..4c8ebf01588 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -337,6 +337,9 @@ Defaults to the value of `browse-url-firefox-arguments' at the time
337 :type '(repeat (string :tag "Argument")) 337 :type '(repeat (string :tag "Argument"))
338 :group 'browse-url) 338 :group 'browse-url)
339 339
340(make-obsolete-variable 'browse-url-firefox-startup-arguments
341 "it no longer has any effect." "24.5")
342
340(defcustom browse-url-chromium-program 343(defcustom browse-url-chromium-program
341 (let ((candidates '("chromium" "chromium-browser"))) 344 (let ((candidates '("chromium" "chromium-browser")))
342 (while (and candidates (not (executable-find (car candidates)))) 345 (while (and candidates (not (executable-find (car candidates))))
@@ -1102,68 +1105,39 @@ used instead of `browse-url-new-window-flag'."
1102;;;###autoload 1105;;;###autoload
1103(defun browse-url-firefox (url &optional new-window) 1106(defun browse-url-firefox (url &optional new-window)
1104 "Ask the Firefox WWW browser to load URL. 1107 "Ask the Firefox WWW browser to load URL.
1105Default to the URL around or before point. The strings in 1108Defaults to the URL around or before point. Passes the strings
1106variable `browse-url-firefox-arguments' are also passed to 1109in the variable `browse-url-firefox-arguments' to Firefox.
1107Firefox.
1108 1110
1109When called interactively, if variable 1111Interactively, if the variable `browse-url-new-window-flag' is non-nil,
1110`browse-url-new-window-flag' is non-nil, load the document in a 1112loads the document in a new Firefox window. A non-nil prefix argument
1111new Firefox window, otherwise use a random existing one. A 1113reverses the effect of `browse-url-new-window-flag'.
1112non-nil interactive prefix argument reverses the effect of
1113`browse-url-new-window-flag'.
1114 1114
1115If `browse-url-firefox-new-window-is-tab' is non-nil, then 1115If `browse-url-firefox-new-window-is-tab' is non-nil, then
1116whenever a document would otherwise be loaded in a new window, it 1116whenever a document would otherwise be loaded in a new window, it
1117is loaded in a new tab in an existing window instead. 1117is loaded in a new tab in an existing window instead.
1118 1118
1119When called non-interactively, optional second argument 1119Non-interactively, this uses the optional second argument NEW-WINDOW
1120NEW-WINDOW is used instead of `browse-url-new-window-flag'. 1120instead of `browse-url-new-window-flag'.
1121 1121
1122On MS-Windows systems the optional `new-window' parameter is 1122On MS Windows, this ignores `browse-url-new-window-flag' and
1123ignored. Firefox for Windows does not support the \"-remote\" 1123`browse-url-firefox-new-window-is-tab', as well as the NEW-WINDOW argument.
1124command line parameter. Therefore, the 1124It always uses a new window."
1125`browse-url-new-window-flag' and `browse-url-firefox-new-window-is-tab'
1126are ignored as well. Firefox on Windows will always open the requested
1127URL in a new window."
1128 (interactive (browse-url-interactive-arg "URL: ")) 1125 (interactive (browse-url-interactive-arg "URL: "))
1129 (setq url (browse-url-encode-url url)) 1126 (setq url (browse-url-encode-url url))
1130 (let* ((process-environment (browse-url-process-environment)) 1127 (let* ((process-environment (browse-url-process-environment)))
1131 (use-remote 1128 (apply 'start-process
1132 (not (memq system-type '(windows-nt ms-dos)))) 1129 (concat "firefox " url) nil
1133 (process 1130 browse-url-firefox-program
1134 (apply 'start-process 1131 (append
1135 (concat "firefox " url) nil 1132 browse-url-firefox-arguments
1136 browse-url-firefox-program 1133 ;; FIXME someone should check if this limitation
1137 (append 1134 ;; still applies.
1138 browse-url-firefox-arguments 1135 (unless (memq system-type '(windows-nt ms-dos))
1139 (if use-remote 1136 (if (browse-url-maybe-new-window new-window)
1140 (list "-remote" 1137 (if browse-url-firefox-new-window-is-tab
1141 (concat 1138 '("-new-tab")
1142 "openURL(" 1139 '("-new-window"))))
1143 url 1140 (list url)))))
1144 (if (browse-url-maybe-new-window new-window)
1145 (if browse-url-firefox-new-window-is-tab
1146 ",new-tab"
1147 ",new-window"))
1148 ")"))
1149 (list url))))))
1150 ;; If we use -remote, the process exits with status code 2 if
1151 ;; Firefox is not already running. The sentinel runs firefox
1152 ;; directly if that happens.
1153 (when use-remote
1154 (set-process-sentinel process
1155 `(lambda (process change)
1156 (browse-url-firefox-sentinel process ,url))))))
1157
1158(defun browse-url-firefox-sentinel (process url)
1159 "Handle a change to the process communicating with Firefox."
1160 (or (eq (process-exit-status process) 0)
1161 (let* ((process-environment (browse-url-process-environment)))
1162 ;; Firefox is not running - start it
1163 (message "Starting Firefox...")
1164 (apply 'start-process (concat "firefox " url) nil
1165 browse-url-firefox-program
1166 (append browse-url-firefox-startup-arguments (list url))))))
1167 1141
1168;;;###autoload 1142;;;###autoload
1169(defun browse-url-chromium (url &optional _new-window) 1143(defun browse-url-chromium (url &optional _new-window)
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index ce39bb7d568..35e6ef1eccd 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -13109,7 +13109,7 @@
131092012-01-03 Nicolas Goaziou <n.goaziou@gmail.com> 131092012-01-03 Nicolas Goaziou <n.goaziou@gmail.com>
13110 13110
13111 * org.el (org-fontify-meta-lines-and-blocks-1): 13111 * org.el (org-fontify-meta-lines-and-blocks-1):
13112 Recognize "name" as a valid keyword that can preceed a block. 13112 Recognize "name" as a valid keyword that can precede a block.
13113 13113
131142012-01-03 Eric Schulte <schulte.eric@gmail.com> 131142012-01-03 Eric Schulte <schulte.eric@gmail.com>
13115 13115
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 1c3f7466c8c..42272a9d558 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -4,7 +4,7 @@
4 4
5;; Author: Fabián E. Gallina <fabian@anue.biz> 5;; Author: Fabián E. Gallina <fabian@anue.biz>
6;; URL: https://github.com/fgallina/python.el 6;; URL: https://github.com/fgallina/python.el
7;; Version: 0.24.4 7;; Version: 0.24.5
8;; Maintainer: emacs-devel@gnu.org 8;; Maintainer: emacs-devel@gnu.org
9;; Created: Jul 2010 9;; Created: Jul 2010
10;; Keywords: languages 10;; Keywords: languages