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
bde57911
Commit
bde57911
authored
Apr 14, 2002
by
Colin Walters
Browse files
Update callers of `ibuffer-map-lines'.
parent
23cbf556
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
5 deletions
+5
-5
lisp/ibuf-ext.el
lisp/ibuf-ext.el
+4
-4
lisp/ibuf-macs.el
lisp/ibuf-macs.el
+1
-1
No files found.
lisp/ibuf-ext.el
View file @
bde57911
...
...
@@ -815,7 +815,7 @@ to move by. The default is `ibuffer-marked-char'."
(
message
"No buffers marked; use 'm' to mark a buffer"
)
(
let
((
count
(
ibuffer-map-marked-lines
#'
(
lambda
(
buf
mark
beg
end
)
#'
(
lambda
(
buf
mark
)
'kill
))))
(
message
"Killed %s lines"
count
))))
...
...
@@ -899,7 +899,7 @@ You can then feed the file name(s) to other commands with C-y.
(
t
'name
))))
(
ibuffer-map-marked-lines
#'
(
lambda
(
buf
mark
beg
end
)
#'
(
lambda
(
buf
mark
)
(
setq
ibuffer-copy-filename-as-kill-result
(
concat
ibuffer-copy-filename-as-kill-result
(
let
((
name
(
buffer-file-name
buf
)))
...
...
@@ -916,7 +916,7 @@ You can then feed the file name(s) to other commands with C-y.
(
defun
ibuffer-mark-on-buffer
(
func
)
(
let
((
count
(
ibuffer-map-lines
#'
(
lambda
(
buf
mark
beg
end
)
#'
(
lambda
(
buf
mark
)
(
when
(
funcall
func
buf
)
(
ibuffer-set-mark-1
ibuffer-marked-char
)
t
)))))
...
...
@@ -1155,7 +1155,7 @@ defaults to one."
(
let
((
ibuffer-do-occur-bufs
nil
))
;; Accumulate a list of marked buffers
(
ibuffer-map-marked-lines
#'
(
lambda
(
buf
mark
beg
end
)
#'
(
lambda
(
buf
mark
)
(
push
buf
ibuffer-do-occur-bufs
)))
(
ibuffer-do-occur-1
regexp
ibuffer-do-occur-bufs
(
get-buffer-create
"*Ibuffer-occur*"
)
...
...
lisp/ibuf-macs.el
View file @
bde57911
...
...
@@ -227,7 +227,7 @@ macro for exactly what it does."
'ibuffer-map-deletion-lines
)
(
t
'ibuffer-map-marked-lines
))
#'
(
lambda
(
buf
mark
beg
end
)
#'
(
lambda
(
buf
mark
)
,
(
if
(
eq
modifier-p
:maybe
)
`
(
let
((
ibuffer-tmp-previous-buffer-modification
(
buffer-modified-p
buf
)))
...
...
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