From b4990dde7883e7a6acdc373ee369c243320ce3f4 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 31 Jan 2001 13:53:37 +0000 Subject: [PATCH] (save-buffer): Don't give message if (buffer-file-name) returns nil. --- lisp/files.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 243dd3a8442..e81a20b7697 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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)))) -- 2.39.5