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

(save-buffer): Don't give message if (buffer-file-name)

Browse Source 
returns nil.
This commit is contained in:
Gerd Moellmann 2001-01-31 13:53:37 +00:00
parent 30526cc67c
commit b4990dde78
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/files.el
View File

@ -1,7 +1,7 @@
;;; files.el --- file input and output commands for Emacs
;; Copyright (C) 1985, 86, 87, 92, 93,
;; 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc.
;; Copyright (C) 1985, 86, 87, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001
;;; Free Software Foundation, Inc.
;; Maintainer: FSF
@ -2506,7 +2506,8 @@ See the subroutine `basic-save-buffer' for more information."
(make-backup-files (or (and make-backup-files (not (eq args 0)))
(memq args '(16 64)))))
(and modp (memq args '(16 64)) (setq buffer-backed-up nil))
(if (and modp large) (message "Saving file %s..." (buffer-file-name)))
(if (and modp large (buffer-file-name))
(message "Saving file %s..." (buffer-file-name)))
(basic-save-buffer)
(and modp (memq args '(4 64)) (setq buffer-backed-up nil))))