Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e9fe3513
Commit
e9fe3513
authored
Jul 21, 2006
by
Eli Zaretskii
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(archive-set-buffer-as-visiting-file): Comment fix.
parent
b3658160
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
15 additions
and
4 deletions
+15
-4
lisp/ChangeLog
lisp/ChangeLog
+7
-0
lisp/arc-mode.el
lisp/arc-mode.el
+8
-4
No files found.
lisp/ChangeLog
View file @
e9fe3513
2006-07-21 Eli Zaretskii <eliz@gnu.org>
* dos-w32.el (find-buffer-file-type-coding-system): Support calls
where `(nth 1 command)' is a cons cell. Doc fix.
* textmodes/po.el (po-find-charset): Doc fix.
2006-07-21 Ken Manheimer <ken.manheimer@gmail.com>
* allout.el (allout-unprotected, allout-e-o-prefix-p)
...
...
lisp/arc-mode.el
View file @
e9fe3513
...
...
@@ -870,10 +870,14 @@ using `make-temp-file', and the generated name is returned."
(
save-excursion
(
funcall
set-auto-coding-function
filename
(
-
(
point-max
)
(
point-min
)))))
;; dos-w32.el defines find-operation-coding-system for
;; DOS/Windows systems which preserves the coding-system
;; of existing files. We want it to act here as if the
;; extracted file existed.
;; dos-w32.el defines the function
;; find-buffer-file-type-coding-system for DOS/Windows
;; systems which preserves the coding-system of existing files.
;; (That function is called via file-coding-system-alist.)
;; Here, we want it to act as if the extracted file existed.
;; The following let-binding of file-name-handler-alist forces
;; find-file-not-found-set-buffer-file-coding-system to ignore
;; the file's name (see dos-w32.el).
(
let
((
file-name-handler-alist
'
((
""
.
archive-file-name-handler
))))
(
car
(
find-operation-coding-system
...
...
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