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
bdd610b2
Commit
bdd610b2
authored
Mar 21, 1995
by
Richard M. Stallman
Browse files
(occur): Copy default-directory to *Occur* buffer.
parent
f1913a26
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
0 deletions
+2
-0
lisp/replace.el
lisp/replace.el
+2
-0
No files found.
lisp/replace.el
View file @
bdd610b2
...
...
@@ -344,6 +344,7 @@ It serves as a menu to find any of the occurrences in this buffer.
list-matching-lines-default-context-lines))
(let ((first t)
(buffer (current-buffer))
(dir default-directory)
(linenum 1)
(prevpos (point-min))
(final-context-start (make-marker)))
...
...
@@ -354,6 +355,7 @@ It serves as a menu to find any of the occurrences in this buffer.
(with-output-to-temp-buffer "
*Occur*
"
(save-excursion
(set-buffer standard-output)
(setq default-directory dir)
;; We will insert the number of lines, and "
lines
", later.
(insert "
matching
")
(let ((print-escape-newlines t))
...
...
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