Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Loading…

改めて...ファイル保存時の保存メッセージを抑制できるようにしました #3

Merged
merged 1 commit into from

2 participants

@elim

auto-save-buffers-enhanced-quiet-save-p が non-nil の時にはファイル保存メッセージを出さないようにしました。

write-region の visit に -1 (文字列や nil 以外ならなんでもよいのですが) を渡して保存します。

これにより Wrote foobar. といったメッセージを抑制できます。

また、保存後に (set-buffer-modified-p nil) (set-visited-file-modtime (current-time)) を実行することによって、バッファもファイル保存済み状態に変更しています。

@kentaro kentaro merged commit cb0a08c into kentaro:master
@kentaro
Owner

Thanks!!!!!!!!!!!!111 これは素晴しい。

@elim

merge ありがとうございましたー ;)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Commits on Jun 22, 2012
  1. @elim

    Add a 'quiet save' mode

    elim authored
This page is out of date. Refresh to see the latest.
Showing with 21 additions and 10 deletions.
  1. +21 −10 auto-save-buffers-enhanced.el
View
31 auto-save-buffers-enhanced.el
@@ -134,6 +134,9 @@ not CVS or Subversion.")
"*Path of the config file of svk, which is usually located in
~/.svk/config.")
+(defvar auto-save-buffers-enhanced-quiet-save-p nil
+ "*If non-nil, without 'Wrote <filename>' message.")
+
(defvar auto-save-buffers-enhanced-save-scratch-buffer-to-file-p nil
"*If non-nil, *scratch* buffer will be saved into the file same
as other normal files.")
@@ -224,24 +227,32 @@ the directories under VCS."
(not (auto-save-buffers-enhanced-regexps-match-p
auto-save-buffers-enhanced-exclude-regexps buffer-file-name))
(file-writable-p buffer-file-name))
- (save-buffer)
+ (auto-save-buffers-enhanced-saver-buffer)
(when (and auto-save-buffers-enhanced-save-scratch-buffer-to-file-p
(equal buffer (get-buffer "*scratch*"))
(buffer-modified-p)
(not (string= initial-scratch-message (buffer-string))))
- (let
- ((scratch-buffer-string (buffer-string)))
- (progn
- (with-temp-buffer
- (insert scratch-buffer-string)
- (write-region nil nil
- auto-save-buffers-enhanced-file-related-with-scratch-buffer
- nil -1))
- (set-buffer-modified-p nil))))))))
+ (auto-save-buffers-enhanced-saver-buffer 'scratch))))))
;;;; Internal Functions
;;;; -------------------------------------------------------------------------
+(defun auto-save-buffers-enhanced-saver-buffer (&optional scratch-p)
+ (cond
+ (scratch-p
+ (let
+ ((content (buffer-string)))
+ (with-temp-file
+ auto-save-buffers-enhanced-file-related-with-scratch-buffer
+ (insert content))
+ (set-buffer-modified-p nil)))
+ (auto-save-buffers-enhanced-quiet-save-p
+ (progn
+ (write-region nil nil buffer-file-name nil -1)
+ (set-buffer-modified-p nil)
+ (set-visited-file-modtime (current-time))))
+ (t (save-buffer))))
+
(defun auto-save-buffers-enhanced-regexps-match-p (regexps string)
(catch 'matched
(dolist (regexp regexps)
Something went wrong with that request. Please try again.