From eea84fe52e76f84b02df004e31c638a3fb2ab6e6 Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 11 Jul 2011 15:46:46 +0200
Subject: [PATCH] (dired-guess-shell-alist-user): Clarify the example a bit

Fixes: debbugs:2030
---
 lisp/ChangeLog  |  1 +
 lisp/dired-x.el | 11 +++++------
 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)))
 
-- 
2.39.5