# HG changeset patch # User Stefan Monnier # Date 1256695546 0 # Node ID 882add770597f39f8da2c1f86cc543c7d81db285 # Parent 51992684b56073e107268a62408e1396a53682d4 (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. diff -r 51992684b560 -r 882add770597 lisp/ChangeLog --- a/lisp/ChangeLog Tue Oct 27 22:59:55 2009 +0000 +++ b/lisp/ChangeLog Wed Oct 28 02:05:46 2009 +0000 @@ -1,7 +1,13 @@ +2009-10-28 Stefan Monnier + + * 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 - * 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 @@ -24,22 +30,19 @@ 2009-10-26 Michael Albinus - * net/tramp.el (tramp-perl-file-truename): New defconst. Perl - code contributed by yary (tiny change). + * net/tramp.el (tramp-perl-file-truename): New defconst. + Perl code contributed by yary (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. - - * net/tramp-imap.el (tramp-imap-file-name-handler-alist): Ignore - `dired-call-process'. + 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'. (tramp-imap-make-iht): Use `user' and `ssl' with `imap-hash-make'. 2009-10-26 Julian Scheid - * 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. diff -r 51992684b560 -r 882add770597 lisp/vc-hg.el --- a/lisp/vc-hg.el Tue Oct 27 22:59:55 2009 +0000 +++ b/lisp/vc-hg.el Wed Oct 28 02:05:46 2009 +0000 @@ -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)