diff options
Diffstat (limited to 'lisp/find-cmd.el')
| -rw-r--r-- | lisp/find-cmd.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/find-cmd.el b/lisp/find-cmd.el index 7230761f657..8e419064c1b 100644 --- a/lisp/find-cmd.el +++ b/lisp/find-cmd.el @@ -140,8 +140,8 @@ the string will be quoted).") "Initiate the building of a find command. For example: -\(find-cmd '\(prune \(name \".svn\" \".git\" \".CVS\"\)\) - '\(and \(or \(name \"*.pl\" \"*.pm\" \"*.t\"\) +\(find-cmd \\='\(prune \(name \".svn\" \".git\" \".CVS\"\)\) + \\='\(and \(or \(name \"*.pl\" \"*.pm\" \"*.t\"\) \(mtime \"+1\"\)\) \(fstype \"nfs\" \"ufs\"\)\)\)\) @@ -161,7 +161,7 @@ result is a string that should be ready for the command line." "And FORMs together, so: \(and \(mtime \"+1\"\) \(name \"something\"\)\) will produce: - find . \\\( -mtime '+1' -and -name 'something' \\\)" + find . \\\( -mtime +1 -and -name something \\\)" (if (< (length form) 2) (find-to-string (car form)) (concat "\\( " @@ -172,7 +172,7 @@ will produce: "Or FORMs together, so: \(or \(mtime \"+1\"\) \(name \"something\"\)\) will produce: - find . \\\( -mtime '+1' -or -name 'something' \\\)" + find . \\\( -mtime +1 -or -name something \\\)" (if (< (length form) 2) (find-to-string (car form)) (concat "\\( " @@ -183,19 +183,19 @@ will produce: "Or FORMs together and prefix with a -not, so: \(not \(mtime \"+1\"\) \(name \"something\"\)\) will produce: - -not \\\( -mtime '+1' -or -name 'something' \\\) + -not \\\( -mtime +1 -or -name something \\\) If you wanted the FORMs -and(ed) together instead then this would suffice: \(not \(and \(mtime \"+1\"\) \(name \"something\"\)\)\)" (concat "-not " (find-or (mapcar #'find-to-string form)))) (defun find-prune (form) - "-or together FORMs postfix '-prune' and then -or that with a + "-or together FORMs postfix `-prune' and then -or that with a -true, so: - \(prune \(name \".svn\" \".git\"\)\) \(name \"*.pm\"\) + \(\(prune \(name \".svn\" \".git\"\)\) \(name \"*.pm\"\)\) will produce (unwrapped): - \\\( \\\( \\\( -name '.svn' -or -name '.git' \\\) / - -prune -or -true \\\) -and -name '*.pm' \\\)" + \\\( \\\( \\\( -name .svn -or -name .git \\\) / + -prune -or -true \\\) -and -name *.pm \\\)" (find-or (list (concat (find-or (mapcar #'find-to-string form)) (find-generic "prune")) @@ -209,7 +209,7 @@ args that OPTION can receive and ARGS are the arguments for OPTION. If DONT-QUOTE is non-nil, arguments are quoted for passing them to the shell." (when (and (numberp argcount) (< (length args) argcount)) - (error "'%s' needs at least %d arguments" option argcount)) + (error "‘%s’ needs at least %d arguments" option argcount)) (let ((oper (or oper 'find-or))) (if (and args (length args)) (funcall oper (mapcar (lambda (x) @@ -247,7 +247,7 @@ them into valid switches. The result is -and(ed) together." (find-to-string (find-generic option oper argcnt (cdr form) dont-quote)))) (t - (error "Sorry I don't know how to handle '%s'" (car form)))))))) + (error "Sorry I don't know how to handle ‘%s’" (car form)))))))) (provide 'find-cmd) |