procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* net/tramp-cache.el (tramp-flush-file-function): Suppress function

Browse source 
also for Tramp working buffers.
This commit is contained in:
Michael Albinus 2014-08-05 10:13:28 +02:00
parent 697c09e934
commit 59a685f2fe
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2014-08-05 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-cache.el (tramp-flush-file-function): Suppress function
also for Tramp working buffers.
2014-08-04 Fabián Ezequiel Gallina <fgallina@gnu.org> 2014-08-04 Fabián Ezequiel Gallina <fgallina@gnu.org>
* progmodes/python.el: Fix completions inside (i)pdb. * progmodes/python.el: Fix completions inside (i)pdb.

7
lisp/net/tramp-cache.el
View file

@ -207,7 +207,12 @@ Remove also properties of all files in subdirectories."
"Flush all Tramp cache properties from `buffer-file-name'. "Flush all Tramp cache properties from `buffer-file-name'.
This is suppressed for temporary buffers." This is suppressed for temporary buffers."
(save-match-data (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)) (let ((bfn (if (stringp (buffer-file-name))
(buffer-file-name) (buffer-file-name)
default-directory))) default-directory)))