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
9b1fad33
Commit
9b1fad33
authored
Mar 08, 2006
by
Chong Yidong
Browse files
* arc-mode.el (archive-extract): Check if an existing buffer name
comes from a different archive.
parent
179a6f21
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
3 deletions
+8
-3
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/arc-mode.el
lisp/arc-mode.el
+5
-3
No files found.
lisp/ChangeLog
View file @
9b1fad33
2006-03-07 Chong Yidong <cyd@stupidchicken.com>
* arc-mode.el (archive-extract): Check if an existing buffer name
comes from a different archive.
* help.el (describe-key-briefly): If KEY is a down event, read and
discard the up event.
...
...
lisp/arc-mode.el
View file @
9b1fad33
...
...
@@ -907,16 +907,18 @@ using `make-temp-file', and the generated name is returned."
(
read-only-p
(
or
archive-read-only
view-p
(
string-match
file-name-invalid-regexp
ename
)))
(
arcfilename
(
expand-file-name
(
concat
arcname
":"
iname
)))
(
buffer
(
get-buffer
bufname
))
(
just-created
nil
))
(
if
buffer
(
if
(
and
buffer
(
string=
(
buffer-file-name
buffer
)
arcfilename
))
nil
(
setq
archive
(
archive-maybe-copy
archive
))
(
setq
bufname
(
generate-new-buffer-name
bufname
))
(
setq
buffer
(
get-buffer-create
bufname
))
(
setq
just-created
t
)
(
with-current-buffer
buffer
(
setq
buffer-file-name
(
expand-file-name
(
concat
arcname
":"
iname
)))
(
setq
buffer-file-name
arcfilename
)
(
setq
buffer-file-truename
(
abbreviate-file-name
buffer-file-name
))
;; Set the default-directory to the dir of the superior buffer.
...
...
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