[Emacs-diffs] master 37ad855 12/14: Merge from origin/emacs-24

[Paul Eggert]

branch: master
commit 37ad855a38786722833d06dfe78786acc7e9f412
Merge: 36a50f3 f160106
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    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
---
 admin/notes/repo         |   21 ++++++++++++
 etc/NEWS                 |   29 ++++++++--------
 lisp/ChangeLog           |   28 ++++++++++++++++
 lisp/comint.el           |    7 ++--
 lisp/erc/ChangeLog       |    6 +++
 lisp/erc/erc.el          |    2 +-
 lisp/frame.el            |    6 +++-
 lisp/net/browse-url.el   |   80 +++++++++++++++------------------------------
 lisp/org/ChangeLog       |    2 +-
 lisp/progmodes/python.el |    2 +-
 nt/cmdproxy.c            |    2 +-
 src/ChangeLog            |   23 +++++++++++++
 src/fileio.c             |   18 ++++------
 src/search.c             |    6 +++
 src/w32fns.c             |   10 ++++++
 15 files changed, 155 insertions(+), 87 deletions(-)

diff --git a/admin/notes/repo b/admin/notes/repo
index 2d4cc2a..4f9dc59 100644
--- a/admin/notes/repo
+++ b/admin/notes/repo
@@ -7,6 +7,27 @@ package archive (elpa.gnu.org).  See admin/notes/elpa for 
further
 explanation, and the README file in the branch for usage
 instructions.
 
+* Install changes only on one branch, let them get merged elsewhere if needed.
+
+In particular, install bug-fixes only on the release branch (if there
+is one) and let them get synced to the trunk; do not install them by
+hand on the trunk as well.  E.g. if there is an active "emacs-24" branch
+and you have a bug-fix appropriate for the next emacs-24.x release,
+install it only on the emacs-24 branch, not on the trunk as well.
+
+Installing things manually into more than one branch makes merges more
+difficult.
+
+http://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01124.html
+
+The exception is, if you know that the change will be difficult to
+merge to the trunk (eg because the trunk code has changed a lot).
+In that case, it's helpful if you can apply the change to both trunk
+and branch yourself (when committing the branch change, indicate
+in the commit log that it should not be merged to the trunk, by
+including the phrase "Not to be merged to master", or any other phrase
+that matches "merge").
+
 * Installing changes from your personal branches.
 
 If your branch has only a single commit, or many different real
diff --git a/etc/NEWS b/etc/NEWS
index 8509cc0..0e02fc7 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -14,13 +14,6 @@ and NEWS.1-17 for changes in older Emacs versions.
 You can narrow news to a specific version by calling `view-emacs-news'
 with a prefix argument or by typing C-u C-h C-n.
 
-Temporary note:
-+++ indicates that all necessary documentation updates are complete.
-    (This means all relevant manuals in doc/ AND lisp doc-strings.)
---- means no change in the manuals is needed.
-When you add a new item, use the appropriate mark if you are sure it applies,
-otherwise leave it unmarked.
-
 
 * Installation Changes in Emacs 25.1
 
@@ -28,13 +21,16 @@ otherwise leave it unmarked.
 
 ** Building Emacs now requires C99 or later.
 
+** The default value of `history-length' has increased to 100.
+
 ** The variable `redisplay-dont-pause' is obsolete.
 
 ** Building Emacs now requires GNU make, version 3.81 or later.
 
-+++
-** `call-process-shell-command' and `process-file-shell-command'
-don't take "&rest args" any more.
+** `call-process-shell-command' and `process-file-shell-command' no longer
+take "&rest args".
+
+** The option `browse-url-firefox-startup-arguments' no longer has an effect.
 
 ** By default, Emacs no longer works on IRIX.  We expect that Emacs
 users are not affected by this, as SGI stopped supporting IRIX in
@@ -51,32 +47,33 @@ If gnustep-config is not available, the old heuristics are 
used.
 +++
 *** New option `erc-rename-buffers'.
 
----
 *** New faces `erc-my-nick-prefix-face' and `erc-nick-prefix-face'.
 
-+++
 *** address@hidden' displays all user modes instead of only op and voice.
 
----
 *** The display of irc commands in the current buffer has been disabled.
 
----
 *** `erc-version' now follows the Emacs version.
 
 ** Obsolete packages
 
----
 *** cc-compat.el
 
 ---
 ** The configure option `--with-pkg-config-prog' has been removed.
 Use './configure PKG_CONFIG=/full/name/of/pkg-config' if you need to.
 
+*** crisp.el (moved to elpa.gnu.org)
+
 ** The configure option '--enable-silent-rules' is now the default,
 and silent rules are now quieter.  To get the old behavior where
 'make' chatters a lot, configure with '--disable-silent-rules' or
 build with 'make V=1'.
 
+*** tpu-edt.el, ws-mode.el
+These emulations of old editors are believed to be no longer relevant
+ - contact address@hidden if you disagree.
+
 ---
 ** The configure option '--with-gameuser' now allows to specify a
 group instead of a user if its argument is prefixed by ':' (a colon).
@@ -89,6 +86,8 @@ be installed setgid.  The option now defaults to the 'games' 
group.
 It has no particular connection to Emacs and has not changed in years,
 so if you want to use it, you can always take a copy from an older Emacs.
 
+*** vi.el, vip.el (try M-x viper instead)
+
 
 * Startup Changes in Emacs 25.1
 
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47ddeda..ad4a05f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,33 @@
 2015-03-03  Glenn Morris  <address@hidden>
 
+       * net/browse-url.el (browse-url-firefox-startup-arguments):
+       Make obsolete.
+       (browse-url-firefox): Doc fix.  Remove -remote, which no longer
+       exists in Firefox 36.  (Bug#19921)
+       (browse-url-firefox-sentinel): Remove function.
+
+2015-03-03  Eli Zaretskii  <address@hidden>
+
+       * frame.el (blink-cursor-timer-function): Don't increment
+       blink-cursor-blinks-done counter when a menu is active on a w32
+       frame.  (Bug#19925)
+
+2015-03-03  Juri Linkov  <address@hidden>
+
+       * comint.el (comint-line-beginning-position): Revert searching for
+       the prompt when comint-use-prompt-regexp is non-nil because it
+       doesn't distinguish input from output.  Check the field property
+       `output' for the case when comint-use-prompt-regexp is nil.
+       (Bug#19710)
+
+2015-03-03  Jérémy Compostella  <address@hidden>
+
+       * net/tramp-sh.el (tramp-remote-process-environment): Disable paging
+       with PAGER=cat.  (Bug#19870)
+
+2015-03-03  Glenn Morris  <address@hidden>
+2015-03-03  Glenn Morris  <address@hidden>
+
        * textmodes/flyspell.el (flyspell-duplicate-distance):
        Bump :version.
 
diff --git a/lisp/comint.el b/lisp/comint.el
index 722a42d..b6944da 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2274,8 +2274,6 @@ a buffer local variable."
       ;; Use comint-prompt-regexp
       (save-excursion
        (beginning-of-line)
-       (unless (looking-at comint-prompt-regexp)
-         (re-search-backward comint-prompt-regexp nil t))
        (comint-skip-prompt)
        (point))
     ;; Use input fields.  Note that, unlike the behavior of
@@ -2285,7 +2283,10 @@ a buffer local variable."
     ;; if there are two fields on a line, then the first one is the
     ;; prompt, and the second one is an input field, and is front-sticky
     ;; (as input fields should be).
-    (constrain-to-field (field-beginning) (line-end-position))))
+    (constrain-to-field (if (eq (field-at-pos (point)) 'output)
+                            (line-beginning-position)
+                          (field-beginning))
+                        (line-end-position))))
 
 (defun comint-bol (&optional arg)
   "Go to the beginning of line, then skip past the prompt, if any.
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index f89d5a2..22ebae4 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,9 @@
+2015-03-03  Kelvin White  <address@hidden>
+
+       * erc.el: Add old version string back to file header for
+       package.el compatibility
+
+2015-03-03  Glenn Morris  <address@hidden>
 2015-03-03  Glenn Morris  <address@hidden>
 
        * erc.el (erc-rename-buffers): Doc fix.  Add :version.
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index e2366a1..a84f9f0 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -12,7 +12,7 @@
 ;;               Kelvin White (address@hidden)
 ;; Maintainer: address@hidden
 ;; Keywords: IRC, chat, client, Internet
-
+;; Version: 5.3
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/frame.el b/lisp/frame.el
index 94e581b..e8a8982 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1816,8 +1816,12 @@ command starts, by installing a pre-command hook."
 (defun blink-cursor-timer-function ()
   "Timer function of timer `blink-cursor-timer'."
   (internal-show-cursor nil (not (internal-show-cursor-p)))
+  ;; Suspend counting blinks when the w32 menu-bar menu is displayed,
+  ;; since otherwise menu tooltips will behave erratically.
+  (or (and (fboundp 'w32--menu-bar-in-use)
+          (w32--menu-bar-in-use))
+      (setq blink-cursor-blinks-done (1+ blink-cursor-blinks-done)))
   ;; Each blink is two calls to this function.
-  (setq blink-cursor-blinks-done (1+ blink-cursor-blinks-done))
   (when (and (> blink-cursor-blinks 0)
              (<= (* 2 blink-cursor-blinks) blink-cursor-blinks-done))
     (blink-cursor-suspend)
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 42fb954..4c8ebf0 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
   :type '(repeat (string :tag "Argument"))
   :group 'browse-url)
 
+(make-obsolete-variable 'browse-url-firefox-startup-arguments
+                        "it no longer has any effect." "24.5")
+
 (defcustom browse-url-chromium-program
   (let ((candidates '("chromium" "chromium-browser")))
     (while (and candidates (not (executable-find (car candidates))))
@@ -1102,68 +1105,39 @@ used instead of `browse-url-new-window-flag'."
 ;;;###autoload
 (defun browse-url-firefox (url &optional new-window)
   "Ask the Firefox WWW browser to load URL.
-Default to the URL around or before point.  The strings in
-variable `browse-url-firefox-arguments' are also passed to
-Firefox.
+Defaults to the URL around or before point.  Passes the strings
+in the variable `browse-url-firefox-arguments' to Firefox.
 
-When called interactively, if variable
-`browse-url-new-window-flag' is non-nil, load the document in a
-new Firefox window, otherwise use a random existing one.  A
-non-nil interactive prefix argument reverses the effect of
-`browse-url-new-window-flag'.
+Interactively, if the variable `browse-url-new-window-flag' is non-nil,
+loads the document in a new Firefox window.  A non-nil prefix argument
+reverses the effect of `browse-url-new-window-flag'.
 
 If `browse-url-firefox-new-window-is-tab' is non-nil, then
 whenever a document would otherwise be loaded in a new window, it
 is loaded in a new tab in an existing window instead.
 
-When called non-interactively, optional second argument
-NEW-WINDOW is used instead of `browse-url-new-window-flag'.
+Non-interactively, this uses the optional second argument NEW-WINDOW
+instead of `browse-url-new-window-flag'.
 
-On MS-Windows systems the optional `new-window' parameter is
-ignored.  Firefox for Windows does not support the \"-remote\"
-command line parameter.  Therefore, the
-`browse-url-new-window-flag' and `browse-url-firefox-new-window-is-tab'
-are ignored as well.  Firefox on Windows will always open the requested
-URL in a new window."
+On MS Windows, this ignores `browse-url-new-window-flag' and
+`browse-url-firefox-new-window-is-tab', as well as the NEW-WINDOW argument.
+It always uses a new window."
   (interactive (browse-url-interactive-arg "URL: "))
   (setq url (browse-url-encode-url url))
-  (let* ((process-environment (browse-url-process-environment))
-        (use-remote
-         (not (memq system-type '(windows-nt ms-dos))))
-        (process
-         (apply 'start-process
-                (concat "firefox " url) nil
-                browse-url-firefox-program
-                (append
-                 browse-url-firefox-arguments
-                 (if use-remote
-                     (list "-remote"
-                           (concat
-                            "openURL("
-                            url
-                            (if (browse-url-maybe-new-window new-window)
-                                (if browse-url-firefox-new-window-is-tab
-                                    ",new-tab"
-                                  ",new-window"))
-                            ")"))
-                   (list url))))))
-    ;; If we use -remote, the process exits with status code 2 if
-    ;; Firefox is not already running.  The sentinel runs firefox
-    ;; directly if that happens.
-    (when use-remote
-      (set-process-sentinel process
-                           `(lambda (process change)
-                              (browse-url-firefox-sentinel process ,url))))))
-
-(defun browse-url-firefox-sentinel (process url)
-  "Handle a change to the process communicating with Firefox."
-  (or (eq (process-exit-status process) 0)
-      (let* ((process-environment (browse-url-process-environment)))
-       ;; Firefox is not running - start it
-       (message "Starting Firefox...")
-       (apply 'start-process (concat "firefox " url) nil
-              browse-url-firefox-program
-              (append browse-url-firefox-startup-arguments (list url))))))
+  (let* ((process-environment (browse-url-process-environment)))
+    (apply 'start-process
+           (concat "firefox " url) nil
+           browse-url-firefox-program
+           (append
+            browse-url-firefox-arguments
+            ;; FIXME someone should check if this limitation
+            ;; still applies.
+            (unless (memq system-type '(windows-nt ms-dos))
+              (if (browse-url-maybe-new-window new-window)
+                  (if browse-url-firefox-new-window-is-tab
+                      '("-new-tab")
+                    '("-new-window"))))
+            (list url)))))
 
 ;;;###autoload
 (defun browse-url-chromium (url &optional _new-window)
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index ce39bb7..35e6ef1 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -13109,7 +13109,7 @@
 2012-01-03  Nicolas Goaziou  <address@hidden>
 
        * org.el (org-fontify-meta-lines-and-blocks-1):
-       Recognize "name" as a valid keyword that can preceed a block.
+       Recognize "name" as a valid keyword that can precede a block.
 
 2012-01-03  Eric Schulte  <address@hidden>
 
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 1c3f746..42272a9 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -4,7 +4,7 @@
 
 ;; Author: Fabián E. Gallina <address@hidden>
 ;; URL: https://github.com/fgallina/python.el
-;; Version: 0.24.4
+;; Version: 0.24.5
 ;; Maintainer: address@hidden
 ;; Created: Jul 2010
 ;; Keywords: languages
diff --git a/nt/cmdproxy.c b/nt/cmdproxy.c
index 3157a69..d4832ea 100644
--- a/nt/cmdproxy.c
+++ b/nt/cmdproxy.c
@@ -220,7 +220,7 @@ get_next_token (char * buf, const char ** pSrc)
                {
                  /* Output literal backslashes.  Note that we don't
                     treat a backslash as an escape character here,
-                    since it doesn't preceed a quote.  */
+                    since it doesn't precede a quote.  */
                  for ( ; escape_char_run > 0; escape_char_run--)
                    *o++ = escape_char;
                }
diff --git a/src/ChangeLog b/src/ChangeLog
index 7a30c6e..b1d9822 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,28 @@
 2015-03-03  Eli Zaretskii  <address@hidden>
 
+       * search.c (find_newline): Avoid assertion violations in
+       CHAR_TO_BYTE when a portion of the buffer was deleted and we look
+       for newlines near the end of the buffer.  This happens in Rmail
+       hen JIT font-lock fontifies a newly displayed portion of the
+       buffer.
+
+2015-03-03  Eli Zaretskii  <address@hidden>
+
+       * w32fns.c (Fw32__menu_bar_in_use): New internal function.
+       (Bug#19925)
+
+2015-03-03  Glenn Morris  <address@hidden>
+
+       * fileio.c (Fmake_temp_name): Doc tweaks.  (Bug#19858)
+
+2015-03-03  Eli Zaretskii  <address@hidden>
+
+       * menu.c (Fx_popup_menu) [HAVE_X_WINDOWS]: Call
+       mouse_position_for_popup only for X frames.  (Bug#19862)
+
+2015-03-03  Eli Zaretskii  <address@hidden>
+2015-03-03  Eli Zaretskii  <address@hidden>
+
        * buffer.c (syms_of_buffer): Doc fix.  (Bug#19841)
 
 2015-03-03  Eli Zaretskii  <address@hidden>
diff --git a/src/fileio.c b/src/fileio.c
index 43ab456..d4e12cb 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -724,20 +724,16 @@ make_temp_name (Lisp_Object prefix, bool base64_p)
 
 DEFUN ("make-temp-name", Fmake_temp_name, Smake_temp_name, 1, 1, 0,
        doc: /* Generate temporary file name (string) starting with PREFIX (a 
string).
-The Emacs process number forms part of the result,
-so there is no danger of generating a name being used by another process.
+The Emacs process number forms part of the result, so there is no
+danger of generating a name being used by another Emacs process
+\(so long as only a single host can access the containing directory...).
 
-In addition, this function makes an attempt to choose a name
-which has no existing file.  To make this work,
-PREFIX should be an absolute file name.
+This function tries to choose a name that has no existing file.
+For this to work, PREFIX should be an absolute file name.
 
 There is a race condition between calling `make-temp-name' and creating the
-file which opens all kinds of security holes.  For that reason, you should
-probably use `make-temp-file' instead, except in three circumstances:
-
-* If you are creating the file in the user's home directory.
-* If you are creating a directory rather than an ordinary file.
-* If you are taking special precautions as `make-temp-file' does.  */)
+file, which opens all kinds of security holes.  For that reason, you should
+normally use `make-temp-file' instead.  */)
   (Lisp_Object prefix)
 {
   return make_temp_name (prefix, 0);
diff --git a/src/search.c b/src/search.c
index e961798..5da99c4 100644
--- a/src/search.c
+++ b/src/search.c
@@ -706,6 +706,12 @@ find_newline (ptrdiff_t start, ptrdiff_t start_byte, 
ptrdiff_t end,
                                               start, &next_change);
                if (result)
                  {
+                   /* When the cache revalidation is deferred,
+                      next-change might point beyond ZV, which will
+                      cause assertion violation in CHAR_TO_BYTE below.
+                      Limit next_change to ZV to avoid that.  */
+                   if (next_change > ZV)
+                     next_change = ZV;
                    start = next_change;
                    lim1 = next_change = end;
                  }
diff --git a/src/w32fns.c b/src/w32fns.c
index 6f404e9..64532ae 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -8238,6 +8238,15 @@ w32_sys_ring_bell (struct frame *f)
     MessageBeep (sound_type);
 }
 
+DEFUN ("w32--menu-bar-in-use", Fw32__menu_bar_in_use, Sw32__menu_bar_in_use,
+       0, 0, 0,
+       doc: /* Return non-nil when a menu-bar menu is being used.
+Internal use only.  */)
+  (void)
+{
+  return menubar_in_use ? Qt : Qnil;
+}
+
 
 /***********************************************************************
                            Initialization
@@ -8615,6 +8624,7 @@ only be necessary if the default setting causes problems. 
 */);
   defsubr (&Sw32_frame_rect);
   defsubr (&Sw32_frame_menu_bar_size);
   defsubr (&Sw32_battery_status);
+  defsubr (&Sw32__menu_bar_in_use);
 
 #ifdef WINDOWSNT
   defsubr (&Sfile_system_info);