Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b4990dde
Commit
b4990dde
authored
Jan 31, 2001
by
Gerd Moellmann
Browse files
(save-buffer): Don't give message if (buffer-file-name)
returns nil.
parent
30526cc6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
3 deletions
+4
-3
lisp/files.el
lisp/files.el
+4
-3
No files found.
lisp/files.el
View file @
b4990dde
;;; 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
))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment