diff options
| author | Paul Eggert | 2015-03-03 14:41:30 -0800 |
|---|---|---|
| committer | Paul Eggert | 2015-03-03 14:41:30 -0800 |
| commit | 37ad855a38786722833d06dfe78786acc7e9f412 (patch) | |
| tree | de0f0c7aac92eb2c321c1d6ec3254250316d1035 /lisp | |
| parent | 36a50f38fbbcf5cc0cafc44af9d1bfcd6c13fc25 (diff) | |
| parent | f1601063f29c99be77d2513320ed6d2494926c1d (diff) | |
| download | emacs-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/ChangeLog | 28 | ||||
| -rw-r--r-- | lisp/comint.el | 7 | ||||
| -rw-r--r-- | lisp/erc/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/erc/erc.el | 2 | ||||
| -rw-r--r-- | lisp/frame.el | 6 | ||||
| -rw-r--r-- | lisp/net/browse-url.el | 80 | ||||
| -rw-r--r-- | lisp/org/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/progmodes/python.el | 2 |
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 @@ | |||
| 1 | 2015-03-03 Glenn Morris <rgm@gnu.org> | 1 | 2015-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 | |||
| 9 | 2015-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 | |||
| 15 | 2015-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 | |||
| 23 | 2015-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 | |||
| 28 | 2015-03-03 Glenn Morris <rgm@gnu.org> | ||
| 29 | 2015-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 @@ | |||
| 1 | 2015-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 | |||
| 6 | 2015-03-03 Glenn Morris <rgm@gnu.org> | ||
| 1 | 2015-03-03 Glenn Morris <rgm@gnu.org> | 7 | 2015-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. |
| 1105 | Default to the URL around or before point. The strings in | 1108 | Defaults to the URL around or before point. Passes the strings |
| 1106 | variable `browse-url-firefox-arguments' are also passed to | 1109 | in the variable `browse-url-firefox-arguments' to Firefox. |
| 1107 | Firefox. | ||
| 1108 | 1110 | ||
| 1109 | When called interactively, if variable | 1111 | Interactively, 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 | 1112 | loads the document in a new Firefox window. A non-nil prefix argument |
| 1111 | new Firefox window, otherwise use a random existing one. A | 1113 | reverses the effect of `browse-url-new-window-flag'. |
| 1112 | non-nil interactive prefix argument reverses the effect of | ||
| 1113 | `browse-url-new-window-flag'. | ||
| 1114 | 1114 | ||
| 1115 | If `browse-url-firefox-new-window-is-tab' is non-nil, then | 1115 | If `browse-url-firefox-new-window-is-tab' is non-nil, then |
| 1116 | whenever a document would otherwise be loaded in a new window, it | 1116 | whenever a document would otherwise be loaded in a new window, it |
| 1117 | is loaded in a new tab in an existing window instead. | 1117 | is loaded in a new tab in an existing window instead. |
| 1118 | 1118 | ||
| 1119 | When called non-interactively, optional second argument | 1119 | Non-interactively, this uses the optional second argument NEW-WINDOW |
| 1120 | NEW-WINDOW is used instead of `browse-url-new-window-flag'. | 1120 | instead of `browse-url-new-window-flag'. |
| 1121 | 1121 | ||
| 1122 | On MS-Windows systems the optional `new-window' parameter is | 1122 | On MS Windows, this ignores `browse-url-new-window-flag' and |
| 1123 | ignored. Firefox for Windows does not support the \"-remote\" | 1123 | `browse-url-firefox-new-window-is-tab', as well as the NEW-WINDOW argument. |
| 1124 | command line parameter. Therefore, the | 1124 | It always uses a new window." |
| 1125 | `browse-url-new-window-flag' and `browse-url-firefox-new-window-is-tab' | ||
| 1126 | are ignored as well. Firefox on Windows will always open the requested | ||
| 1127 | URL 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 @@ | |||
| 13109 | 2012-01-03 Nicolas Goaziou <n.goaziou@gmail.com> | 13109 | 2012-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 | ||
| 13114 | 2012-01-03 Eric Schulte <schulte.eric@gmail.com> | 13114 | 2012-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 |