diff options
| author | Michael Albinus | 2007-07-29 15:32:56 +0000 |
|---|---|---|
| committer | Michael Albinus | 2007-07-29 15:32:56 +0000 |
| commit | bce04feefd5fd9afddfb772c83f80d1445f3068c (patch) | |
| tree | ddca47a0ea7b285d25b4c4168003992f69fed911 | |
| parent | c486d9691c400962e28c8e247c7cd86b8342b103 (diff) | |
| download | emacs-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/ChangeLog | 18 | ||||
| -rw-r--r-- | lisp/net/tramp-cache.el | 5 | ||||
| -rw-r--r-- | lisp/net/tramp-fish.el | 5 | ||||
| -rw-r--r-- | lisp/net/tramp-ftp.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp-gw.el | 5 | ||||
| -rw-r--r-- | lisp/net/tramp-smb.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp-uu.el | 4 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 9 | ||||
| -rw-r--r-- | lisp/net/trampver.el | 8 |
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 @@ | |||
| 1 | 2007-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 | |||
| 1 | 2007-07-29 Juri Linkov <juri@jurta.org> | 19 | 2007-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) |