From: Luc Teirlinck <teirllm@auburn.edu>
Date: Thu, 19 Jan 2006 19:29:20 +0000 (+0000)
Subject: (dired-no-confirm): Add quote.
X-Git-Tag: emacs-pretest-22.0.90~4681
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7546199742adf07dce9af5822de83a2d489e5990;p=emacs.git

(dired-no-confirm): Add quote.
(dired-subdir-alist-pre-R): Add quote in `make-variable-buffer-local'
form and remove unbalanced parenthesis.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index 1679c6ca3c6..fe8f6996b28 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2523,12 +2523,12 @@ Command symbols are `byte-compile', `chgrp', `chmod', `chown', `compress',
 `copy', `delete', `hardlink', `load', `move', `print', `shell', `symlink',
 `touch' and `uncompress'."
   :group 'dired
-  :type (set (const byte-compile) (const chgrp)
-	     (const chmod) (const chown) (const compress)
-	     (const copy) (const delete) (const hardlink)
-	     (const load) (const move) (const print)
-	     (const shell) (const symlink) (const touch)
-	     (const uncompress)))
+  :type '(set (const byte-compile) (const chgrp)
+	      (const chmod) (const chown) (const compress)
+	      (const copy) (const delete) (const hardlink)
+	      (const load) (const move) (const print)
+	      (const shell) (const symlink) (const touch)
+	      (const uncompress)))
 
 (defun dired-mark-pop-up (bufname op-symbol files function &rest args)
   "Return FUNCTION's result on ARGS after showing which files are marked.
@@ -3103,7 +3103,7 @@ With optional second arg NO-REVERT, don't refresh the listing afterwards."
 
 (defvar dired-subdir-alist-pre-R nil
   "Value of `dired-subdir-alist' before -R switch added.")
-(make-variable-buffer-local dired-subdir-alist-pre-R))
+(make-variable-buffer-local 'dired-subdir-alist-pre-R)
 
 (defun dired-sort-R-check (switches)
   "Additional processing of -R in ls option string SWITCHES.