[Emacs-diffs] trunk r115502: * bindings.el (visual-order-cursor-movement): Fix version.

[Leo Liu]

------------------------------------------------------------
revno: 115502
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16108
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Fri 2013-12-13 09:54:09 +0800
message:
  * bindings.el (visual-order-cursor-movement): Fix version.
  
  * indent.el (indent-region): Disable progress reporter in
  minibuffer.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/bindings.el               
bindings.el-20091113204419-o5vbwnq5f7feedwu-1013
  lisp/indent.el                 indent.el-20091113204419-o5vbwnq5f7feedwu-230

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-12-13 01:03:04 +0000
+++ b/lisp/ChangeLog    2013-12-13 01:54:09 +0000
@@ -1,3 +1,10 @@
+2013-12-13  Leo Liu  <address@hidden>
+
+       * 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  <address@hidden>
 
        * progmodes/python.el (python-pdbtrack-stacktrace-info-regexp):

=== modified file 'lisp/bindings.el'
--- a/lisp/bindings.el  2013-12-13 01:03:04 +0000
+++ b/lisp/bindings.el  2013-12-13 01:54:09 +0000
@@ -710,7 +710,7 @@
   :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).

=== modified file 'lisp/indent.el'
--- a/lisp/indent.el    2013-10-17 19:31:11 +0000
+++ b/lisp/indent.el    2013-12-13 01:54:09 +0000
@@ -481,13 +481,14 @@
     (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