auto upstream

6 files changed, 107 insertions, 39 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c895bce1cad..7e9e9d7738e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,28 @@
+2012-12-31  Jürgen Hötzel  <juergen@archlinux.org>
+
+        * net/tramp-adb.el (tramp-adb-maybe-open-connection): Handle errors
+        (No device connected, invalid device name). (Bug #13299)
+
+2012-12-31  Martin Rudalics  <rudalics@gmx.at>
+
+        * window.el (window-resizable--p): Rename to window-resizable-p.
+        (window-resize-no-error): New function.
+
+        * mail/rmail.el (rmail-maybe-display-summary): Restore behavior
+        broken in fix from 2012-12-28.
+
+2012-12-31  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * subr.el (special-form-p): Don't signal errors on undef aliases.
+
+2012-12-31  Jay Belanger  <jay.p.belanger@gmail.com>
+
+        * calc/calc-forms.el (math-parse-date): Try using
+        `math-parse-iso-date' when it looks like it might be needed.
+        Allow times of 24:00.
+        (math-parse-date-validate, math-parse-iso-date-validate):  Allow times
+        of 24:00.
+
 2012-12-30  Glenn Morris  <rgm@gnu.org>
 
         * net/mairix.el (rmail, rmail-summary-displayed, rmail-summary):
@@ -17,8 +42,8 @@
 
 2012-12-30  Mark Lillibridge  <mark.lillibridge@hp.com>
 
-        * mail/rmailmm.el (rmail-insert-mime-forwarded-message): Insert
-        the undecoded text of the message being forwarded.  (Bug#9521)
+        * mail/rmailmm.el (rmail-insert-mime-forwarded-message):
+        Insert the undecoded text of the message being forwarded.  (Bug#9521)
 
 2012-12-30  Michael Albinus  <michael.albinus@gmx.de>
 
@@ -28,8 +53,8 @@
         * net/tramp-sh.el (tramp-sh-handle-set-file-selinux-context):
         Return `t' on success.
 
-        * net/tramp-smb.el (tramp-smb-file-name-handler-alist): Add
-        handler for `set-file-selinux-context'.
+        * net/tramp-smb.el (tramp-smb-file-name-handler-alist):
+        Add handler for `set-file-selinux-context'.
 
 2012-12-29  Michael Albinus  <michael.albinus@gmx.de>
 
@@ -38,8 +63,8 @@
 
 2012-12-29  Eli Zaretskii  <eliz@gnu.org>
 
-        * files.el (backup-buffer-copy, basic-save-buffer-2): If
-        set-file-extended-attributes fails, fall back on set-file-modes
+        * files.el (backup-buffer-copy, basic-save-buffer-2):
+        If set-file-extended-attributes fails, fall back on set-file-modes
         instead of signaling an error.  (Bug#13298)
         (basic-save-buffer): Likewise.
 
@@ -67,8 +92,8 @@
 
 2012-12-28  Martin Rudalics  <rudalics@gmx.at>
 
-        * mail/rmail.el (rmail-maybe-display-summary): Rewrite
-        (Bug#13066).
+        * mail/rmail.el (rmail-maybe-display-summary):
+        Rewrite (Bug#13066).
 
 2012-12-28  Andreas Schwab  <schwab@linux-m68k.org>
 
@@ -123,8 +148,8 @@
 2012-12-27  Dmitry Gutov  <dgutov@yandex.ru>
 
         * progmodes/ruby-mode.el (ruby-indent-beg-re): Only allow "class",
-        "module" and "def" to have indentation before them.  Regression
-        from 2012-09-07T04:15:56Z!dgutov@yandex.ru (see the new test).
+        "module" and "def" to have indentation before them.
+        Regression from 2012-09-07T04:15:56Z!dgutov@yandex.ru (see the new test).
 
         * progmodes/ruby-mode.el: Bump the version to 1.2 (Bug#13200).
 
@@ -137,8 +162,8 @@
 2012-12-27  Vitalie Spinu  <spinuvit@gmail.com>  (tiny change)
 
         * comint.el (comint-adjust-window-point): New function.
-        (comint-postoutput-scroll-to-bottom): Call
-        comint-adjust-window-point (Bug#13248).
+        (comint-postoutput-scroll-to-bottom):
+        Call comint-adjust-window-point (Bug#13248).
 
 2012-12-26  Dmitry Gutov  <dgutov@yandex.ru>
 
@@ -149,8 +174,8 @@
 
 2012-12-26  Jürgen Hötzel  <juergen@archlinux.org>
 
-        * net/tramp-adb.el (tramp-adb-get-ls-command): New defun.  Suppress
-        coloring, if possible (required for BusyBox based systems like
+        * net/tramp-adb.el (tramp-adb-get-ls-command): New defun.
+        Suppress coloring, if possible (required for BusyBox based systems like
         CynagenMod).
         (tramp-adb-handle-file-attributes)
         (tramp-adb-handle-insert-directory)
@@ -179,8 +204,8 @@
         * notifications.el (notifications-notify): Protect body with
         `with-demoted-errors'.
 
-        * net/tramp-adb.el (tramp-adb-maybe-open-connection): Check
-        properties of remote device.  Restart connection, if there is a
+        * net/tramp-adb.el (tramp-adb-maybe-open-connection):
+        Check properties of remote device.  Restart connection, if there is a
         change.
 
 2012-12-21  Chong Yidong  <cyd@gnu.org>
diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el
index 7cfca261fa3..d7c598d3b48 100644
--- a/lisp/calc/calc-forms.el
+++ b/lisp/calc/calc-forms.el
@@ -918,7 +918,7 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)."
   (catch 'syntax
     (or (math-parse-standard-date math-pd-str t)
         (math-parse-standard-date math-pd-str nil)
-        (and (or (memq 'IYYY calc-date-format) (memq 'Iww calc-date-format))
+        (and (string-match "W[0-9][0-9]" math-pd-str)
              (math-parse-iso-date math-pd-str))
         (and (string-match "\\`[^-+/0-9a-zA-Z]*\\([-+]?[0-9]+\\.?[0-9]*\\([eE][-+]?[0-9]+\\)?\\)[^-+/0-9a-zA-Z]*\\'" math-pd-str)
              (list 'date (math-read-number (math-match-substring math-pd-str 1))))
@@ -943,8 +943,12 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)."
                     (setq second 0)
                   (setq second (math-read-number second)))
                 (if (equal ampm "")
-                    (if (> hour 23)
-                        (throw 'syntax "Hour value out of range"))
+                    (if (or
+                         (> hour 24)
+                         (and (= hour 24)
+                              (not (= minute 0))
+                              (not (eq second 0))))
+                        (throw 'syntax "Hour value is out of range"))
                   (setq ampm (upcase (aref ampm 0)))
                   (if (memq ampm '(?N ?M))
                       (if (and (= hour 12) (= minute 0) (eq second 0))
@@ -952,7 +956,7 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)."
                         (throw 'syntax
                                "Time must be 12:00:00 in this context"))
                     (if (or (= hour 0) (> hour 12))
-                        (throw 'syntax "Hour value out of range"))
+                        (throw 'syntax "Hour value is out of range"))
                     (if (eq (= ampm ?A) (= hour 12))
                         (setq hour (% (+ hour 12) 24)))))))
 
@@ -1075,7 +1079,11 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)."
       (throw 'syntax "Day value is out of range"))
   (and hour
        (progn
-         (if (or (< hour 0) (> hour 23))
+         (if (or (< hour 0) 
+                 (> hour 24)
+                 (and (= hour 24)
+                      (not (= minute 0))
+                      (not (eq second 0))))
              (throw 'syntax "Hour value is out of range"))
          (if (or (< minute 0) (> minute 59))
              (throw 'syntax "Minute value is out of range"))
@@ -1091,7 +1099,11 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)."
       (throw 'syntax "Weekday value is out of range"))
   (and hour
        (progn
-         (if (or (< hour 0) (> hour 23))
+         (if (or (< hour 0) 
+                 (> hour 24)
+                 (and (= hour 24)
+                      (not (= minute 0))
+                      (not (eq second 0))))
              (throw 'syntax "Hour value is out of range"))
          (if (or (< minute 0) (> minute 59))
              (throw 'syntax "Minute value is out of range"))
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 096b53c6cab..947d8e2cb4c 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -4224,15 +4224,25 @@ This has an effect only if a summary buffer exists."
 
 ;; Put the summary buffer back on the screen, if user wants that.
 (defun rmail-maybe-display-summary ()
-  ;; If requested, make sure the summary is displayed.
-  (when (and rmail-summary-buffer (buffer-name rmail-summary-buffer)
-             rmail-redisplay-summary)
+  (cond
+   ((or (not rmail-summary-buffer)
+        (not (buffer-name rmail-summary-buffer))))
+   (rmail-redisplay-summary
+    ;; If `rmail-redisplay-summary' is non-nil, make sure the summary
+    ;; buffer is displayed.
     (display-buffer
      rmail-summary-buffer
      `(nil
        (reusable-frames . 0)
        ,(when rmail-summary-window-size
-          `(window-height . ,rmail-summary-window-size))))))
+          `(window-height . ,rmail-summary-window-size)))))
+   (rmail-summary-window-size
+    ;; If `rmail-summary-window-size' is non-nil and the summary buffer
+    ;; is displayed, make sure it gets resized.
+    (let ((window (get-buffer-window rmail-summary-buffer 0)))
+      (when window
+        (window-resize-no-error
+         window (- rmail-summary-window-size (window-height window))))))))
 
 ;;;; *** Rmail Local Fontification ***
 
diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index f31bd6b3d2d..b418d1982d9 100644
--- a/lisp/net/tramp-adb.el
+++ b/lisp/net/tramp-adb.el
@@ -998,11 +998,24 @@ COMMAND is nil, just sends `echo $?'.  Returns the exit status found."
 Does not do anything if a connection is already open, but re-opens the
 connection if a previous connection has died for some reason."
   (let* ((buf (tramp-get-connection-buffer vec))
-         (p (get-buffer-process buf)))
+         (p (get-buffer-process buf))
+         (devices (mapcar 'cadr (tramp-adb-parse-device-names nil))))
     (unless
         (and p (processp p) (memq (process-status p) '(run open)))
       (save-match-data
         (when (and p (processp p)) (delete-process p))
+        (if (not devices)
+            (tramp-error vec 'file-error "No device connected"))
+        (if (and (tramp-file-name-host vec)
+                 (not (member (tramp-file-name-host vec) devices)))
+            (tramp-error
+             vec 'file-error
+             "Device %s not connected" (tramp-file-name-host vec)))
+        (if (and (not (eq (length devices) 1))
+                 (not (tramp-file-name-host vec)))
+            (tramp-error
+             vec 'file-error
+             "Multiple Devices connected: No Host/Device specified"))
         (with-tramp-progress-reporter vec 3 "Opening adb shell connection"
           (let* ((coding-system-for-read 'utf-8-dos) ;is this correct?
                  (process-connection-type tramp-process-connection-type)
diff --git a/lisp/subr.el b/lisp/subr.el
index 1e509036cd1..111fb6201b4 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2805,7 +2805,7 @@ Otherwise, return nil."
 (defun special-form-p (object)
   "Non-nil if and only if OBJECT is a special form."
   (if (and (symbolp object) (fboundp object))
-      (setq object (indirect-function object)))
+      (setq object (indirect-function object t)))
   (and (subrp object) (eq (cdr (subr-arity object)) 'unevalled)))
 
 (defun field-at-pos (pos)
diff --git a/lisp/window.el b/lisp/window.el
index 52909fa9e5f..250978d0053 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -1340,7 +1340,7 @@ violate size restrictions of WINDOW or its child windows."
          delta))
    (t 0)))
 
-(defun window--resizable-p (window delta &optional horizontal ignore trail noup nodown)
+(defun window-resizable-p (window delta &optional horizontal ignore trail noup nodown)
   "Return t if WINDOW can be resized vertically by DELTA lines.
 WINDOW must be a valid window and defaults to the selected one.
 For the meaning of the arguments of this function see the
@@ -1943,7 +1943,7 @@ instead."
       ;; nil or the minibuffer window is active, resize the minibuffer
       ;; window.
       (window--resize-mini-window minibuffer-window (- delta)))
-     ((window--resizable-p window delta horizontal ignore)
+     ((window-resizable-p window delta horizontal ignore)
       (window--resize-reset frame horizontal)
       (window--resize-this-window window delta horizontal ignore t)
       (if (and (not window-combination-resize)
@@ -1969,6 +1969,14 @@ instead."
      (t
       (error "Cannot resize window %s" window)))))
 
+(defun window-resize-no-error (window delta &optional horizontal ignore)
+  "Resize WINDOW vertically if it is resizable by DELTA lines.
+This function is like `window-resize' but does not signal an
+error when WINDOW cannot be resized.  For the meaning of the
+optional arguments see the documentation of `window-resize'."
+  (when (window-resizable-p window delta horizontal ignore)
+    (window-resize window delta horizontal ignore)))
+
 (defun window--resize-child-windows-skip-p (window)
   "Return non-nil if WINDOW shall be skipped by resizing routines."
   (memq (window-new-normal window) '(ignore stuck skip)))
@@ -2594,7 +2602,7 @@ negative, shrink selected window by -DELTA lines or columns."
       ;; If the selected window is full height and `resize-mini-windows'
       ;; is nil, resize the minibuffer window.
       (window--resize-mini-window minibuffer-window (- delta)))
-     ((window--resizable-p nil delta horizontal)
+     ((window-resizable-p nil delta horizontal)
       (window-resize nil delta horizontal))
      (t
       (window-resize
@@ -2627,7 +2635,7 @@ Also see the `window-min-height' variable."
       ;; If the selected window is full height and `resize-mini-windows'
       ;; is nil, resize the minibuffer window.
       (window--resize-mini-window minibuffer-window delta))
-     ((window--resizable-p nil (- delta) horizontal)
+     ((window-resizable-p nil (- delta) horizontal)
       (window-resize nil (- delta) horizontal))
      (t
       (window-resize
@@ -2901,7 +2909,7 @@ that is its frame's root window."
           (set-window-new-normal
            sibling (+ (window-normal-size sibling horizontal)
                       (window-normal-size window horizontal))))
-         ((window--resizable-p window (- size) horizontal nil nil nil t)
+         ((window-resizable-p window (- size) horizontal nil nil nil t)
           ;; Can do without resizing fixed-size windows.
           (window--resize-siblings window (- size) horizontal))
          (t
@@ -4440,13 +4448,13 @@ value can be also stored on disk and read back in a new session."
               (let ((delta (- (cdr (assq 'total-height item))
                               (window-total-height window)))
                     window-size-fixed)
-                (when (window--resizable-p window delta)
+                (when (window-resizable-p window delta)
                   (window-resize window delta)))
             ;; Else check whether the window is not high enough.
             (let* ((min-size (window-min-size window nil ignore))
                    (delta (- min-size (window-total-size window))))
               (when (and (> delta 0)
-                         (window--resizable-p window delta nil ignore))
+                         (window-resizable-p window delta nil ignore))
                 (window-resize window delta nil ignore))))
           ;; Adjust horizontally.
           (if (memq window-size-fixed '(t width))
@@ -4454,13 +4462,13 @@ value can be also stored on disk and read back in a new session."
               (let ((delta (- (cdr (assq 'total-width item))
                               (window-total-width window)))
                     window-size-fixed)
-                (when (window--resizable-p window delta)
+                (when (window-resizable-p window delta)
                   (window-resize window delta)))
             ;; Else check whether the window is not wide enough.
             (let* ((min-size (window-min-size window t ignore))
                    (delta (- min-size (window-total-size window t))))
               (when (and (> delta 0)
-                         (window--resizable-p window delta t ignore))
+                         (window-resizable-p window delta t ignore))
                 (window-resize window delta t ignore))))
           ;; Set dedicated status.
           (set-window-dedicated-p window (cdr (assq 'dedicated state)))
@@ -5211,7 +5219,7 @@ live."
                      (* (window-total-size (frame-root-window window))
                         height))))
                  (delta (- new-height (window-total-size window))))
-            (when (and (window--resizable-p window delta nil 'safe)
+            (when (and (window-resizable-p window delta nil 'safe)
                        (window-combined-p window))
               (window-resize window delta nil 'safe))))
          ((functionp height)
@@ -5227,7 +5235,7 @@ live."
                      (* (window-total-size (frame-root-window window) t)
                         width))))
                  (delta (- new-width (window-total-size window t))))
-            (when (and (window--resizable-p window delta t 'safe)
+            (when (and (window-resizable-p window delta t 'safe)
                        (window-combined-p window t))
               (window-resize window delta t 'safe))))
          ((functionp width)