aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2007-07-29 15:32:56 +0000
committerMichael Albinus2007-07-29 15:32:56 +0000
commitbce04feefd5fd9afddfb772c83f80d1445f3068c (patch)
treeddca47a0ea7b285d25b4c4168003992f69fed911
parentc486d9691c400962e28c8e247c7cd86b8342b103 (diff)
downloademacs-bce04feefd5fd9afddfb772c83f80d1445f3068c.tar.gz
emacs-bce04feefd5fd9afddfb772c83f80d1445f3068c.zip
* net/tramp.el:
* net/tramp-uu.el: * net/trampver.el: Use utf-8 encoding with coding cookie. * net/tramp-cache.el: * net/tramp-fish.el: * net/tramp-ftp.el: * net/tramp-gw.el: * net/tramp-smb.el: Remove coding cookie. * net/tramp.el (tramp-handle-verify-visited-file-modtime): Flush buffer file-name's file property. (tramp-handle-file-remote-p): The first parameter is FILENAME. * net/trampver.el: Update release number.
-rw-r--r--lisp/ChangeLog18
-rw-r--r--lisp/net/tramp-cache.el5
-rw-r--r--lisp/net/tramp-fish.el5
-rw-r--r--lisp/net/tramp-ftp.el2
-rw-r--r--lisp/net/tramp-gw.el5
-rw-r--r--lisp/net/tramp-smb.el2
-rw-r--r--lisp/net/tramp-uu.el4
-rw-r--r--lisp/net/tramp.el9
-rw-r--r--lisp/net/trampver.el8
9 files changed, 37 insertions, 21 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1eb9ee1036..9fd1eb92f33 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,21 @@
12007-07-29 Michael Albinus <michael.albinus@gmx.de>
2
3 * tramp.el:
4 * tramp-uu.el:
5 * trampver.el: Use utf-8 encoding with coding cookie.
6
7 * tramp-cache.el:
8 * tramp-fish.el:
9 * tramp-ftp.el:
10 * tramp-gw.el:
11 * tramp-smb.el: Remove coding cookie.
12
13 * tramp.el (tramp-handle-verify-visited-file-modtime): Flush
14 buffer file-name's file property.
15 (tramp-handle-file-remote-p): The first parameter is FILENAME.
16
17 * trampver.el: Update release number.
18
12007-07-29 Juri Linkov <juri@jurta.org> 192007-07-29 Juri Linkov <juri@jurta.org>
2 20
3 * dired.el (dired-mode-map): Bind C-x C-q to dired-toggle-read-only. 21 * dired.el (dired-mode-map): Bind C-x C-q to dired-toggle-read-only.
diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index 96c4b3ecb9b..79b0b537837 100644
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -1,4 +1,3 @@
1;;; -*- mode: Emacs-Lisp; coding: iso-2022-7bit; -*-
2;;; tramp-cache.el --- file information caching for Tramp 1;;; tramp-cache.el --- file information caching for Tramp
3 2
4;; Copyright (C) 2000, 2005, 2006, 2007 by Free Software Foundation, Inc. 3;; Copyright (C) 2000, 2005, 2006, 2007 by Free Software Foundation, Inc.
@@ -11,8 +10,8 @@
11 10
12;; GNU Emacs is free software; you can redistribute it and/or modify 11;; GNU Emacs is free software; you can redistribute it and/or modify
13;; it under the terms of the GNU General Public License as published by 12;; it under the terms of the GNU General Public License as published by
14;; the Free Software Foundation; either version 3 of the License, or 13;; the Free Software Foundation; either version 3, or (at your option)
15;; (at your option) any later version. 14;; any later version.
16 15
17;; GNU Emacs is distributed in the hope that it will be useful, 16;; GNU Emacs is distributed in the hope that it will be useful,
18;; but WITHOUT ANY WARRANTY; without even the implied warranty of 17;; but WITHOUT ANY WARRANTY; without even the implied warranty of
diff --git a/lisp/net/tramp-fish.el b/lisp/net/tramp-fish.el
index 1752a09a285..f0db302abcb 100644
--- a/lisp/net/tramp-fish.el
+++ b/lisp/net/tramp-fish.el
@@ -1,4 +1,3 @@
1;;; -*- coding: iso-8859-1; -*-
2;;; tramp-fish.el --- Tramp access functions for FISH protocol 1;;; tramp-fish.el --- Tramp access functions for FISH protocol
3 2
4;; Copyright (C) 2006, 2007 Free Software Foundation, Inc. 3;; Copyright (C) 2006, 2007 Free Software Foundation, Inc.
@@ -10,8 +9,8 @@
10 9
11;; GNU Emacs is free software; you can redistribute it and/or modify 10;; GNU Emacs is free software; you can redistribute it and/or modify
12;; it under the terms of the GNU General Public License as published by 11;; it under the terms of the GNU General Public License as published by
13;; the Free Software Foundation; either version 3 of the License, or 12;; the Free Software Foundation; either version 3, or (at your option)
14;; (at your option) any later version. 13;; any later version.
15 14
16;; GNU Emacs is distributed in the hope that it will be useful, 15;; GNU Emacs is distributed in the hope that it will be useful,
17;; but WITHOUT ANY WARRANTY; without even the implied warranty of 16;; but WITHOUT ANY WARRANTY; without even the implied warranty of
diff --git a/lisp/net/tramp-ftp.el b/lisp/net/tramp-ftp.el
index e9caf47018f..f3d7a3aadf1 100644
--- a/lisp/net/tramp-ftp.el
+++ b/lisp/net/tramp-ftp.el
@@ -1,4 +1,4 @@
1;;; tramp-ftp.el --- Tramp convenience functions for Ange-FTP -*- coding: iso-8859-1; -*- 1;;; tramp-ftp.el --- Tramp convenience functions for Ange-FTP
2 2
3;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 3;; Copyright (C) 2002, 2003, 2004, 2005, 2006,
4;; 2007 Free Software Foundation, Inc. 4;; 2007 Free Software Foundation, Inc.
diff --git a/lisp/net/tramp-gw.el b/lisp/net/tramp-gw.el
index 2cbb7ea377f..3ac496d8a09 100644
--- a/lisp/net/tramp-gw.el
+++ b/lisp/net/tramp-gw.el
@@ -1,4 +1,3 @@
1;;; -*- coding: iso-8859-1; -*-
2;;; tramp-gw.el --- Tramp utility functions for HTTP tunnels and SOCKS gateways 1;;; tramp-gw.el --- Tramp utility functions for HTTP tunnels and SOCKS gateways
3 2
4;; Copyright (C) 2007 Free Software Foundation, Inc. 3;; Copyright (C) 2007 Free Software Foundation, Inc.
@@ -10,8 +9,8 @@
10 9
11;; GNU Emacs is free software; you can redistribute it and/or modify 10;; GNU Emacs is free software; you can redistribute it and/or modify
12;; it under the terms of the GNU General Public License as published by 11;; it under the terms of the GNU General Public License as published by
13;; the Free Software Foundation; either version 3 of the License, or 12;; the Free Software Foundation; either version 3, or (at your option)
14;; (at your option) any later version. 13;; any later version.
15 14
16;; GNU Emacs is distributed in the hope that it will be useful, 15;; GNU Emacs is distributed in the hope that it will be useful,
17;; but WITHOUT ANY WARRANTY; without even the implied warranty of 16;; but WITHOUT ANY WARRANTY; without even the implied warranty of
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 22b6afa30e2..5dbf12955d7 100644
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -1,4 +1,4 @@
1;;; tramp-smb.el --- Tramp access functions for SMB servers -*- coding: iso-8859-1; -*- 1;;; tramp-smb.el --- Tramp access functions for SMB servers
2 2
3;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 3;; Copyright (C) 2002, 2003, 2004, 2005, 2006,
4;; 2007 Free Software Foundation, Inc. 4;; 2007 Free Software Foundation, Inc.
diff --git a/lisp/net/tramp-uu.el b/lisp/net/tramp-uu.el
index 71a76dd5c04..c399a0b211d 100644
--- a/lisp/net/tramp-uu.el
+++ b/lisp/net/tramp-uu.el
@@ -1,10 +1,10 @@
1;;; -*- coding: iso-2022-7bit; -*- 1;;; -*- coding: utf-8; -*-
2;;; tramp-uu.el --- uuencode in Lisp 2;;; tramp-uu.el --- uuencode in Lisp
3 3
4;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 4;; Copyright (C) 2002, 2003, 2004, 2005, 2006,
5;; 2007 Free Software Foundation, Inc. 5;; 2007 Free Software Foundation, Inc.
6 6
7;; Author: Kai Gro,A_(Bjohann <kai.grossjohann@gmx.net> 7;; Author: Kai Großjohann <kai.grossjohann@gmx.net>
8;; Keywords: comm, terminals 8;; Keywords: comm, terminals
9 9
10;; This file is free software; you can redistribute it and/or modify 10;; This file is free software; you can redistribute it and/or modify
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index fc4817dcdc1..5285b87313a 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1,4 +1,4 @@
1;;; -*- mode: Emacs-Lisp; coding: iso-2022-7bit; -*- 1;;; -*- mode: Emacs-Lisp; coding: utf-8; -*-
2;;; tramp.el --- Transparent Remote Access, Multiple Protocol 2;;; tramp.el --- Transparent Remote Access, Multiple Protocol
3 3
4;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 4;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
@@ -6,7 +6,7 @@
6 6
7;; (copyright statements below in code to be updated with the above notice) 7;; (copyright statements below in code to be updated with the above notice)
8 8
9;; Author: Kai Gro,A_(Bjohann <kai.grossjohann@gmx.net> 9;; Author: Kai Großjohann <kai.grossjohann@gmx.net>
10;; Michael Albinus <michael.albinus@gmx.de> 10;; Michael Albinus <michael.albinus@gmx.de>
11;; Keywords: comm, processes 11;; Keywords: comm, processes
12 12
@@ -2448,6 +2448,7 @@ of."
2448 t 2448 t
2449 (let ((f (buffer-file-name))) 2449 (let ((f (buffer-file-name)))
2450 (with-parsed-tramp-file-name f nil 2450 (with-parsed-tramp-file-name f nil
2451 (tramp-flush-file-property v localname)
2451 (let* ((attr (file-attributes f)) 2452 (let* ((attr (file-attributes f))
2452 (modtime (nth 5 attr)) 2453 (modtime (nth 5 attr))
2453 (mt (visited-file-modtime))) 2454 (mt (visited-file-modtime)))
@@ -3713,7 +3714,7 @@ beginning of local filename are not substituted."
3713 (run-hooks 'tramp-handle-file-local-copy-hook) 3714 (run-hooks 'tramp-handle-file-local-copy-hook)
3714 tmpfil))) 3715 tmpfil)))
3715 3716
3716(defun tramp-handle-file-remote-p (file &optional identification connected) 3717(defun tramp-handle-file-remote-p (filename &optional identification connected)
3717 "Like `file-remote-p' for Tramp files." 3718 "Like `file-remote-p' for Tramp files."
3718 (when (tramp-tramp-file-p filename) 3719 (when (tramp-tramp-file-p filename)
3719 (with-parsed-tramp-file-name filename nil 3720 (with-parsed-tramp-file-name filename nil
@@ -7358,7 +7359,7 @@ please ensure that the buffers are attached to your email.\n\n")
7358;; transfer method to use. (Greg Stark) 7359;; transfer method to use. (Greg Stark)
7359;; * Remove unneeded parameters from methods. 7360;; * Remove unneeded parameters from methods.
7360;; * Invoke rsync once for copying a whole directory hierarchy. 7361;; * Invoke rsync once for copying a whole directory hierarchy.
7361;; (Francesco Potort,Al(B) 7362;; (Francesco Potortì)
7362;; * Make it work for different encodings, and for different file name 7363;; * Make it work for different encodings, and for different file name
7363;; encodings, too. (Daniel Pittman) 7364;; encodings, too. (Daniel Pittman)
7364;; * Clean up unused *tramp/foo* buffers after a while. (Pete Forman) 7365;; * Clean up unused *tramp/foo* buffers after a while. (Pete Forman)
diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el
index acfaca5c842..6e48c3c7f47 100644
--- a/lisp/net/trampver.el
+++ b/lisp/net/trampver.el
@@ -1,10 +1,10 @@
1;;; -*- mode: Emacs-Lisp; coding: iso-2022-7bit; -*- 1;;; -*- mode: Emacs-Lisp; coding: utf-8; -*-
2;;; trampver.el --- Transparent Remote Access, Multiple Protocol 2;;; trampver.el --- Transparent Remote Access, Multiple Protocol
3;;; lisp/trampver.el. Generated from trampver.el.in by configure. 3;;; lisp/trampver.el. Generated from trampver.el.in by configure.
4 4
5;; Copyright (C) 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. 5;; Copyright (C) 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
6 6
7;; Author: Kai Gro,A_(Bjohann <kai.grossjohann@gmx.net> 7;; Author: Kai Großjohann <kai.grossjohann@gmx.net>
8;; Keywords: comm, processes 8;; Keywords: comm, processes
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
@@ -30,14 +30,14 @@
30;; "autoconf && ./configure" to change them. (X)Emacs version check is defined 30;; "autoconf && ./configure" to change them. (X)Emacs version check is defined
31;; in macro AC_EMACS_INFO of aclocal.m4; should be changed only there. 31;; in macro AC_EMACS_INFO of aclocal.m4; should be changed only there.
32 32
33(defconst tramp-version "2.1.10" 33(defconst tramp-version "2.1.11-pre"
34 "This version of Tramp.") 34 "This version of Tramp.")
35 35
36(defconst tramp-bug-report-address "tramp-devel@gnu.org" 36(defconst tramp-bug-report-address "tramp-devel@gnu.org"
37 "Email address to send bug reports to.") 37 "Email address to send bug reports to.")
38 38
39;; Check for (X)Emacs version. 39;; Check for (X)Emacs version.
40(let ((x (if (or (< emacs-major-version 21) (and (featurep 'xemacs) (< emacs-minor-version 4))) (format "Tramp 2.1.10 is not fit for %s" (when (string-match "^.*$" (emacs-version)) (match-string 0 (emacs-version)))) "ok"))) 40(let ((x (if (or (< emacs-major-version 21) (and (featurep 'xemacs) (< emacs-minor-version 4))) (format "Tramp 2.1.11-pre is not fit for %s" (when (string-match "^.*$" (emacs-version)) (match-string 0 (emacs-version)))) "ok")))
41 (unless (string-match "\\`ok\\'" x) (error x))) 41 (unless (string-match "\\`ok\\'" x) (error x)))
42 42
43(provide 'trampver) 43(provide 'trampver)