Mercurial > emacs

changeset 35768:1a5516557e92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(save-buffer): Don't give message if (buffer-file-name) returns nil.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 31 Jan 2001 13:53:37 +0000
parents d35faeb7c290
children 8b9b72c35737
files lisp/files.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Wed Jan 31 13:50:02 2001 +0000
+++ b/lisp/files.el	Wed Jan 31 13:53:37 2001 +0000
@@ -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 @@
 	(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))))