From 59a685f2fed01b4a49b6d951a378d2023f31fc87 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 5 Aug 2014 10:13:28 +0200 Subject: [PATCH] * net/tramp-cache.el (tramp-flush-file-function): Suppress function also for Tramp working buffers. --- lisp/ChangeLog | 5 +++++ lisp/net/tramp-cache.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c9b888f3c34..aec717a159a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-08-05 Michael Albinus + + * net/tramp-cache.el (tramp-flush-file-function): Suppress function + also for Tramp working buffers. + 2014-08-04 Fabián Ezequiel Gallina * progmodes/python.el: Fix completions inside (i)pdb. diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el index 838d326603c..2098c5ccb0b 100644 --- a/lisp/net/tramp-cache.el +++ b/lisp/net/tramp-cache.el @@ -207,7 +207,12 @@ Remove also properties of all files in subdirectories." "Flush all Tramp cache properties from `buffer-file-name'. This is suppressed for temporary buffers." (save-match-data - (unless (string-match "^ \\*temp\\*" (or (buffer-name) "")) + (unless + (string-match + (concat + "^" (regexp-opt '("*tramp/" "*debug tramp/" " *temp*") 'parent)) + (or (buffer-name) "")) + (let ((bfn (if (stringp (buffer-file-name)) (buffer-file-name) default-directory))) -- 2.11.4.GIT