(dired-guess-shell-alist-user): Clarify the example a bit

Fixes: debbugs:2030

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0245c0beb9dc5d327437ebf197c4d444c7981c27..a767eab06f48d4b45bca528173a67badf00b8570 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
 

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index e1a38847fa54e61e4e53469aed4061a50e24cc71..a341e4f07a17f4021d545845950448b3ced9b051 100644 (file)
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -1056,12 +1056,11 @@ You can set this variable in your ~/.emacs.  For example, to add rules for
 `.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)))