[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog vc-hg.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog vc-hg.el |
Date: |
Wed, 28 Oct 2009 02:05:51 +0000 |
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)