Merge from emacs-23

7 files changed, 42 insertions, 17 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d82a8e893a8..1106f4b7178 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,33 @@
+2011-01-22  Chong Yidong  <cyd@stupidchicken.com>
+
+        * emacs-lisp/re-builder.el (reb-mode-map): Fix logic error in
+        "Case sensitive" menu item.
+
+2011-01-22  Roland McGrath  <roland@frob.com>
+
+        * comint.el (comint-replace-by-expanded-history-before-point): Fix
+        expansion of !$ and !!:N syntax to pick the indicated word (bug#7883).
+
+2011-01-22  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * progmodes/js.el (js--regexp-literal): Count backslashes (bug#7882).
+
+2011-01-22  Jari Aalto  <jari.aalto@cante.net>
+
+        * emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
+        Assume foo(bar) is a manpage reference rather than some unquoted
+        symbol (bug#7705).
+
+2011-01-22  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * subr.el (shell-quote-argument): Properly quote \n (bug#7687).
+        Suggested by Flo <sensorflo@gmail.com>.
+
+2011-01-22  Glenn Morris  <rgm@gnu.org>
+
+        * progmodes/compile.el (compilation-error-regexp-alist):
+        Fix custom type.  (Bug#7812)
+
 2011-01-22  Ken Manheimer  <ken.manheimer@gmail.com>
 
         * allout.el (allout-prefixed-keybindings): Bind (prefixed) '#' to
@@ -46,7 +76,6 @@
         * international/mule.el (ctext-pre-write-conversion): Don't hardcode
         point-min==1.
 
-
 2011-01-20  Ken Manheimer  <ken.manheimer@gmail.com>
 
         * allout.el: (allout-institute-keymap): Use fset instead of
diff --git a/lisp/comint.el b/lisp/comint.el
index da722002c20..1912cdcfc44 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1294,7 +1294,9 @@ than the logical beginning of line."
                    (message "Relative reference exceeds input history size"))))
               ((or (looking-at "!!?:?\\([0-9^$*-]+\\)") (looking-at "!!"))
                ;; Just a number of args from the previous input line.
-               (replace-match (comint-previous-input-string 0) t t)
+               (replace-match (comint-args (comint-previous-input-string 0)
+                                           (match-beginning 1) (match-end 1))
+                              t t)
                (message "History item: previous"))
               ((looking-at
                 "!\\??\\({\\(.+\\)}\\|\\(\\sw+\\)\\)\\(:?[0-9^$*-]+\\)?")
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 00f2df9fe02..84c00d0d0ba 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -1798,7 +1798,9 @@ Replace with \"%s\"? " original replace)
        (let ((found nil) (start (point)) (msg nil) (ms nil))
          (while (and (not msg)
                      (re-search-forward
-                      "[^-([`':a-zA-Z]\\(\\w+[:-]\\(\\w\\|\\s_\\)+\\)[^]']"
+                      ;; Ignore manual page refereces like
+                      ;; git-config(1).
+                      "[^-([`':a-zA-Z]\\(\\w+[:-]\\(\\w\\|\\s_\\)+\\)[^](']"
                       e t))
            (setq ms (match-string 1))
            ;; A . is a \s_ char, so we must remove periods from
diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el
index 07d5b0e52e7..12a66582317 100644
--- a/lisp/emacs-lisp/re-builder.el
+++ b/lisp/emacs-lisp/re-builder.el
@@ -243,7 +243,7 @@ Except for Lisp syntax this is the same as `reb-regexp'.")
                   :help "Quit the RE Builder mode"))
     (define-key menu-map [rt]
       '(menu-item "Case sensitive" reb-toggle-case
-                  :button (:toggle . case-fold-search)
+                  :button (:toggle . (null case-fold-search))
                   :help "Toggle case sensitivity of searches for RE Builder target buffer"))
     (define-key menu-map [rb]
       '(menu-item "Change target buffer..." reb-change-target-buffer
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 25429801298..0c9431d1d9d 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -508,10 +508,8 @@ matched by the whole REGEXP becomes the hyperlink.
 
 Additional HIGHLIGHTs as described under `font-lock-keywords' can
 be added."
-  :type `(set :menu-tag "Pick"
-              ,@(mapcar (lambda (elt)
-                          (list 'const (car elt)))
-                        compilation-error-regexp-alist-alist))
+  :type '(repeat (choice (symbol :tag "Predefined symbol")
+                         (sexp :tag "Error specification")))
   :link `(file-link :tag "example file"
                     ,(expand-file-name "compilation.txt" data-directory))
   :group 'compilation)
diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el
index 27d3dd1ae40..346a77b5810 100644
--- a/lisp/progmodes/js.el
+++ b/lisp/progmodes/js.el
@@ -1659,12 +1659,11 @@ This performs fontification according to `js--class-styles'."
 ;; below.
 (eval-and-compile
   (defconst js--regexp-literal
-  "[=(,:]\\(?:\\s-\\|\n\\)*\\(/\\)\\(?:\\\\/\\|[^/*]\\)\\(?:\\\\/\\|[^/]\\)*\\(/\\)"
+    "[=(,:]\\(?:\\s-\\|\n\\)*\\(/\\)\\(?:\\\\.\\|[^/*\\]\\)\\(?:\\\\.\\|[^/\\]\\)*\\(/\\)"
   "Regexp matching a JavaScript regular expression literal.
 Match groups 1 and 2 are the characters forming the beginning and
 end of the literal."))
 
-
 (defconst js-syntax-propertize-function
   (syntax-propertize-rules
    ;; We want to match regular expressions only at the beginning of
diff --git a/lisp/subr.el b/lisp/subr.el
index d36e96e5f89..2a1619c0903 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2461,13 +2461,8 @@ Note: :data and :device are currently not supported on Windows."
         "''"
       ;; Quote everything except POSIX filename characters.
       ;; This should be safe enough even for really weird shells.
-      (let ((result "") (start 0) end)
-        (while (string-match "[^-0-9a-zA-Z_./]" argument start)
-          (setq end (match-beginning 0)
-                result (concat result (substring argument start end)
-                               "\\" (substring argument end (1+ end)))
-                start (1+ end)))
-        (concat result (substring argument start))))))
+      (replace-regexp-in-string "\n" "'\n'"
+       (replace-regexp-in-string "[^-0-9a-zA-Z_./\n]" "\\\\\\&" argument)))))
 
 (defun string-or-null-p (object)
   "Return t if OBJECT is a string or nil.