Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
0e176389
Commit
0e176389
authored
Sep 24, 2014
by
Stefan Monnier
Browse files
* lisp/find-cmd.el (find-cmd): Use grep's `find-program'.
Suggested by <lompik@voila.fr>. Fixes: debbugs:18518
parent
cd812613
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
28 additions
and
16 deletions
+28
-16
etc/NEWS
etc/NEWS
+3
-0
lisp/ChangeLog
lisp/ChangeLog
+8
-3
lisp/ChangeLog.14
lisp/ChangeLog.14
+1
-1
lisp/ChangeLog.16
lisp/ChangeLog.16
+1
-1
lisp/find-cmd.el
lisp/find-cmd.el
+15
-11
No files found.
etc/NEWS
View file @
0e176389
...
...
@@ -231,6 +231,9 @@ active region handling.
any reference to a buffer position. The 6th member of the mouse
position list returned for such events is now nil.
** Menu items in keymaps do not support the "key shortcut cache" any more.
These slots used to hold key-shortcut data, but have been obsolete since
Emacs-21.
* Lisp Changes in Emacs 24.5
...
...
lisp/ChangeLog
View file @
0e176389
2014-09-24 Stefan Monnier <monnier@iro.umontreal.ca>
* find-cmd.el (find-cmd): Use grep's `find-program' (bug#18518).
Suggested by <lompik@voila.fr>.
2014-09-24 Ulf Jasper <ulf.jasper@web.de>
* net/newst-treeview.el (newsticker--treeview-do-get-node-by-id):
...
...
@@ -204,7 +209,7 @@
* window.el (fit-window-to-buffer): Doc fix.
2014-09-15 Ivan Shmakov <ivan@siamics.net>
(tiny change)
2014-09-15 Ivan Shmakov <ivan@siamics.net>
* desktop.el (desktop-create-buffer): Check that buffers are still live
before burying them (bug#18373).
...
...
@@ -1585,7 +1590,7 @@
(dbus-register-service): Register it. (Bug#17858)
(dbus-managed-objects-handler): Fix docstring.
2014-07-04 Phil Sainty <psainty@orcon.net.nz>
(tiny change)
2014-07-04 Phil Sainty <psainty@orcon.net.nz>
* emacs-lisp/lisp.el (narrow-to-defun-include-comments): New var.
(narrow-to-defun): New arg include-comments, defaulting to it
...
...
@@ -8898,7 +8903,7 @@
Add option to delete file when done. (Bug#15647)
(python-shell-send-string, python-shell-send-region): Use it.
2013-11-23 Ivan Shmakov <ivan@siamics.net>
(tiny change)
2013-11-23 Ivan Shmakov <ivan@siamics.net>
* vc/diff-mode.el (diff-mode): Only allow diff-default-read-only
to set buffer-read-only to t, never to nil. (Bug#15938)
...
...
lisp/ChangeLog.14
View file @
0e176389
...
...
@@ -5178,7 +5178,7 @@
* kmacro.el (kmacro-insert-counter): Doc fix.
2008-11-21 Ivan Shmakov <oneingray@gmail.com>
(tiny change)
2008-11-21 Ivan Shmakov <oneingray@gmail.com>
* progmodes/tcl.el (tcl-filter): Don't forcibly move point.
...
...
lisp/ChangeLog.16
View file @
0e176389
...
...
@@ -7534,7 +7534,7 @@
In doc-strings state whether the argument window has to denote a
live, valid or any window.
2012-08-16 Phil Sainty <psainty@orcon.net.nz>
(tiny change)
2012-08-16 Phil Sainty <psainty@orcon.net.nz>
* progmodes/subword.el (subword-forward-function)
(subword-backward-function, subword-forward-regexp)
...
...
lisp/find-cmd.el
View file @
0e176389
...
...
@@ -39,6 +39,8 @@
;;; Code:
(
require
'grep
)
(
defconst
find-constituents
'
((
and
.
find-and
)
(
not
.
find-not
)
...
...
@@ -145,13 +147,15 @@ For example:
`default-directory' is used as the initial search path. The
result is a string that should be ready for the command line."
(
concat
"find "
(
shell-quote-argument
(
expand-file-name
default-directory
))
" "
(
cond
((
cdr
subfinds
)
(
mapconcat
'find-to-string
subfinds
""
))
(
t
(
find-to-string
(
car
subfinds
))))))
;; FIXME: Provide a version that returns a list of strings (ready to pass to
;; call-process).
(
concat
find-program
" "
(
shell-quote-argument
(
expand-file-name
default-directory
))
" "
(
cond
((
cdr
subfinds
)
(
mapconcat
#'
find-to-string
subfinds
""
))
(
t
(
find-to-string
(
car
subfinds
))))))
(
defun
find-and
(
form
)
"And FORMs together, so:
...
...
@@ -161,7 +165,7 @@ will produce:
(
if
(
<
(
length
form
)
2
)
(
find-to-string
(
car
form
))
(
concat
"\\( "
(
mapconcat
'find-to-string
form
"-and "
)
(
mapconcat
#
'
find-to-string
form
"-and "
)
"\\) "
)))
(
defun
find-or
(
form
)
...
...
@@ -172,7 +176,7 @@ will produce:
(
if
(
<
(
length
form
)
2
)
(
find-to-string
(
car
form
))
(
concat
"\\( "
(
mapconcat
'find-to-string
form
"-or "
)
(
mapconcat
#
'
find-to-string
form
"-or "
)
"\\) "
)))
(
defun
find-not
(
form
)
...
...
@@ -183,7 +187,7 @@ will produce:
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
))))
(
concat
"-not "
(
find-or
(
mapcar
#
'
find-to-string
form
))))
(
defun
find-prune
(
form
)
"-or together FORMs postfix '-prune' and then -or that with a
...
...
@@ -194,7 +198,7 @@ will produce (unwrapped):
-prune -or -true \\\) -and -name '*.pm' \\\)"
(
find-or
(
list
(
concat
(
find-or
(
mapcar
'find-to-string
form
))
(
find-generic
"prune"
))
(
concat
(
find-or
(
mapcar
#
'
find-to-string
form
))
(
find-generic
"prune"
))
(
find-generic
"true"
))))
(
defun
find-generic
(
option
&optional
oper
argcount
args
dont-quote
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment