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
e69738c9
Commit
e69738c9
authored
Apr 23, 2002
by
Colin Walters
Browse files
(ibuffer-accumulate-lines): Moved to replace.el.
parent
c06bd65e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
0 additions
and
19 deletions
+0
-19
lisp/ibuffer.el
lisp/ibuffer.el
+0
-19
No files found.
lisp/ibuffer.el
View file @
e69738c9
...
...
@@ -721,25 +721,6 @@ width and the longest string in LIST."
(
insert
(
pop
list
)))
(
insert
"\n"
)))))
(
defun
ibuffer-accumulate-lines
(
count
)
(
save-excursion
(
let
((
forwardp
(
>
count
0
))
(
result
nil
))
(
while
(
not
(
or
(
zerop
count
)
(
if
forwardp
(
eobp
)
(
bobp
))))
(
if
forwardp
(
decf
count
)
(
incf
count
))
(
push
(
buffer-substring
(
line-beginning-position
)
(
line-end-position
))
result
)
(
forward-line
(
if
forwardp
1
-1
)))
(
nreverse
result
))))
(
defsubst
ibuffer-current-mark
()
(
cadr
(
get-text-property
(
line-beginning-position
)
'ibuffer-properties
)))
...
...
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