[Emacs-diffs] emacs/lisp vc-arch.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/11/22 03:30:23

Modified files:
        lisp           : vc-arch.el 

Log message:
        (vc-arch-program): Rename from vc-arch-command, for
        consistency with other backends.  Make it a defcustom.
        (vc-arch-command, vc-arch-trim-revlib): Adapt for above change.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-arch.el?cvsroot=emacs&r1=1.48&r2=1.49

Patches:
Index: vc-arch.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-arch.el,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -b -r1.48 -r1.49
--- vc-arch.el  16 Oct 2008 11:48:45 -0000      1.48
+++ vc-arch.el  22 Nov 2008 03:30:22 -0000      1.49
@@ -64,11 +64,16 @@
 ;;; Customization options
 ;;;
 
-(defvar vc-arch-command
+(define-obsolete-variable-alias 'vc-arch-command 'vc-arch-program "23.1")
+
+(defcustom vc-arch-program
   (let ((candidates '("tla" "baz")))
     (while (and candidates (not (executable-find (car candidates))))
       (setq candidates (cdr candidates)))
-    (or (car candidates) "tla")))
+    (or (car candidates) "tla"))
+  "Name of the Arch executable."
+  :type 'string
+  :group 'vc)
 
 ;; Clear up the cache to force vc-call to check again and discover
 ;; new functions when we reload this file.
@@ -463,7 +468,7 @@
 
 (defun vc-arch-command (buffer okstatus file &rest flags)
   "A wrapper around `vc-do-command' for use in vc-arch.el."
-  (apply 'vc-do-command (or buffer "*vc*") okstatus vc-arch-command file 
flags))
+  (apply 'vc-do-command (or buffer "*vc*") okstatus vc-arch-program file 
flags))
 
 (defun vc-arch-init-revision () nil)
 
@@ -561,7 +566,7 @@
   "Delete half of the revisions in the revision library."
   (interactive)
   (let ((rl-dir (with-output-to-string
-                  (call-process vc-arch-command nil standard-output nil
+                  (call-process vc-arch-program nil standard-output nil
                                 "my-revision-library"))))
     (while (string-match "\\(.*\\)\n" rl-dir)
       (let ((dir (match-string 1 rl-dir)))