From: Leo Liu <sdl.web@gmail.com>
Date: Fri, 13 Dec 2013 01:54:09 +0000 (+0800)
Subject: * bindings.el (visual-order-cursor-movement): Fix version.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~434
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b9e20952ea75d1c82c7d0935004c23e795c67e2f;p=emacs.git

* bindings.el (visual-order-cursor-movement): Fix version.

* indent.el (indent-region): Disable progress reporter in
minibuffer.

Fixes: debbugs:16108
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f2bb5297dbb..5a0718bc3de 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2013-12-13  Leo Liu  <sdl.web@gmail.com>
+
+	* indent.el (indent-region): Disable progress reporter in
+	minibuffer.  (Bug#16108)
+
+	* bindings.el (visual-order-cursor-movement): Fix version.
+
 2013-12-13  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
 	* progmodes/python.el (python-pdbtrack-stacktrace-info-regexp):
diff --git a/lisp/bindings.el b/lisp/bindings.el
index 4fa7c6daf82..f6ef562dbc6 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -710,7 +710,7 @@ cursor movements produce identical results."
   :type '(choice (const :tag "Logical-order cursor movement" nil)
 		 (const :tag "Visual-order cursor movement" t))
   :group 'display
-  :version "24.5")
+  :version "24.4")
 
 (defun right-char (&optional n)
   "Move point N characters to the right (to the left if N is negative).
diff --git a/lisp/indent.el b/lisp/indent.el
index e733ece66d5..ab5860dd10c 100644
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -481,13 +481,14 @@ column to indent to; if it is nil, use one of the three methods above."
     (save-excursion
       (setq end (copy-marker end))
       (goto-char start)
-      (let ((pr (make-progress-reporter "Indenting region..." (point) end)))
-      (while (< (point) end)
-	(or (and (bolp) (eolp))
-	    (indent-according-to-mode))
+      (let ((pr (unless (minibufferp)
+		  (make-progress-reporter "Indenting region..." (point) end))))
+	(while (< (point) end)
+	  (or (and (bolp) (eolp))
+	      (indent-according-to-mode))
           (forward-line 1)
-          (progress-reporter-update pr (point)))
-        (progress-reporter-done pr)
+          (and pr (progress-reporter-update pr (point))))
+	(and pr (progress-reporter-done pr))
         (move-marker end nil)))))
   ;; In most cases, reindenting modifies the buffer, but it may also
   ;; leave it unmodified, in which case we have to deactivate the mark