[Emacs-diffs] emacs/lisp ChangeLog vc-hg.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/10/28 02:05:50

Modified files:
        lisp           : ChangeLog vc-hg.el 

Log message:
        (vc-hg-state, vc-hg-working-revision): Use process-file so
        it works on remote files.
        (vc-hg-diff): Don't pass any `--cwd' argument.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16516&r2=1.16517
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-hg.el?cvsroot=emacs&r1=1.104&r2=1.105

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16516
retrieving revision 1.16517
diff -u -b -r1.16516 -r1.16517
--- ChangeLog   27 Oct 2009 22:59:55 -0000      1.16516
+++ ChangeLog   28 Oct 2009 02:05:46 -0000      1.16517
@@ -1,7 +1,13 @@
+2009-10-28  Stefan Monnier  <address@hidden>
+
+       * vc-hg.el (vc-hg-state, vc-hg-working-revision): Use process-file so
+       it works on remote files.
+       (vc-hg-diff): Don't pass any `--cwd' argument.
+
 2009-10-27  Kevin Ryde  <address@hidden>
 
-       * emacs-lisp/checkdoc.el (checkdoc-proper-noun-region-engine): Use
-       help-xref-info-regexp and help-xref-url-regexp to identify links.
+       * emacs-lisp/checkdoc.el (checkdoc-proper-noun-region-engine):
+       Use help-xref-info-regexp and help-xref-url-regexp to identify links.
        (Further to Bug#3921).
 
 2009-10-27  Michael Albinus  <address@hidden>
@@ -24,22 +30,19 @@
 
 2009-10-26  Michael Albinus  <address@hidden>
 
-       * net/tramp.el (tramp-perl-file-truename): New defconst.  Perl
-       code contributed by yary <address@hidden> (tiny change).
+       * net/tramp.el (tramp-perl-file-truename): New defconst.
+       Perl code contributed by yary <address@hidden> (tiny change).
        (tramp-handle-file-truename, tramp-get-remote-perl): Use it.
-       Check also for "perl-file-spec" and "perl-cwd-realpath"
-       properties.
-       (tramp-handle-write-region): In case of APPEND, reuse the tmpfile
-       name.
+       Check also for "perl-file-spec" and "perl-cwd-realpath" properties.
+       (tramp-handle-write-region): In case of APPEND, reuse the tmpfile name.
 
-       * net/tramp-imap.el (tramp-imap-file-name-handler-alist): Ignore
-       `dired-call-process'.
+       * net/tramp-imap.el (tramp-imap-file-name-handler-alist):
+       Ignore `dired-call-process'.
        (tramp-imap-make-iht): Use `user' and `ssl' with `imap-hash-make'.
 
 2009-10-26  Julian Scheid  <address@hidden>
 
-       * net/tramp.el (tramp-perl-file-name-all-completions): New
-       defconst.
+       * net/tramp.el (tramp-perl-file-name-all-completions): New defconst.
        (tramp-get-remote-readlink): New defun.
        (tramp-handle-file-truename): Use it.
        (tramp-handle-file-exists-p): Check file-attributes cache, assume
@@ -57,8 +60,8 @@
        remote `cd' or Perl code for local tramp-error.
        (tramp-do-copy-or-rename-file-directly): Avoid separate
        tramp-send-command-and-check call.
-       (tramp-handle-process-file): Merge three remote ops into one.  Do
-       not flush all caches when `process-file-side-effects' is set.
+       (tramp-handle-process-file): Merge three remote ops into one.
+       Do not flush all caches when `process-file-side-effects' is set.
        (tramp-handle-write-region): Avoid tramp-set-file-uid-gid if
        file-attributes shows uid/gid to be set already.
 
@@ -93,8 +96,7 @@
        (rmail-secondary-file-regexp):
        * files.el (null-device, file-name-invalid-regexp)
        (locate-dominating-stop-dir-regexp)
-       (inhibit-first-line-modes-regexps): Purecopy initialization
-       strings.
+       (inhibit-first-line-modes-regexps): Purecopy initialization strings.
        (interpreter-mode-alist): Use mapcar instead of mapc.
 
        * buff-menu.el (Buffer-menu-mode-map): Purecopy name.
@@ -195,7 +197,8 @@
        * vc.el (vc-backend-for-registration): Rename from
        vc-get-backend-for-registration.  Update callers.
 
-       * international/mule-cmds.el (set-language-info-alist): Purecopy 
lang-env.
+       * international/mule-cmds.el (set-language-info-alist):
+       Purecopy lang-env.
        (leim-list-header, leim-list-entry-regexp): Change defvars to defconst.
        (charset): Purecopy the name.
        (define-char-code-property): Purecopy string arguments.
@@ -219,8 +222,8 @@
        (file-cache-choose-completion): Handle an optional event argument.
        (file-cache-mouse-choose-completion): Make it an obsolete alias.
 
-       * progmodes/octave-mod.el (octave-complete-symbol): Use
-       choose-completion if mouse-choose-completion is ever removed.
+       * progmodes/octave-mod.el (octave-complete-symbol):
+       Use choose-completion if mouse-choose-completion is ever removed.
 
        * textmodes/sgml-mode.el (sgml-looking-back-at): Move definition before
        use.

Index: vc-hg.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-hg.el,v
retrieving revision 1.104
retrieving revision 1.105
diff -u -b -r1.104 -r1.105
--- vc-hg.el    19 Oct 2009 05:04:28 -0000      1.104
+++ vc-hg.el    28 Oct 2009 02:05:50 -0000      1.105
@@ -159,6 +159,7 @@
   "Hg-specific version of `vc-state'."
   (let*
       ((status nil)
+       (default-directory (file-name-directory file))
        (out
         (with-output-to-string
           (with-current-buffer
@@ -166,9 +167,9 @@
             (setq status
                   (condition-case nil
                       ;; Ignore all errors.
-                      (call-process
-                       "hg" nil t nil "--cwd" (file-name-directory file)
-                       "status" "-A" (file-name-nondirectory file))
+                      (process-file
+                       "hg" nil t nil
+                       "status" "-A" (file-relative-name file))
                     ;; Some problem happened.  E.g. We can't find an `hg'
                     ;; executable.
                     (error nil)))))))
@@ -190,6 +191,7 @@
   "Hg-specific version of `vc-working-revision'."
   (let*
       ((status nil)
+       (default-directory (file-name-directory file))
        (out
         (with-output-to-string
           (with-current-buffer
@@ -197,9 +199,9 @@
             (setq status
                   (condition-case nil
                       ;; Ignore all errors.
-                      (call-process
-                       "hg" nil t nil "--cwd" (file-name-directory file)
-                       "log" "-l1" (file-name-nondirectory file))
+                      (process-file
+                       "hg" nil t nil
+                       "log" "-l1" (file-relative-name file))
                     ;; Some problem happened.  E.g. We can't find an `hg'
                     ;; executable.
                     (error nil)))))))
@@ -286,7 +288,6 @@
       (setq oldvers working))
     (apply #'vc-hg-command (or buffer "*vc-diff*") nil
            (mapcar (lambda (file) (file-relative-name file cwd)) files)
-           "--cwd" cwd
            "diff"
            (append
             (vc-switches 'hg 'diff)