Merge from mainline.

15 files changed, 227 insertions, 60 deletions

diff --git a/etc/NEWS b/etc/NEWS
index 11425c21342..6e9171e55c8 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -633,6 +633,11 @@ Notifications API.  It requires D-Bus for communication.
 
 * Incompatible Lisp Changes in Emacs 24.1
 
+** `copy-directory' now copies the source directory as a subdirectory
+of the target directory, if the latter is an existing directory.  The
+new optional arg COPY-CONTENTS, if non-nil, makes the function copy
+the contents directly into a pre-existing target directory.
+
 ** `compose-mail' now accepts an optional 8th arg, RETURN-ACTION, and
 passes it to the mail user agent function.  This argument specifies an
 action for returning to the caller after finishing with the mail.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e8308059963..e80de4e9175 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,32 @@
+2011-02-12  Thierry Volpiatto  <thierry.volpiatto@gmail.com>
+
+        * files.el (copy-directory): New argument COPY-CONTENTS for
+        copying directory contents into another existing directory.
+
+2011-02-12  Tassilo Horn  <tassilo@member.fsf.org>
+
+        * minibuffer.el (completion-table-case-fold): New function for
+        creating a case-insensitive completion table.
+
+2011-02-12  Teodor Zlatanov  <tzz@lifelogs.com>
+
+        * net/tramp.el (tramp-default-method): Also check if
+        `auth-source-search' is bound.
+        (tramp-read-passwd): Use `auth-source-search' instead of
+        `auto-source-user-or-password'.
+
+        * net/tramp-imap.el: Autoload `auto-source-search' instead of
+        `auto-source-user-or-password.
+        (tramp-imap-passphrase-callback-function): Use it.
+
+        * net/imap-hash.el: Autoload `auto-source-search' instead of
+        `auto-source-user-or-password.
+        (imap-hash-open-connection): Use it.
+
+        * mail/smtpmail.el: Autoload `auto-source-search' instead of
+        `auto-source-user-or-password.
+        (smtpmail-try-auth-methods): Use it.
+
 2011-02-12  Phil Hagelberg  <phil@hagelb.org>
 
         * emacs-lisp/package.el: Allow packages to be reinstalled.
diff --git a/lisp/files.el b/lisp/files.el
index 43b31cb0a7a..2d3dbc67d72 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4826,10 +4826,8 @@ given.  With a prefix argument, TRASH is nil."
                  directory 'full directory-files-no-dot-files-regexp)))
       (delete-directory-internal directory)))))
 
-(defun copy-directory (directory newname &optional keep-time parents)
+(defun copy-directory (directory newname &optional keep-time parents copy-contents)
   "Copy DIRECTORY to NEWNAME.  Both args must be strings.
-If NEWNAME names an existing directory, copy DIRECTORY as subdirectory there.
-
 This function always sets the file modes of the output files to match
 the corresponding input file.
 
@@ -4840,7 +4838,12 @@ A prefix arg makes KEEP-TIME non-nil.
 
 Noninteractively, the last argument PARENTS says whether to
 create parent directories if they don't exist.  Interactively,
-this happens by default."
+this happens by default.
+
+If NEWNAME names an existing directory, copy DIRECTORY as a
+subdirectory there.  However, if called from Lisp with a non-nil
+optional argument COPY-CONTENTS, copy the contents of DIRECTORY
+directly into NEWNAME instead."
   (interactive
    (let ((dir (read-directory-name
                "Copy directory: " default-directory default-directory t nil)))
@@ -4848,7 +4851,7 @@ this happens by default."
            (read-file-name
             (format "Copy directory %s to: " dir)
             default-directory default-directory nil nil)
-           current-prefix-arg t)))
+           current-prefix-arg t nil)))
   ;; If default-directory is a remote directory, make sure we find its
   ;; copy-directory handler.
   (let ((handler (or (find-file-name-handler directory 'copy-directory)
@@ -4860,21 +4863,22 @@ this happens by default."
       (setq directory (directory-file-name (expand-file-name directory))
             newname   (directory-file-name (expand-file-name newname)))
 
-      (if (not (file-directory-p newname))
-          ;; If NEWNAME is not an existing directory, create it; that
-          ;; is where we will copy the files of DIRECTORY.
-          (make-directory newname parents)
-        ;; If NEWNAME is an existing directory, we will copy into
-        ;; NEWNAME/[DIRECTORY-BASENAME].
-        (setq newname (expand-file-name
-                       (file-name-nondirectory
-                        (directory-file-name directory))
-                       newname))
-        (and (file-exists-p newname)
-             (not (file-directory-p newname))
-             (error "Cannot overwrite non-directory %s with a directory"
-                    newname))
-        (make-directory newname t))
+      (cond ((not (file-directory-p newname))
+             ;; If NEWNAME is not an existing directory, create it;
+             ;; that is where we will copy the files of DIRECTORY.
+             (make-directory newname parents))
+            ;; If NEWNAME is an existing directory and COPY-CONTENTS
+            ;; is nil, copy into NEWNAME/[DIRECTORY-BASENAME].
+            ((not copy-contents)
+             (setq newname (expand-file-name
+                            (file-name-nondirectory
+                             (directory-file-name directory))
+                            newname))
+             (and (file-exists-p newname)
+                  (not (file-directory-p newname))
+                  (error "Cannot overwrite non-directory %s with a directory"
+                         newname))
+             (make-directory newname t)))
 
       ;; Copy recursively.
       (dolist (file
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index f726304704b..427d9d17746 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -77,7 +77,7 @@
 (autoload 'netrc-machine "netrc")
 (autoload 'netrc-get "netrc")
 (autoload 'password-read "password-cache")
-(autoload 'auth-source-user-or-password "auth-source")
+(autoload 'auth-source-search "auth-source")
 
 ;;;
 (defgroup smtpmail nil
@@ -538,10 +538,14 @@ The list is in preference order.")
 (defun smtpmail-try-auth-methods (process supported-extensions host port)
   (let* ((mechs (cdr-safe (assoc 'auth supported-extensions)))
          (mech (car (smtpmail-intersection mechs smtpmail-auth-supported)))
-         (auth-user (auth-source-user-or-password
-                     "login" host (or port "smtp")))
-         (auth-pass (auth-source-user-or-password
-                     "password" host (or port "smtp")))
+         (auth-info (auth-source-search :max 1
+                                        :host host
+                                        :port (or port "smtp")))
+         (auth-user (plist-get (nth 0 auth-info) :user))
+         (auth-pass (plist-get (nth 0 auth-info) :secret))
+         (auth-pass (if (functionp auth-pass)
+                        (funcall auth-pass)
+                      auth-pass))
          (cred (if (and auth-user auth-pass) ; try user-auth-* before netrc-*
                    (list host port auth-user auth-pass)
                  ;; else, if auth-source didn't return them...
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 1b42ee1f2ce..3c8628c9cfa 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -196,6 +196,10 @@ You should give VAR a non-nil `risky-local-variable' property."
           (setq ,var (,fun)))
         ,var))))
 
+(defun completion-table-case-fold (table string pred action)
+  (let ((completion-ignore-case t))
+    (complete-with-action action table string pred)))
+
 (defun completion-table-with-context (prefix table string pred action)
   ;; TODO: add `suffix' maybe?
   ;; Notice that `pred' may not be a function in some abusive cases.
diff --git a/lisp/net/imap-hash.el b/lisp/net/imap-hash.el
index d21b714d950..a07277cee68 100644
--- a/lisp/net/imap-hash.el
+++ b/lisp/net/imap-hash.el
@@ -43,7 +43,7 @@
 (require 'imap)
 (require 'sendmail)                     ; for mail-header-separator
 (require 'message)
-(autoload 'auth-source-user-or-password "auth-source")
+(autoload 'auth-source-search "auth-source")
 
 ;; retrieve these headers
 (defvar imap-hash-headers
@@ -267,13 +267,14 @@ The function is passed the message headers (see `imap-hash-get-headers')."
                               (imap-hash-password iht))))
          ;; this will not be needed if auth-need is t
          (auth-info (when auth-need
-                      (auth-source-user-or-password
-                       '("login" "password")
-                       server port)))
+                      (nth 0 (auth-source-search :host server :port port))))
          (auth-user (or (imap-hash-user iht)
-                        (nth 0 auth-info)))
+                        (plist-get auth-info :user)))
          (auth-passwd (or (imap-hash-password iht)
-                          (nth 1 auth-info)))
+                          (plist-get auth-info :secret)))
+         (auth-passwd (if (functionp auth-passwd)
+                          (funcall auth-passwd)
+                        auth-passwd))
          (imap-logout-timeout nil))
 
         ;; (debug "opening server: opened+state" (imap-opened) imap-state)
diff --git a/lisp/net/tramp-imap.el b/lisp/net/tramp-imap.el
index 3a536103c3d..4157265b0e1 100644
--- a/lisp/net/tramp-imap.el
+++ b/lisp/net/tramp-imap.el
@@ -56,7 +56,7 @@
 (require 'assoc)
 (require 'tramp)
 
-(autoload 'auth-source-user-or-password "auth-source")
+(autoload 'auth-source-search "auth-source")
 (autoload 'epg-context-operation "epg")
 (autoload 'epg-context-set-armor "epg")
 (autoload 'epg-context-set-passphrase-callback "epg")
@@ -639,8 +639,14 @@ HANDBACK is just carried through.
 KEY-ID can be 'SYM or 'PIN among others."
   (let* ((server tramp-current-host)
          (port "tramp-imap")            ; this is NOT the server password!
-         (auth-passwd
-          (auth-source-user-or-password "password" server port)))
+         (auth-passwd (plist-get
+                       (nth 0 (auth-source-search :max 1
+                                                  :host server
+                                                  :port port))
+                       :secret))
+         (auth-passwd (if (functionp auth-passwd)
+                          (funcall auth-passwd)
+                        auth-passwd)))
     (or
      (copy-sequence auth-passwd)
      ;; If we cache the passphrase and we have one.
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 8584d4ddc92..5d0f3935884 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -297,6 +297,7 @@ shouldn't return t when it isn't."
          (executable-find "pscp"))
     (if (or (fboundp 'password-read)
             (fboundp 'auth-source-user-or-password)
+            (fboundp 'auth-source-search)
             ;; Pageant is running.
             (tramp-compat-process-running-p "Pageant"))
         "pscp"
@@ -307,6 +308,7 @@ shouldn't return t when it isn't."
      ((tramp-detect-ssh-controlmaster) "scpc")
      ((or (fboundp 'password-read)
           (fboundp 'auth-source-user-or-password)
+          (fboundp 'auth-source-search)
           ;; ssh-agent is running.
           (getenv "SSH_AUTH_SOCK")
           (getenv "SSH_AGENT_PID"))
@@ -3519,7 +3521,8 @@ Invokes `password-read' if available, `read-passwd' else."
           (or prompt
               (with-current-buffer (process-buffer proc)
                 (tramp-check-for-regexp proc tramp-password-prompt-regexp)
-                (format "%s for %s " (capitalize (match-string 1)) key)))))
+                (format "%s for %s " (capitalize (match-string 1)) key))))
+         auth-info auth-passwd)
     (with-parsed-tramp-file-name key nil
       (prog1
           (or
@@ -3527,9 +3530,22 @@ Invokes `password-read' if available, `read-passwd' else."
            (and (boundp 'auth-sources)
                 (tramp-get-connection-property v "first-password-request" nil)
                 ;; Try with Tramp's current method.
-                (tramp-compat-funcall
-                 'auth-source-user-or-password
-                 "password" tramp-current-host tramp-current-method))
+                (if (fboundp 'auth-source-search)
+                    (progn
+                      (setq auth-info
+                            (tramp-compat-funcall
+                             'auth-source-search
+                             :max 1
+                             :user (or tramp-current-user t)
+                             :host tramp-current-host
+                             :port tramp-current-method))
+                      (setq auth-passwd (plist-get (nth 0 auth-info) :secret))
+                      (setq auth-passwd (if (functionp auth-passwd)
+                                            (funcall auth-passwd)
+                                          auth-passwd)))
+                  (tramp-compat-funcall
+                   'auth-source-user-or-password
+                   "password" tramp-current-host tramp-current-method)))
            ;; Try the password cache.
            (when (functionp 'password-read)
              (unless (tramp-get-connection-property
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 742a3cfb9b5..3c7b8b6abe7 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,13 @@
+2011-02-12  Teodor Zlatanov  <tzz@lifelogs.com>
+
+        * url-parse.el (url-bit-for-url, url-user-for-url)
+        (url-password-for-url): Use `auto-source-search' instead of
+        `auto-source-user-or-password'.
+
+        * url-auth.el: Autoload `auto-source-search' instead of
+        `auto-source-user-or-password'.
+        (url-basic-auth, url-digest-auth, url-do-auth-source-search): Use it.
+
 2011-02-03  Lars Ingebrigtsen  <larsi@gnus.org>
 
         * url-http.el (url-http-wait-for-headers-change-function): Don't
diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el
index 842e2a3be8d..5261302a15c 100644
--- a/lisp/url/url-auth.el
+++ b/lisp/url/url-auth.el
@@ -24,7 +24,7 @@
 (require 'url-vars)
 (require 'url-parse)
 (autoload 'url-warn "url")
-(autoload 'auth-source-user-or-password "auth-source")
+(autoload 'auth-source-search "auth-source")
 
 (defsubst url-auth-user-prompt (url realm)
   "String to usefully prompt for a username."
@@ -81,11 +81,11 @@ instead of the filename inheritance method."
     (cond
      ((and prompt (not byserv))
       (setq user (or
-                  (auth-source-user-or-password "login" server type)
+                  (url-do-auth-source-search server type :user)
                   (read-string (url-auth-user-prompt url realm)
                                (or user (user-real-login-name))))
             pass (or
-                  (auth-source-user-or-password "password" server type)
+                  (url-do-auth-source-search server type :secret)
                   (read-passwd "Password: " nil (or pass ""))))
       (set url-basic-auth-storage
            (cons (list server
@@ -110,11 +110,11 @@ instead of the filename inheritance method."
       (if (or (and (not retval) prompt) overwrite)
           (progn
             (setq user (or
-                        (auth-source-user-or-password "login" server type)
+                        (url-do-auth-source-search server type :user)
                         (read-string (url-auth-user-prompt url realm)
                                      (user-real-login-name)))
                   pass (or
-                        (auth-source-user-or-password "password" server type)
+                        (url-do-auth-source-search server type :secret)
                         (read-passwd "Password: "))
                   retval (base64-encode-string (format "%s:%s" user pass))
                   byserv (assoc server (symbol-value url-basic-auth-storage)))
@@ -173,11 +173,11 @@ instead of hostname:portnum."
         (cond
          ((and prompt (not byserv))
           (setq user (or
-                      (auth-source-user-or-password "login" server type)
+                      (url-do-auth-source-search server type :user)
                       (read-string (url-auth-user-prompt url realm)
                                    (user-real-login-name)))
                 pass (or
-                      (auth-source-user-or-password "password" server type)
+                      (url-do-auth-source-search server type :secret)
                       (read-passwd "Password: "))
                 url-digest-auth-storage
                 (cons (list server
@@ -204,11 +204,11 @@ instead of hostname:portnum."
           (if overwrite
               (if (and (not retval) prompt)
                   (setq user (or
-                              (auth-source-user-or-password "login" server type)
+                              (url-do-auth-source-search server type :user)
                               (read-string (url-auth-user-prompt url realm)
                                            (user-real-login-name)))
                         pass (or
-                              (auth-source-user-or-password "password" server type)
+                              (url-do-auth-source-search server type :secret)
                               (read-passwd "Password: "))
                         retval (setq retval
                                      (cons user
@@ -244,6 +244,13 @@ instead of hostname:portnum."
   "A list of the registered authorization schemes and various and sundry
 information associated with them.")
 
+(defun url-do-auth-source-search (server type parameter)
+  (let* ((auth-info (auth-source-search :max 1 :host server :port type))
+         (auth-info (nth 0 auth-info))
+         (token (plist-get auth-info parameter))
+         (token (if (functionp token) (funcall token) token)))
+    token))
+
 ;;;###autoload
 (defun url-get-authentication (url realm type prompt &optional args)
   "Return an authorization string suitable for use in the WWW-Authenticate
diff --git a/lisp/url/url-parse.el b/lisp/url/url-parse.el
index 950f666e9c7..71c03bf1edd 100644
--- a/lisp/url/url-parse.el
+++ b/lisp/url/url-parse.el
@@ -178,20 +178,25 @@ TYPE USER PASSWORD HOST PORTSPEC FILENAME TARGET ATTRIBUTES FULLNESS."
   `(let* ((urlobj (url-generic-parse-url url))
           (bit (funcall ,method urlobj))
           (methods (list 'url-recreate-url
-                         'url-host)))
+                         'url-host))
+          auth-info)
      (while (and (not bit) (> (length methods) 0))
-       (setq bit
-             (auth-source-user-or-password
-              ,lookfor (funcall (pop methods) urlobj) (url-type urlobj))))
+       (setq auth-info (auth-source-search
+                        :max 1
+                        :host (funcall (pop methods) urlobj)
+                        :port (url-type urlobj)))
+       (setq bit (plist-get (nth 0 auth-info) ,lookfor))
+       (when (functionp bit)
+         (setq bit (funcall bit))))
      bit))
 
 (defun url-user-for-url (url)
   "Attempt to use .authinfo to find a user for this URL."
-  (url-bit-for-url 'url-user "login" url))
+  (url-bit-for-url 'url-user :user url))
 
 (defun url-password-for-url (url)
   "Attempt to use .authinfo to find a password for this URL."
-  (url-bit-for-url 'url-password "password" url))
+  (url-bit-for-url 'url-password :secret url))
 
 (provide 'url-parse)
 
diff --git a/src/ChangeLog b/src/ChangeLog
index 43ca62aedfc..031b254739e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,17 @@
+2011-02-12  Andreas Schwab  <schwab@linux-m68k.org>
+
+        * process.c (create_process): Reset SIGPIPE handler in the child.
+        * callproc.c (Fcall_process): Likewise.  (Bug#5238)
+
+2011-02-12  Eli Zaretskii  <eliz@gnu.org>
+
+        * xdisp.c <this_line_min_pos>: New variable.
+        (move_it_in_display_line_to): Record in this_line_min_pos the
+        smallest position iterated across.
+        (display_line): Use this_line_min_pos to record the smallest
+        position in the line even if it is not displayed due to
+        hscrolling.  (Bug#7939)
+
 2011-02-12  Paul Eggert  <eggert@cs.ucla.edu>
 
         Remove no-longer needed getloadavg symbols.
diff --git a/src/callproc.c b/src/callproc.c
index 925eefb4b02..27e8493bcf1 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -445,6 +445,11 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
     register char **save_environ = environ;
     register int fd1 = fd[1];
     int fd_error = fd1;
+#ifdef HAVE_WORKING_VFORK
+    sigset_t procmask;
+    sigset_t blocked;
+    struct sigaction sigpipe_action;
+#endif
 
 #if 0  /* Some systems don't have sigblock.  */
     mask = sigblock (sigmask (SIGCHLD));
@@ -525,6 +530,18 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
     pid = child_setup (filefd, fd1, fd_error, (char **) new_argv,
                        0, current_dir);
 #else  /* not WINDOWSNT */
+
+#ifdef HAVE_WORKING_VFORK
+    /* On many hosts (e.g. Solaris 2.4), if a vforked child calls `signal',
+       this sets the parent's signal handlers as well as the child's.
+       So delay all interrupts whose handlers the child might munge,
+       and record the current handlers so they can be restored later.  */
+    sigemptyset (&blocked);
+    sigaddset (&blocked, SIGPIPE);
+    sigaction (SIGPIPE, 0, &sigpipe_action);
+    sigprocmask (SIG_BLOCK, &blocked, &procmask);
+#endif
+
     BLOCK_INPUT;
 
     pid = vfork ();
@@ -541,11 +558,26 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
 #else
         setpgrp (pid, pid);
 #endif /* USG */
+
+        /* GTK causes us to ignore SIGPIPE, make sure it is restored
+           in the child.  */
+        signal (SIGPIPE, SIG_DFL);
+#ifdef HAVE_WORKING_VFORK
+        sigprocmask (SIG_SETMASK, &procmask, 0);
+#endif
+
         child_setup (filefd, fd1, fd_error, (char **) new_argv,
                      0, current_dir);
       }
 
     UNBLOCK_INPUT;
+
+#ifdef HAVE_WORKING_VFORK
+    /* Restore the signal state.  */
+    sigaction (SIGPIPE, &sigpipe_action, 0);
+    sigprocmask (SIG_SETMASK, &procmask, 0);
+#endif
+
 #endif /* not WINDOWSNT */
 
     /* The MSDOS case did this already.  */
diff --git a/src/process.c b/src/process.c
index 80e70e49f8e..d026b9d030b 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1786,6 +1786,7 @@ create_process (Lisp_Object process, char **new_argv, Lisp_Object current_dir)
   sigset_t blocked;
   struct sigaction sigint_action;
   struct sigaction sigquit_action;
+  struct sigaction sigpipe_action;
 #ifdef AIX
   struct sigaction sighup_action;
 #endif
@@ -1898,6 +1899,7 @@ create_process (Lisp_Object process, char **new_argv, Lisp_Object current_dir)
      and record the current handlers so they can be restored later.  */
   sigaddset (&blocked, SIGINT );  sigaction (SIGINT , 0, &sigint_action );
   sigaddset (&blocked, SIGQUIT);  sigaction (SIGQUIT, 0, &sigquit_action);
+  sigaddset (&blocked, SIGPIPE);  sigaction (SIGPIPE, 0, &sigpipe_action);
 #ifdef AIX
   sigaddset (&blocked, SIGHUP );  sigaction (SIGHUP , 0, &sighup_action );
 #endif
@@ -2054,6 +2056,9 @@ create_process (Lisp_Object process, char **new_argv, Lisp_Object current_dir)
 
         signal (SIGINT, SIG_DFL);
         signal (SIGQUIT, SIG_DFL);
+        /* GTK causes us to ignore SIGPIPE, make sure it is restored
+           in the child.  */
+        signal (SIGPIPE, SIG_DFL);
 
         /* Stop blocking signals in the child.  */
         sigprocmask (SIG_SETMASK, &procmask, 0);
@@ -2142,6 +2147,7 @@ create_process (Lisp_Object process, char **new_argv, Lisp_Object current_dir)
   /* Restore the parent's signal handlers.  */
   sigaction (SIGINT, &sigint_action, 0);
   sigaction (SIGQUIT, &sigquit_action, 0);
+  sigaction (SIGPIPE, &sigpipe_action, 0);
 #ifdef AIX
   sigaction (SIGHUP, &sighup_action, 0);
 #endif
diff --git a/src/xdisp.c b/src/xdisp.c
index 630c1dcda85..b9b77e34b9d 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -444,6 +444,12 @@ static int this_line_pixel_height;
 
 static int this_line_start_x;
 
+/* The smallest character position seen by move_it_* functions as they
+   move across display lines.  Used to set MATRIX_ROW_START_CHARPOS of
+   hscrolled lines, see display_line.  */
+
+static struct text_pos this_line_min_pos;
+
 /* Buffer that this_line_.* variables are referring to.  */
 
 static struct buffer *this_line_buffer;
@@ -6909,6 +6915,9 @@ move_it_in_display_line_to (struct it *it,
       && it->current_y < it->last_visible_y)
     handle_line_prefix (it);
 
+  if (IT_CHARPOS (*it) < CHARPOS (this_line_min_pos))
+    SET_TEXT_POS (this_line_min_pos, IT_CHARPOS (*it), IT_BYTEPOS (*it));
+
   while (1)
     {
       int x, i, ascent = 0, descent = 0;
@@ -7013,6 +7022,9 @@ move_it_in_display_line_to (struct it *it,
       if (it->area != TEXT_AREA)
         {
           set_iterator_to_next (it, 1);
+          if (IT_CHARPOS (*it) < CHARPOS (this_line_min_pos))
+            SET_TEXT_POS (this_line_min_pos,
+                          IT_CHARPOS (*it), IT_BYTEPOS (*it));
           continue;
         }
 
@@ -7121,6 +7133,9 @@ move_it_in_display_line_to (struct it *it,
                             }
 
                           set_iterator_to_next (it, 1);
+                          if (IT_CHARPOS (*it) < CHARPOS (this_line_min_pos))
+                            SET_TEXT_POS (this_line_min_pos,
+                                          IT_CHARPOS (*it), IT_BYTEPOS (*it));
                           /* On graphical terminals, newlines may
                              "overflow" into the fringe if
                              overflow-newline-into-fringe is non-nil.
@@ -7219,6 +7234,8 @@ move_it_in_display_line_to (struct it *it,
       /* The current display element has been consumed.  Advance
          to the next.  */
       set_iterator_to_next (it, 1);
+      if (IT_CHARPOS (*it) < CHARPOS (this_line_min_pos))
+        SET_TEXT_POS (this_line_min_pos, IT_CHARPOS (*it), IT_BYTEPOS (*it));
 
       /* Stop if lines are truncated and IT's current x-position is
          past the right edge of the window now.  */
@@ -17139,18 +17156,15 @@ find_row_edges (struct it *it, struct glyph_row *row,
   if (min_pos <= ZV)
     SET_TEXT_POS (row->minpos, min_pos, min_bpos);
   else
-    {
-      /* We didn't find _any_ valid buffer positions in any of the
-         glyphs, so we must trust the iterator's computed
-         positions.  */
+    /* We didn't find _any_ valid buffer positions in any of the
+       glyphs, so we must trust the iterator's computed positions.  */
       row->minpos = row->start.pos;
+  if (max_pos <= 0)
+    {
       max_pos = CHARPOS (it->current.pos);
       max_bpos = BYTEPOS (it->current.pos);
     }
 
-  if (!max_pos)
-    abort ();
-
   /* Here are the various use-cases for ending the row, and the
      corresponding values for ROW->maxpos:
 
@@ -17263,8 +17277,18 @@ display_line (struct it *it)
      if the first glyph is partially visible or if we hit a line end.  */
   if (it->current_x < it->first_visible_x)
     {
+      SET_TEXT_POS (this_line_min_pos, ZV + 1, ZV_BYTE + 1);
       move_it_in_display_line_to (it, ZV, it->first_visible_x,
                                   MOVE_TO_POS | MOVE_TO_X);
+      /* Record the smallest positions seen while we moved over
+         display elements that are not visible.  This is needed by
+         redisplay_internal for optimizing the case where the cursor
+         stays inside the same line.  The rest of this function only
+         considers positions that are actually displayed, so
+         RECORD_MAX_MIN_POS will not otherwise record positions that
+         are hscrolled to the left of the left edge of the window.  */
+      min_pos = CHARPOS (this_line_min_pos);
+      min_bpos = BYTEPOS (this_line_min_pos);
     }
   else
     {