mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(jka-compr-insert-file-contents): When visiting,

Browse Source 
bind buffer-file-name to nil temporarily.
This commit is contained in:
Richard M. Stallman 1995-04-29 19:25:19 +00:00
parent a360cae96e
commit ae849784b4
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/jka-compr.el
View File

@ -502,13 +502,18 @@ There should be no more than seven characters after the final `/'")
(if (and beg end)
(- end beg)
end))
(jka-compr-call-process uncompress-program
(concat uncompress-message
" " base-name)
local-file
t
nil
uncompress-args))
;; If visiting, bind off buffer-file-name so that
;; file-locking will not ask whether we should
;; really edit the buffer.
(let ((buffer-file-name
(if visit nil buffer-file-name)))
(jka-compr-call-process uncompress-program
(concat uncompress-message
" " base-name)
local-file
t
nil
uncompress-args)))
(setq size (- (point) start))
(if replace
(let* ((del-beg (point))