mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(archive-set-buffer-as-visiting-file): Comment fix.

Browse Source
This commit is contained in:
Eli Zaretskii 2006-07-21 09:27:17 +00:00
parent b3658160cb
commit e9fe3513c9
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
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)

12
lisp/arc-mode.el
View File

@ -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