[Emacs-diffs] /srv/bzr/emacs/trunk r105097: (dired-guess-shell-alist-user): Clarify the example a bit

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 105097
fixes bug(s): http://debbugs.gnu.org/2030
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Mon 2011-07-11 15:46:46 +0200
message:
  (dired-guess-shell-alist-user): Clarify the example a bit
modified:
  lisp/ChangeLog
  lisp/dired-x.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-11 13:38:58 +0000
+++ b/lisp/ChangeLog    2011-07-11 13:46:46 +0000
@@ -3,6 +3,7 @@
        * dired-x.el (dired-guess-default): Remove duplicate shell command
        entries (bug#2028).
        (dired-guess-default): Fix grammar in doc string (bug#2028).
+       (dired-guess-shell-alist-user): Clarify the example a bit (bug#2030).
 
        * subr.el (remove-duplicates): New conveniency function.
 

=== modified file 'lisp/dired-x.el'
--- a/lisp/dired-x.el   2011-07-11 13:38:58 +0000
+++ b/lisp/dired-x.el   2011-07-11 13:46:46 +0000
@@ -1056,12 +1056,11 @@
 `.foo' and `.bar' files, write
 
  \(setq dired-guess-shell-alist-user
-       (list (list \"\\\\.foo\\\\'\" \"FOO-COMMAND\");; fixed rule
-              ;; possibly more rules ...
-              (list \"\\\\.bar\\\\'\";; rule with condition test
-                    '(if condition
-                          \"BAR-COMMAND-1\"
-                        \"BAR-COMMAND-2\")))\)"
+        '((\"\\\\.foo\\\\'\" \"FOO-COMMAND\")
+          (\"\\\\.bar\\\\'\"
+           (if condition
+              \"BAR-COMMAND-1\"
+            \"BAR-COMMAND-2\"))))"
   :group 'dired-x
   :type '(alist :key-type regexp :value-type (repeat sexp)))