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

Fixes: debbugs:2030

2 files changed, 6 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0245c0beb9d..a767eab06f4 100644
--- 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 e1a38847fa5..a341e4f07a1 100644
--- 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)))