[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog vc-hg.el
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog vc-hg.el |
Date: |
Mon, 24 Nov 2008 09:28:53 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 08/11/24 09:28:52
Modified files:
lisp : ChangeLog vc-hg.el
Log message:
(vc-hg-global-switches): Remove.
(vc-hg-state, vc-hg-working-revision, vc-hg-command): Undo
previous change.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.14843&r2=1.14844
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-hg.el?cvsroot=emacs&r1=1.89&r2=1.90
Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.14843
retrieving revision 1.14844
diff -u -b -r1.14843 -r1.14844
--- ChangeLog 23 Nov 2008 17:40:27 -0000 1.14843
+++ ChangeLog 24 Nov 2008 09:28:49 -0000 1.14844
@@ -1,3 +1,9 @@
+2008-11-24 Dan Nicolaescu <address@hidden>
+
+ * vc-hg.el (vc-hg-global-switches): Remove.
+ (vc-hg-state, vc-hg-working-revision, vc-hg-command): Undo
+ previous change.
+
2008-11-23 Martin Rudalics <address@hidden>
* info-look.el (info-lookup): When Info buffer is visible on
Index: vc-hg.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-hg.el,v
retrieving revision 1.89
retrieving revision 1.90
diff -u -b -r1.89 -r1.90
--- vc-hg.el 22 Nov 2008 03:29:03 -0000 1.89
+++ vc-hg.el 24 Nov 2008 09:28:52 -0000 1.90
@@ -116,12 +116,6 @@
;;; Customization options
-(defcustom vc-hg-program "hg"
- "Name of the Hg executable."
- :type 'string
- :version "23.1"
- :group 'vc)
-
(defcustom vc-hg-global-switches nil
"*Global switches to pass to any Hg command."
:type '(choice (const :tag "None" nil)
@@ -180,8 +174,7 @@
(condition-case nil
;; Ignore all errors.
(call-process
- vc-hg-program nil t nil
- "--cwd" (file-name-directory file)
+ "hg" nil t nil "--cwd" (file-name-directory file)
"status" "-A" (file-name-nondirectory file))
;; Some problem happened. E.g. We can't find an `hg'
;; executable.
@@ -212,8 +205,7 @@
(condition-case nil
;; Ignore all errors.
(call-process
- vc-hg-program nil t nil
- "--cwd" (file-name-directory file)
+ "hg" nil t nil "--cwd" (file-name-directory file)
"log" "-l1" (file-name-nondirectory file))
;; Some problem happened. E.g. We can't find an `hg'
;; executable.
@@ -605,9 +597,9 @@
(defun vc-hg-command (buffer okstatus file-or-list &rest flags)
"A wrapper around `vc-do-command' for use in vc-hg.el.
-The difference to vc-do-command is that this function always invokes
-`vc-hg-program', and that it passes `vc-hg-global-switches' to it before
FLAGS."
- (apply 'vc-do-command (or buffer "*vc*") okstatus vc-hg-program file-or-list
+The difference to vc-do-command is that this function always invokes `hg',
+and that it passes `vc-hg-global-switches' to it before FLAGS."
+ (apply 'vc-do-command (or buffer "*vc*") okstatus "hg" file-or-list
(if (stringp vc-hg-global-switches)
(cons vc-hg-global-switches flags)
(append vc-hg-global-switches
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog vc-hg.el,
Dan Nicolaescu <=