auto upstream

16 files changed, 315 insertions, 70 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99704a0b532..66c18a25803 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,25 +1,96 @@
+2013-02-16  Glenn Morris  <rgm@gnu.org>
+
+        * image.el (image-animated-types): Remove.
+        (image-multi-frame-p): Rename from image-animated-p, and generalize.
+        (image-animated-p): Make obsolete alias.
+        (image-animate, image-nth-frame, image-animate-timeout):
+        Use image-multi-frame-p.
+        (image-animate-timeout): If no delay, use image-default-frame-delay.
+        * image-mode.el (image-mode, image-toggle-animation):
+        Use image-multi-frame-p.  (Bug#763, bug#10739)
+        (image-mode): Adjust startup message for a multi-frame image.
+
+        * image-mode.el (image-mode-map): Give it a menu.
+
+2013-02-16  Michael Albinus  <michael.albinus@gmx.de>
+
+        * net/tramp-cache.el (tramp-connection-properties): New customer
+        option.
+        (tramp-get-connection-property): Use it.
+
+        * net/tramp-compat.el (top): Require 'trampver.
+
+        * net/tramp-sh.el (tramp-remote-process-environment): Set
+        tramp-autoload cookie.
+
+2013-02-16  Kevin Ryde  <user42@zip.com.au>
+
+        * info-look.el (info-lookup-select-mode): If major-mode has no
+        info-lookup-alist entry then search up derived-mode-parent (bug#8660).
+
+2013-02-16  Jambunathan K  <kjambunathan@gmail.com>
+
+        * replace.el (read-regexp): Tighten the regexp that matches tag.
+        When tag is retrieved with `find-tag-default', use regexp that
+        matches tag at point.  Also update docstring (Bug#13687).
+
+2013-02-16  Eli Zaretskii  <eliz@gnu.org>
+
+        * autorevert.el (auto-revert-notify-add-watch): With 'w32notify',
+        add watch for the file, not its parent directory, since w32notify
+        sets up the watch for the directory internally.  (Bug#13725)
+
+2013-02-16  Glenn Morris  <rgm@gnu.org>
+
+        * image.el (image-default-frame-delay): New variable.
+        (image-animated-p): Use image-default-frame-delay.
+        (image-minimum-frame-delay): New constant.
+        (image-animate-timeout): Use image-minimum-frame-delay.
+
+        * image.el (image-nth-frame): New, split from image-animate-timeout.
+        (image-animate-timeout): Use image-nth-frame.
+        * image-mode.el (image-goto-frame, image-next-frame)
+        (image-previous-frame): New commands.
+        (image-mode-map): Add new frame commands.
+
+2013-02-16  Jonas Bernoulli  <jonas@bernoul.li>
+
+        * emacs-lisp/tabulated-list.el (tabulated-list-print-col):
+        If col-desc already has help-echo, use it.  (Bug#13563)
+
+2013-02-16  Glenn Morris  <rgm@gnu.org>
+
+        * image.el (image-current-frame): New variable.
+        (image-animate-timeout): Set image-current-frame.
+        * image-mode.el (image-mode): For animated images,
+        display a frame counter via mode-line-process.
+
+        * font-lock.el (lisp-font-lock-keywords-1): Add defvar-local.
+
+2013-02-15  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * simple.el (eval-expression): Let `exp' set the mark (bug#13724).
+
 2013-02-15  Alan Mackenzie  <acm@muc.de>
 
         * emacs-lisp/easy-mmode.el (define-globalized-minor-mode): When a
         global minor mode has been enabled, call the minor mode function
         for a new buffer once only, after the major mode hook, whilst
         allowing that hook explicitly to disable the minor mode.
-        (MODE-disable-in-buffer): new (generated) function.
-        (disable-MODE): new (generated) buffer local variable.
+        (MODE-disable-in-buffer): New (generated) function.
+        (disable-MODE): New (generated) buffer local variable.
 
 2013-02-15  Jambunathan K  <kjambunathan@gmail.com>
 
         * iswitchb.el (iswitchb-read-buffer): Bind `C-.' and `C-,' to
         `iswitchb-next-match' and `iswitchb-prev-match' resply.
-
         * ido.el (ido-init-completion-maps): Bind `C-.' and `C-,' to
         `ido-next-match' and `ido-prev-match' resply.
-
         * icomplete.el (icomplete-minibuffer-map): Unbind `C-s' and `C-r'.
         Bind `C-.' and `C-,' to `icomplete-forward-completions' and
         `icomplete-backward-completions' (Bug#13708).
 
-2013-02-15  Michael Albinus  <michael.albinus@gmx.de>
+2013-02-15  Glenn Morris  <rgm@gnu.org>
 
         * emacs-lisp/easy-mmode.el (define-minor-mode): Doc fix.
 
@@ -52,8 +123,8 @@
 
 2013-02-14  Michael Albinus  <michael.albinus@gmx.de>
 
-        * net/tramp.el (tramp-debug-message): Add
-        `tramp-condition-case-unless-debug'.
+        * net/tramp.el (tramp-debug-message):
+        Add `tramp-condition-case-unless-debug'.
         (tramp-debug-on-error): New defvar.
         (tramp-condition-case-unless-debug): New defun.
         (tramp-file-name-handler): Use it.
@@ -207,8 +278,8 @@
         * net/tramp-compat.el (top): Declare `remote-file-name-inhibit-cache'
         only if it doesn't exist.
 
-        * net/tramp-sh.el (tramp-sh-handle-start-file-process): Set
-        process marker.
+        * net/tramp-sh.el (tramp-sh-handle-start-file-process):
+        Set process marker.
 
 2013-02-12  Tassilo Horn  <tsdh@gnu.org>
 
diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index fe6cf216363..a2d70c37762 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -519,12 +519,13 @@ will use an up-to-date value of `auto-revert-interval'"
     (let ((func (if (fboundp 'inotify-add-watch)
                     'inotify-add-watch 'w32notify-add-watch))
           (aspect (if (fboundp 'inotify-add-watch)
-                      '(create modify moved-to) '(size last-write-time))))
+                      '(create modify moved-to) '(size last-write-time)))
+          (file (if (fboundp 'inotify-add-watch)
+                    (directory-file-name (expand-file-name default-directory))
+                  (buffer-file-name))))
       (setq auto-revert-notify-watch-descriptor
             (ignore-errors
-              (funcall
-               func (directory-file-name (expand-file-name default-directory))
-               aspect 'auto-revert-notify-handler)))
+              (funcall func file aspect 'auto-revert-notify-handler)))
       (if auto-revert-notify-watch-descriptor
           (progn
             (puthash
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index 94b3c1553e5..da487e463e2 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -379,7 +379,9 @@ Return the column number after insertion."
         (setq width (- width shift))
         (setq x (+ x shift))))
     (if (stringp col-desc)
-        (insert (propertize label 'help-echo help-echo))
+        (insert (if (get-text-property 0 'help-echo label)
+                    label
+                  (propertize label 'help-echo help-echo)))
       (apply 'insert-text-button label (cdr col-desc)))
     (let ((next-x (+ x pad-right width)))
       ;; No need to append any spaces if this is the last column.
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index f714eaab233..6e3476ac9a5 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -2256,7 +2256,7 @@ in which C preprocessor directives are used. e.g. `asm-mode' and
                 "method-combination\\|setf-expander\\|skeleton\\|widget\\|"
                 "function\\|\\(compiler\\|modify\\|symbol\\)-macro\\)\\)\\|"
                 ;; Variable declarations.
-                "\\(const\\(ant\\)?\\|custom\\|varalias\\|face\\|parameter\\|var\\)\\|"
+                "\\(const\\(ant\\)?\\|custom\\|varalias\\|face\\|parameter\\|var\\(?:-local\\)?\\)\\|"
                 ;; Structure declarations.
                 "\\(class\\|group\\|theme\\|package\\|struct\\|type\\)"
                 "\\)\\)\\>"
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index b6e8fd976d3..5030da87672 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-16  Glenn Morris  <rgm@gnu.org>
+
+        * shr.el (shr-put-image): Only animate images that specify a delay.
+        This is consistent with the old image-animated-p behavior.
+
 2013-02-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
         * gnus-util.el (gnus-define-keys): Convert [?\S-\ ] to [(shift space)]
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index c9bf324b4fa..1294ca7cd69 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -615,7 +615,8 @@ size, and full-buffer size."
                   (overlay-put overlay 'face 'default)))
             (insert-image image (or alt "*")))
           (put-text-property start (point) 'image-size size)
-          (when (image-animated-p image)
+          ;; Only animate multi-frame things that specify a delay.  FIXME?
+          (when (cdr (image-animated-p image))
             (image-animate image nil 60)))
         image)
     (insert alt)))
diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 196336717db..52367811341 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -340,6 +340,9 @@ call."
     (define-key map (kbd "S-SPC")     'image-scroll-down)
     (define-key map (kbd "DEL")       'image-scroll-down)
     (define-key map (kbd "RET")       'image-toggle-animation)
+    (define-key map "F" 'image-goto-frame)
+    (define-key map "f" 'image-next-frame)
+    (define-key map "b" 'image-previous-frame)
     (define-key map "n" 'image-next-file)
     (define-key map "p" 'image-previous-file)
     (define-key map [remap forward-char] 'image-forward-hscroll)
@@ -356,6 +359,53 @@ call."
     (define-key map [remap move-end-of-line] 'image-eol)
     (define-key map [remap beginning-of-buffer] 'image-bob)
     (define-key map [remap end-of-buffer] 'image-eob)
+    (easy-menu-define image-mode-menu map "Menu for Image mode."
+      '("Image"
+        ["Show as Text" image-toggle-display :active t
+         :help "Show image as text"]
+        "--"
+        ["Fit Frame to Image" image-mode-fit-frame :active t
+         :help "Resize frame to match image"]
+        ["Fit to Window Height" image-transform-fit-to-height
+         :visible (eq image-type 'imagemagick)
+         :help "Resize image to match the window height"]
+        ["Fit to Window Width" image-transform-fit-to-width
+         :visible (eq image-type 'imagemagick)
+         :help "Resize image to match the window width"]
+        ["Rotate Image..." image-transform-set-rotation
+         :visible (eq image-type 'imagemagick)
+         :help "Rotate the image"]
+        "--"
+        ["Next Image" image-next-file :active t
+         :help "Move to next image in this directory"]
+        ["Previous Image" image-previous-file :active t
+         :help "Move to previous image in this directory"]
+        "--"
+        ["Animate Image" image-toggle-animation :style toggle
+         :selected (let ((image (image-get-display-property)))
+                     (and image (image-animate-timer image)))
+         :active image-current-frame
+         :help "Toggle image animation"]
+        ["Loop Animation"
+         (lambda () (interactive)
+;;;        (make-variable-buffer-local 'image-animate-loop)
+           (setq image-animate-loop (not image-animate-loop))
+           ;; FIXME this is a hacky way to make it affect a currently
+           ;; animating image.
+           (when (let ((image (image-get-display-property)))
+                   (and image (image-animate-timer image)))
+             (image-toggle-animation)
+             (image-toggle-animation)))
+         :style toggle :selected image-animate-loop
+         :active image-current-frame
+         :help "Animate images once, or forever?"]
+        ["Next Frame" image-next-frame :active image-current-frame
+         :help "Show the next frame of this image"]
+        ["Previous Frame" image-previous-frame :active image-current-frame
+         :help "Show the previous frame of this image"]
+        ["Goto Frame..." image-goto-frame :active image-current-frame
+         :help "Show a specific frame of this image"]
+        ))
     map)
   "Mode keymap for `image-mode'.")
 
@@ -409,15 +459,22 @@ to toggle between display as an image and display as text."
         (run-mode-hooks 'image-mode-hook)
         (let ((image (image-get-display-property))
               (msg1 (substitute-command-keys
-                     "Type \\[image-toggle-display] to view the image as ")))
+                     "Type \\[image-toggle-display] to view the image as "))
+              animated)
           (cond
            ((null image)
             (message "%s" (concat msg1 "an image.")))
-           ((image-animated-p image)
+           ((setq animated (image-multi-frame-p image))
+            (setq image-current-frame (or (plist-get (cdr image) :index) 0)
+                  mode-line-process
+                  `(:eval (propertize (format " [%s/%s]"
+                                              (1+ image-current-frame)
+                                              ,(car animated))
+                                      'help-echo "Frame number")))
             (message "%s"
-                     (concat msg1 "text, or "
-                             (substitute-command-keys
-                              "\\[image-toggle-animation] to animate."))))
+                     (concat msg1 "text.  This image has multiple frames.")))
+;;;                          (substitute-command-keys
+;;;                           "\\[image-toggle-animation] to animate."))))
            (t
             (message "%s" (concat msg1 "text."))))))
 
@@ -606,7 +663,7 @@ Otherwise it plays once, then stops."
     (cond
      ((null image)
       (error "No image is present"))
-     ((null (setq animation (image-animated-p image)))
+     ((null (setq animation (image-multi-frame-p image)))
       (message "No image animation."))
      (t
       (let ((timer (image-animate-timer image)))
@@ -620,6 +677,36 @@ Otherwise it plays once, then stops."
             (image-animate image index
                            (if image-animate-loop t)))))))))
 
+(defun image-goto-frame (n &optional relative)
+  "Show frame N of a multi-frame image.
+Optional argument OFFSET non-nil means interpret N as relative to the
+current frame.  Frames are indexed from 1."
+  (interactive
+   (list (or current-prefix-arg
+             (read-number "Show frame number: "))))
+  (let ((image (image-get-display-property)))
+    (cond
+     ((null image)
+      (error "No image is present"))
+     ((null image-current-frame)
+      (message "No image animation."))
+     (t
+      (image-nth-frame image (if relative (+ n image-current-frame) (1- n)))))))
+
+(defun image-next-frame (&optional n)
+  "Switch to the next frame of a multi-frame image.
+With optional argument N, switch to the Nth frame after the current one.
+If N is negative, switch to the Nth frame before the current one."
+  (interactive "p")
+  (image-goto-frame n t))
+
+(defun image-previous-frame (&optional n)
+  "Switch to the previous frame of a multi-frame image.
+With optional argument N, switch to the Nth frame before the current one.
+If N is negative, switch to the Nth frame after the current one."
+  (interactive "p")
+  (image-next-frame (- n)))
+
 
 ;;; Switching to the next/previous image
 
diff --git a/lisp/image.el b/lisp/image.el
index 73b25f6da67..b91d136443d 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -606,25 +606,25 @@ Example:
 
 ;;; Animated image API
 
-(defconst image-animated-types '(gif)
-  "List of supported animated image types.")
-
-(defun image-animated-p (image)
-  "Return non-nil if IMAGE can be animated.
-To be capable of being animated, an image must be of a type
-listed in `image-animated-types', and contain more than one
-sub-image, with a specified animation delay.  The actual return
-value is a cons (NIMAGES . DELAY), where NIMAGES is the number
-of sub-images in the animated image and DELAY is the delay in
-seconds until the next sub-image should be displayed."
-  (cond
-   ((memq (plist-get (cdr image) :type) image-animated-types)
-    (let* ((metadata (image-metadata image))
-           (images (plist-get metadata 'count))
-           (delay (plist-get metadata 'delay)))
-      (when (and images (> images 1) (numberp delay))
-        (if (< delay 0) (setq delay 0.1))
-        (cons images delay))))))
+(defvar image-default-frame-delay 0.1
+  "Default interval in seconds between frames of a multi-frame image.
+Only used if the image does not specify a value.")
+
+(defun image-multi-frame-p (image)
+  "Return non-nil if IMAGE contains more than one frame.
+The actual return value is a cons (NIMAGES . DELAY), where NIMAGES is
+the number of frames (or sub-images) in the image and DELAY is the delay
+in seconds that the image specifies between each frame.  DELAY may be nil,
+in which case you might want to use `image-default-frame-delay'."
+  (let* ((metadata (image-metadata image))
+         (images (plist-get metadata 'count))
+         (delay (plist-get metadata 'delay)))
+    (when (and images (> images 1))
+      (if (or (not (numberp delay)) (< delay 0))
+          (setq delay image-default-frame-delay))
+      (cons images delay))))
+
+(define-obsolete-function-alias 'image-animated-p 'image-multi-frame-p "24.4")
 
 ;; "Destructively"?
 (defun image-animate (image &optional index limit)
@@ -635,7 +635,7 @@ With optional INDEX, begin animating from that animation frame.
 LIMIT specifies how long to animate the image.  If omitted or
 nil, play the animation until the end.  If t, loop forever.  If a
 number, play until that number of seconds has elapsed."
-  (let ((animation (image-animated-p image))
+  (let ((animation (image-multi-frame-p image))
         timer)
     (when animation
       (if (setq timer (image-animate-timer image))
@@ -657,8 +657,25 @@ number, play until that number of seconds has elapsed."
         (setq timer nil)))
     timer))
 
+(defconst image-minimum-frame-delay 0.01
+  "Minimum interval in seconds between frames of an animated image.")
+
+(defvar-local image-current-frame nil
+  "The frame index of the current animated image.")
+
+(defun image-nth-frame (image n &optional nocheck)
+  "Show frame N of IMAGE.
+Frames are indexed from 0.  Optional argument NOCHECK non-nil means
+do not check N is within the range of frames present in the image."
+  (unless nocheck
+    (if (< n 0) (setq n 0)
+      (setq n (min n (1- (car (image-multi-frame-p image)))))))
+  (plist-put (cdr image) :index n)
+  (setq image-current-frame n)
+  (force-window-update))
+
 ;; FIXME? The delay may not be the same for different sub-images,
-;; hence we need to call image-animated-p to return it.
+;; hence we need to call image-multi-frame-p to return it.
 ;; But it also returns count, so why do we bother passing that as an
 ;; argument?
 (defun image-animate-timeout (image n count time-elapsed limit)
@@ -670,16 +687,16 @@ TIME-ELAPSED is the total time that has elapsed since
 LIMIT determines when to stop.  If t, loop forever.  If nil, stop
  after displaying the last animation frame.  Otherwise, stop
  after LIMIT seconds have elapsed.
-The minimum delay between successive frames is 0.01s."
-  (plist-put (cdr image) :index n)
-  (force-window-update)
+The minimum delay between successive frames is `image-minimum-frame-delay'."
+  (image-nth-frame image n t)
   (setq n (1+ n))
   (let* ((time (float-time))
-         (animation (image-animated-p image))
+         (animation (image-multi-frame-p image))
          ;; Subtract off the time we took to load the image from the
          ;; stated delay time.
-         (delay (max (+ (cdr animation) time (- (float-time)))
-                     0.01))
+         (delay (max (+ (or (cdr animation) image-default-frame-delay)
+                        time (- (float-time)))
+                     image-minimum-frame-delay))
          done)
     (if (>= n count)
         (if limit
diff --git a/lisp/info-look.el b/lisp/info-look.el
index a67fabc5a88..0b33dd51faf 100644
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -298,6 +298,21 @@ If optional argument QUERY is non-nil, query for the help mode."
         (when (string-match (caar file-name-alist) file-name)
           (setq info-lookup-mode (cdar file-name-alist)))
         (setq file-name-alist (cdr file-name-alist)))))
+
+  ;; If major-mode has no setups in info-lookup-alist, under any topic, then
+  ;; search up through derived-mode-parent to find a parent mode which does
+  ;; have some setups.  This means that a `define-derived-mode' with no
+  ;; setups of its own will select its parent mode for lookups, if one of
+  ;; its parents has some setups.  Good for example on `makefile-gmake-mode'
+  ;; and similar derivatives of `makefile-mode'.
+  ;;
+  (let ((mode major-mode)) ;; Look for `mode' with some setups.
+    (while (and mode (not info-lookup-mode))
+      (dolist (topic-cell info-lookup-alist) ;; Usually only two topics here.
+        (if (info-lookup->mode-value (car topic-cell) mode)
+            (setq info-lookup-mode mode)))
+      (setq mode (get mode 'derived-mode-parent))))
+
   (or info-lookup-mode (setq info-lookup-mode major-mode)))
 
 (defun info-lookup-change-mode (topic)
diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index d1ef1739bf7..dc45a57b7c6 100644
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -58,6 +58,19 @@
 (defvar tramp-cache-data (make-hash-table :test 'equal)
   "Hash table for remote files properties.")
 
+;;;###tramp-autoload
+(defcustom tramp-connection-properties nil
+  "List of static connection properties.
+Every entry has the form (REGEXP PROPERTY VALUE).  The regexp
+matches remote file names.  It can be nil.  PROPERTY is a string,
+and VALUE the corresponding value.  They are used, if there is no
+matching entry in for PROPERTY in `tramp-cache-data'."
+  :group 'tramp
+  :version "24.4"
+  :type '(repeat (list (choice :tag "File Name regexp" regexp (const nil))
+                       (choice :tag "        Property" string)
+                       (choice :tag "           Value" sexp))))
+
 (defcustom tramp-persistency-file-name
   (cond
    ;; GNU Emacs.
@@ -204,9 +217,27 @@ If the value is not set for the connection, returns DEFAULT."
     (setq key (copy-sequence key))
     (aset key 3 nil))
   (let* ((hash (gethash key tramp-cache-data))
-         (value (if (hash-table-p hash)
-                    (gethash property hash default)
-                  default)))
+         (value
+          (catch 'result
+            (or
+             ;; Check for dynamic properties.
+             (and
+              (hash-table-p hash)
+              (maphash
+               (lambda (x y) (when (equal x property) (throw 'result y)))
+               hash))
+             ;; Check for static properties.
+             (and
+              (vectorp key)
+              (dolist (elt tramp-connection-properties)
+                (when (and (string-match
+                            (or (nth 0 elt) "")
+                            (tramp-make-tramp-file-name
+                             (aref key 0) (aref key 1) (aref key 2) nil))
+                           (string-equal (or (nth 1 elt) "") (or property "")))
+                  (throw 'result (nth 2 elt)))))
+             ;; The default value.
+             default))))
     (tramp-message key 7 "%s %s" property value)
     value))
 
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index 12510bf7fab..81c4d5ccced 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -52,6 +52,7 @@
   (require 'format-spec)
   (require 'shell)
 
+  (require 'trampver)
   (require 'tramp-loaddefs)
 
   ;; As long as password.el is not part of (X)Emacs, it shouldn't be
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 001a27f3b2e..9be22352b23 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -512,6 +512,7 @@ as given in your `~/.profile'."
                   (const :tag "Private Directories" tramp-own-remote-path)
                   (string :tag "Directory"))))
 
+;;;###tramp-autoload
 (defcustom tramp-remote-process-environment
   `("HISTFILE=$HOME/.tramp_history" "HISTSIZE=1" "LC_ALL=C"
     ,(format "TERM=%s" tramp-terminal-type)
diff --git a/lisp/replace.el b/lisp/replace.el
index 7757426cf95..0b8aaa7d349 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -585,27 +585,32 @@ of `history-length', which see.")
 When PROMPT doesn't end with a colon and space, it adds a final \": \".
 If DEFAULTS is non-nil, it displays the first default in the prompt.
 
-Non-nil optional arg DEFAULTS is a string or a list of strings that
-are prepended to a list of standard default values, which include the
-string at point, the last isearch regexp, the last isearch string, and
-the last replacement regexp.
+Optional arg DEFAULTS is a string or a list of strings that are
+prepended to a list of standard default values, which include the
+tag at point, the last isearch regexp, the last isearch string,
+and the last replacement regexp.
 
 Non-nil HISTORY is a symbol to use for the history list.
 If HISTORY is nil, `regexp-history' is used."
-  (let* ((default (if (consp defaults) (car defaults) defaults))
-         (defaults
+  (let* ((defaults
            (append
             (if (listp defaults) defaults (list defaults))
-            (list (regexp-quote
-                   (or (funcall (or find-tag-default-function
+            (list
+             ;; Regexp for tag at point.
+             (let* ((tagf (or find-tag-default-function
                                     (get major-mode 'find-tag-default-function)
                                     'find-tag-default))
-                       ""))
+                    (tag (funcall tagf)))
+               (cond ((not tag) "")
+                     ((eq tagf 'find-tag-default)
+                      (format "\\_<%s\\_>" (regexp-quote tag)))
+                     (t (regexp-quote tag))))
                   (car regexp-search-ring)
                   (regexp-quote (or (car search-ring) ""))
                   (car (symbol-value
                         query-replace-from-history-variable)))))
          (defaults (delete-dups (delq nil (delete "" defaults))))
+         (default (car defaults))
          ;; Do not automatically add default to the history for empty input.
          (history-add-new-input nil)
          (input (read-from-minibuffer
diff --git a/lisp/simple.el b/lisp/simple.el
index 849f7dac55c..138c2420309 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1293,13 +1293,12 @@ display the result of expression evaluation."
 
 ;; We define this, rather than making `eval' interactive,
 ;; for the sake of completion of names like eval-region, eval-buffer.
-(defun eval-expression (eval-expression-arg
-                        &optional eval-expression-insert-value)
-  "Evaluate EVAL-EXPRESSION-ARG and print value in the echo area.
+(defun eval-expression (exp &optional insert-value)
+  "Evaluate EXP and print value in the echo area.
 When called interactively, read an Emacs Lisp expression and
 evaluate it.
 Value is also consed on to front of the variable `values'.
-Optional argument EVAL-EXPRESSION-INSERT-VALUE non-nil (interactively,
+Optional argument INSERT-VALUE non-nil (interactively,
 with prefix argument) means insert the result into the current buffer
 instead of printing it in the echo area.  Truncates long output
 according to the value of the variables `eval-expression-print-length'
@@ -1315,12 +1314,12 @@ this command arranges for all errors to enter the debugger."
          current-prefix-arg))
 
   (if (null eval-expression-debug-on-error)
-      (push (eval eval-expression-arg lexical-binding) values)
+      (push (eval exp lexical-binding) values)
     (let ((old-value (make-symbol "t")) new-value)
       ;; Bind debug-on-error to something unique so that we can
       ;; detect when evalled code changes it.
       (let ((debug-on-error old-value))
-        (push (eval eval-expression-arg lexical-binding) values)
+        (push (eval exp lexical-binding) values)
         (setq new-value debug-on-error))
       ;; If evalled code has changed the value of debug-on-error,
       ;; propagate that change to the global binding.
@@ -1328,8 +1327,9 @@ this command arranges for all errors to enter the debugger."
         (setq debug-on-error new-value))))
 
   (let ((print-length eval-expression-print-length)
-        (print-level eval-expression-print-level))
-    (if eval-expression-insert-value
+        (print-level eval-expression-print-level)
+        (deactivate-mark))
+    (if insert-value
         (with-no-warnings
          (let ((standard-output (current-buffer)))
            (prin1 (car values))))
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 72842ad188d..f8f24de6b68 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,9 @@
+2013-02-16  Glenn Morris  <rgm@gnu.org>
+
+        * url-http.el (url-http-wait-for-headers-change-function):
+        Avoid prematurely finding the end of headers when they arrive
+        line-by-line.  (Bug#13598)
+
 2013-02-03  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * url-cache.el (url-cache-create-filename-using-md5): Don't waste your
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 5dd3a751702..33fc5722759 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -1040,7 +1040,9 @@ the end of the document."
           (setq end-of-headers t
                 url-http-end-of-headers 0
                 old-http t)
-        (when (re-search-forward "^\r*$" nil t)
+        ;; Blank line at end of headers.
+        (when (re-search-forward "^\r?\n" nil t)
+          (backward-char 1)
           ;; Saw the end of the headers
           (url-http-debug "Saw end of headers... (%s)" (buffer-name))
           (setq url-http-end-of-headers (set-marker (make-marker)