Fix missing newline warning
problem: `'face 'minibuffer-prompt` and `new-name` are shown with an orange color, and `describe-char` shows that they have the face: `font-lock-warning-face` solution: adding a newline before them removes the orange warning color
This commit is contained in:
parent
7002867c24
commit
0f1c461a5c
1 changed files with 4 additions and 2 deletions
|
@ -344,7 +344,8 @@ initialized with the current filename."
|
|||
(format
|
||||
(concat "Buffer '%s' is not visiting a file: "
|
||||
"[s]ave to file or [r]ename buffer?")
|
||||
name) 'face 'minibuffer-prompt)))
|
||||
name)
|
||||
'face 'minibuffer-prompt)))
|
||||
(cond ((eq key ?s) ; save to file
|
||||
;; this allows for saving a new empty (unmodified) buffer
|
||||
(unless (buffer-modified-p) (set-buffer-modified-p t))
|
||||
|
@ -355,7 +356,8 @@ initialized with the current filename."
|
|||
;; ask to rename again, if the new buffer name exists
|
||||
(if (yes-or-no-p
|
||||
(format (concat "A buffer named '%s' already exists: "
|
||||
"Rename again?") new-name))
|
||||
"Rename again?")
|
||||
new-name))
|
||||
(setq new-name (read-string "New buffer name: "))
|
||||
(keyboard-quit)))
|
||||
(rename-buffer new-name)
|
||||
|
|
Reference in a new issue