upstream

10 files changed, 71 insertions, 16 deletions

diff --git a/autogen/config.in b/autogen/config.in
index 24dd54db43f..5a53b240ef8 100644
--- a/autogen/config.in
+++ b/autogen/config.in
@@ -672,6 +672,9 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 /* Define to 1 if the system has the type `sigset_t'. */
 #undef HAVE_SIGSET_T
 
+/* Define to 1 if you have the `snprintf' function. */
+#undef HAVE_SNPRINTF
+
 /* Define to 1 if you have sound support. */
 #undef HAVE_SOUND
 
diff --git a/autogen/configure b/autogen/configure
index c77d87721b5..0bf9783fb67 100755
--- a/autogen/configure
+++ b/autogen/configure
@@ -15058,6 +15058,18 @@ $as_echo "#define HAVE_WORKING_FORK 1" >>confdefs.h
 fi
 
 
+for ac_func in snprintf
+do :
+  ac_fn_c_check_func "$LINENO" "snprintf" "ac_cv_func_snprintf"
+if test "x$ac_cv_func_snprintf" = x""yes; then :
+  cat >>confdefs.h <<_ACEOF
+#define HAVE_SNPRINTF 1
+_ACEOF
+
+fi
+done
+
+
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for nl_langinfo and CODESET" >&5
 $as_echo_n "checking for nl_langinfo and CODESET... " >&6; }
 if test "${emacs_cv_langinfo_codeset+set}" = set; then :
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d30010d6016..d82391d691a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2011-09-06  Alan Mackenzie  <acm@muc.de>
+
+        * isearch.el (isearch-other-meta-char): Wherever a key list is
+        unread, "unread" the prefix arg, too.  This fixes bug #8901.
+
+2011-09-05  Oleksandr Gavenko  <gavenkoa@gmail.com>  (tiny change)
+
+        * progmodes/grep.el (rgrep): Add "-type d" (bug#9414).
+
+2011-09-05  Juri Linkov  <juri@jurta.org>
+
+        * progmodes/grep.el (grep-process-setup): Fix comments (bug#8084).
+
 2011-09-05  Juri Linkov  <juri@jurta.org>
 
         * progmodes/grep.el (grep-filter): Avoid incomplete processing by
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9d719136cc1..2e0cc11279a 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,15 @@
+2011-09-05  Andrew Cohen  <cohen@andy.bu.edu>
+
+        * gnus-sum.el (gnus-summary-exit): Ensure we kill the proper
+        original-article-buffer.
+
+2011-09-05  Kan-Ru Chen  <kanru@kanru.info>
+
+        * nnir.el (nnir-compose-result): Fix matching of server type.
+        (nnir-run-swish++): Ditto.
+        (nnir-run-namazu): Ditto.
+        (nnir-run-notmuch): Ditto.
+
 2011-09-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
         * gnus.el (gnus-home-directory): Add warning about setting in .gnus.el
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index fd441c46d17..bb8c719a4fd 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -7214,6 +7214,7 @@ If FORCE (the prefix), also save the .newsrc file(s)."
          (quit-config (gnus-group-quit-config gnus-newsgroup-name))
          (gnus-group-is-exiting-p t)
          (article-buffer gnus-article-buffer)
+         (original-article-buffer gnus-original-article-buffer)
          (mode major-mode)
          (group-point nil)
          (buf (current-buffer))
@@ -7290,7 +7291,7 @@ If FORCE (the prefix), also save the .newsrc file(s)."
             (unless (eq major-mode 'gnus-sticky-article-mode)
               (gnus-kill-buffer article-buffer)
               (setq gnus-article-current nil))))
-        (gnus-kill-buffer gnus-original-article-buffer))
+        (gnus-kill-buffer original-article-buffer))
 
       ;; Clear the current group name.
       (unless quit-config
diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index 17fc3f3fe81..0be6a17d50e 100644
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -806,7 +806,7 @@ ready to be added to the list of search results."
     ;; remove trailing slash and, for nnmaildir, cur/new/tmp
     (setq dirnam
           (substring dirnam 0
-                     (if (string= (gnus-group-server server) "nnmaildir")
+                     (if (string-match "^nnmaildir:" (gnus-group-server server))
                          -5 -1)))
 
     ;; Set group to dirnam without any leading dots or slashes,
@@ -816,7 +816,7 @@ ready to be added to the list of search results."
                  "[/\\]" "." t)))
 
     (vector (gnus-group-full-name group server)
-            (if (string= (gnus-group-server server) "nnmaildir")
+            (if (string-match "^nnmaildir:" (gnus-group-server server))
                 (nnmaildir-base-name-to-article-number
                  (substring article 0 (string-match ":" article))
                  group nil)
@@ -1073,7 +1073,8 @@ Windows NT 4.0."
            ;; is sufficient.  Note that we can't only use the value of
            ;; nnml-use-compressed-files because old articles might have been
            ;; saved with a different value.
-           (article-pattern (if (string= (gnus-group-server server) "nnmaildir")
+           (article-pattern (if (string-match "^nnmaildir:"
+                                              (gnus-group-server server))
                                 ":[0-9]+"
                               "^[0-9]+\\(\\.[a-z0-9]+\\)?$"))
            score artno dirnam filenam)
@@ -1315,7 +1316,8 @@ Tested with Namazu 2.0.6 on a GNU/Linux system."
   ;; (when group
   ;;   (error "The Namazu backend cannot search specific groups"))
   (save-excursion
-    (let ((article-pattern (if (string= (gnus-group-server server) "nnmaildir")
+    (let ((article-pattern (if (string-match "^nnmaildir:"
+                                             (gnus-group-server server))
                                ":[0-9]+"
                              "^[0-9]+$"))
           artlist
@@ -1388,7 +1390,8 @@ actually)."
            (groupspec (cdr (assq 'group query)))
            (prefix (nnir-read-server-parm 'nnir-notmuch-remove-prefix server))
            artlist
-           (article-pattern (if (string= (gnus-group-server server) "nnmaildir")
+           (article-pattern (if (string-match "^nnmaildir:"
+                                              (gnus-group-server server))
                                ":[0-9]+"
                              "^[0-9]+$"))
            artno dirnam filenam)
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 6eab3dbcbc4..7f54067f9aa 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1920,6 +1920,7 @@ Isearch mode."
            (if (lookup-key global-map key)
                (progn
                  (isearch-done)
+                 (setq prefix-arg arg)
                  (apply 'isearch-unread keylist))
              (setq keylist
                    (listify-key-sequence (lookup-key local-function-key-map key)))
@@ -1935,6 +1936,7 @@ Isearch mode."
                      (setq keylist (cdr keylist)))
                  ;; As the remaining keys in KEYLIST can't be handled
                  ;; here, we must reread them.
+                 (setq prefix-arg arg)
                  (apply 'isearch-unread keylist)
                  (setq keylist nil)))))
           (
@@ -1957,8 +1959,10 @@ Isearch mode."
                                isearch-other-control-char)))))
            (setcar keylist (- main-event (- ?\C-\S-a ?\C-a)))
            (cancel-kbd-macro-events)
+           (setq prefix-arg arg)
            (apply 'isearch-unread keylist))
           ((eq search-exit-option 'edit)
+           (setq prefix-arg arg)
            (apply 'isearch-unread keylist)
            (isearch-edit-string))
           ;; Handle a scrolling function.
@@ -1987,6 +1991,7 @@ Isearch mode."
            (isearch-edit-string))
           (search-exit-option
            (let (window)
+             (setq prefix-arg arg)
              (isearch-unread-key-sequence keylist)
              (setq main-event (car unread-command-events))
 
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index eeebcc6648f..de46dc19169 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -446,9 +446,10 @@ Set up `compilation-exit-message-function' and run `grep-setup-hook'."
   (when (eq grep-highlight-matches 'auto-detect)
     (grep-compute-defaults))
   (unless (or (eq grep-highlight-matches 'auto-detect)
-              ;; Uses font-lock to parse color escapes.  (Bug#8084)
-              (null font-lock-mode)
-              (null grep-highlight-matches))
+              (null grep-highlight-matches)
+              ;; Don't output color escapes if they can't be
+              ;; highlighted with `font-lock-face' by `grep-filter'.
+              (null font-lock-mode))
     ;; `setenv' modifies `process-environment' let-bound in `compilation-start'
     ;; Any TERM except "dumb" allows GNU grep to use `--color=auto'
     (setenv "TERM" "emacs-grep")
@@ -988,7 +989,8 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]."
                       dir
                       (concat
                        (and grep-find-ignored-directories
-                            (concat (shell-quote-argument "(")
+                            (concat "-type d "
+                                    (shell-quote-argument "(")
                                     ;; we should use shell-quote-argument here
                                     " -path "
                                     (mapconcat
diff --git a/src/ChangeLog b/src/ChangeLog
index 9a512210497..6319c53209c 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-05  Michael Albinus  <michael.albinus@gmx.de>
+
+        * dbusbind.c (xd_signature_cat): Rename from signature_cat.
+
 2011-09-04  Paul Eggert  <eggert@cs.ucla.edu>
 
         sprintf-related integer and memory overflow issues (Bug#9412).
diff --git a/src/dbusbind.c b/src/dbusbind.c
index 8dac2a6249f..2a38d15873c 100644
--- a/src/dbusbind.c
+++ b/src/dbusbind.c
@@ -262,7 +262,7 @@ xd_symbol_to_dbus_type (Lisp_Object object)
 /* Append to SIGNATURE a copy of X, making sure SIGNATURE does
    not become too long.  */
 static void
-signature_cat (char *signature, char const *x)
+xd_signature_cat (char *signature, char const *x)
 {
   ptrdiff_t siglen = strlen (signature);
   ptrdiff_t xlen = strlen (x);
@@ -401,10 +401,10 @@ xd_signature (char *signature, unsigned int dtype, unsigned int parent_type, Lis
         {
           subtype = XD_OBJECT_TO_DBUS_TYPE (CAR_SAFE (elt));
           xd_signature (x, subtype, dtype, CAR_SAFE (XD_NEXT_VALUE (elt)));
-          signature_cat (signature, x);
+          xd_signature_cat (signature, x);
           elt = CDR_SAFE (XD_NEXT_VALUE (elt));
         }
-      signature_cat (signature, DBUS_STRUCT_END_CHAR_AS_STRING);
+      xd_signature_cat (signature, DBUS_STRUCT_END_CHAR_AS_STRING);
       break;
 
     case DBUS_TYPE_DICT_ENTRY:
@@ -425,7 +425,7 @@ xd_signature (char *signature, unsigned int dtype, unsigned int parent_type, Lis
       elt = XD_NEXT_VALUE (elt);
       subtype = XD_OBJECT_TO_DBUS_TYPE (CAR_SAFE (elt));
       xd_signature (x, subtype, dtype, CAR_SAFE (XD_NEXT_VALUE (elt)));
-      signature_cat (signature, x);
+      xd_signature_cat (signature, x);
 
       if (!XD_BASIC_DBUS_TYPE (subtype))
         wrong_type_argument (intern ("D-Bus"), CAR_SAFE (XD_NEXT_VALUE (elt)));
@@ -434,14 +434,14 @@ xd_signature (char *signature, unsigned int dtype, unsigned int parent_type, Lis
       elt = CDR_SAFE (XD_NEXT_VALUE (elt));
       subtype = XD_OBJECT_TO_DBUS_TYPE (CAR_SAFE (elt));
       xd_signature (x, subtype, dtype, CAR_SAFE (XD_NEXT_VALUE (elt)));
-      signature_cat (signature, x);
+      xd_signature_cat (signature, x);
 
       if (!NILP (CDR_SAFE (XD_NEXT_VALUE (elt))))
         wrong_type_argument (intern ("D-Bus"),
                              CAR_SAFE (CDR_SAFE (XD_NEXT_VALUE (elt))));
 
       /* Closing signature.  */
-      signature_cat (signature, DBUS_DICT_ENTRY_END_CHAR_AS_STRING);
+      xd_signature_cat (signature, DBUS_DICT_ENTRY_END_CHAR_AS_STRING);
       break;
 
     default: