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
a19a8f1b
Commit
a19a8f1b
authored
Jun 12, 2008
by
Miles Bader
Browse files
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1231
parent
f42adef6
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
19 additions
and
3 deletions
+19
-3
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+6
-0
lisp/gnus/nnir.el
lisp/gnus/nnir.el
+13
-3
No files found.
lisp/gnus/ChangeLog
View file @
a19a8f1b
2008-06-11 Katsumi Yamaoka <yamaoka@jpl.org>
* nnir.el: Require edmacro when compiling with XEmacs.
(nnir-run-find-grep): Don't use 3rd arg of `split-string' which is not
available in Emacs 21.
2008-06-11 Glenn Morris <rgm@gnu.org>
* gnus-util.el (x-focus-frame):
...
...
lisp/gnus/nnir.el
View file @
a19a8f1b
...
...
@@ -658,6 +658,11 @@ that it is for Namazu, not Wais."
gnus-current-window-configuration
)
nil
)))
(
eval-when-compile
(
when
(
featurep
'xemacs
)
;; The `kbd' macro requires that the `read-kbd-macro' macro is available.
(
require
'edmacro
)))
(
defun
nnir-group-mode-hook
()
(
define-key
gnus-group-mode-map
(
kbd
"G G"
)
'gnus-group-make-nnir-group
))
...
...
@@ -1512,13 +1517,18 @@ Tested with Namazu 2.0.6 on a GNU/Linux system."
'call-process
"find"
nil
t
"find"
group
"-type"
"f"
"-name"
"[0-9]*"
"-exec"
"grep"
`
(
"-l"
,@
(
and
grep-options
(
split-string
grep-options
"\\s-"
t
))
`
(
"-l"
,@
(
and
grep-options
;; Note: the 3rd arg of `split-string' is not
;; available in Emacs 21.
(
delete
""
(
split-string
grep-options
"\\s-"
)))
"-e"
,
regexp
"{}"
"+"
))))
;; Translate relative paths to group names.
(
while
(
not
(
eobp
))
(
let*
((
path
(
split-string
(
buffer-substring
(
point
)
(
line-end-position
))
"/"
t
))
(
let*
((
path
(
delete
""
(
split-string
(
buffer-substring
(
point
)
(
line-end-position
))
"/"
)))
(
art
(
string-to-number
(
car
(
last
path
)))))
(
while
(
string=
"."
(
car
path
))
(
setq
path
(
cdr
path
)))
...
...
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