]> git.eshelyaron.com Git - emacs.git/commitdiff
* vc-svn.el (vc-svn-root):
authorStefan Monnier <monnier@iro.umontreal.ca>
Sun, 7 Sep 2008 20:24:24 +0000 (20:24 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Sun, 7 Sep 2008 20:24:24 +0000 (20:24 +0000)
* vc-sccs.el (vc-sccs-root):
* vc-rcs.el (vc-rcs-root):
* vc-cvs.el (vc-cvs-root): Delete.
* vc-hooks.el (vc-find-root): Remove `invert' argument.

lisp/ChangeLog
lisp/vc-cvs.el
lisp/vc-hooks.el
lisp/vc-rcs.el
lisp/vc-sccs.el
lisp/vc-svn.el
lisp/vc.el

index 26c839aabcf58bf1aa551146332d0f23daa02fae..735af08a6b67a786c7d899ecec48b2c77190c22b 100644 (file)
@@ -1,3 +1,11 @@
+2008-09-07  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * vc-svn.el (vc-svn-root):
+       * vc-sccs.el (vc-sccs-root):
+       * vc-rcs.el (vc-rcs-root):
+       * vc-cvs.el (vc-cvs-root): Delete.
+       * vc-hooks.el (vc-find-root): Remove `invert' argument.
+
 2008-09-07  Nikolaj Schumacher  <n_schumacher@web.de>  (tiny change)
 
        * progmodes/flymake.el (flymake-parse-err-lines): Filter out
@@ -5,9 +13,9 @@
 
 2008-09-07  Dan Nicolaescu  <dann@ics.uci.edu>
 
-        * vc-bzr.el (vc-bzr-extra-fileinfo): New defstruct.
-        (vc-bzr-status-printer): New function.
-        (vc-bzr-after-dir-status): Deal with renamed files.
+       * vc-bzr.el (vc-bzr-extra-fileinfo): New defstruct.
+       (vc-bzr-status-printer): New function.
+       (vc-bzr-after-dir-status): Deal with renamed files.
 
 2008-09-07  Johan Euphrosine  <proppy@aminche.com>  (tiny change)
 
@@ -31,7 +39,7 @@
        (proced-sorting-schemes-alist, proced-sorting-scheme)
        (proced-header-alist, proced-sorting-schemes-re)
        (proced-skip-regexp, proced-next-line, proced-previous-line)
-       (proced-listing-type, proced-sorting-scheme-p): Removed.
+       (proced-listing-type, proced-sorting-scheme-p): Remove.
        (proced-grammar-alist, proced-custom-attributes)
        (proced-format-alist, proced-format, proced-filter-alist)
        (proced-filter, proced-sort, proced-goal-attribute)
        Simplify.
        (proced-omit-processes): Use use-region-p.
        (proced-sort-pcpu, proced-sort-pmem, proced-sort-pid)
-       (proced-sort-start, proced-sort-time, proced-sort-user): Use
-       proced-sort-interactive.
+       (proced-sort-start, proced-sort-time, proced-sort-user):
+       Use proced-sort-interactive.
        (proced-sort): Make it a function that performs the actual sort.
        (proced-update): New arg revert.  Use proced-process-alist,
        proced-filter, proced-sort, proced-format, and
        proced-grammar-alist.  Preserve position of point based on fields.
        Make header line and fields clickable.
-       (proced-send-signal): Use proced-pid-at-point and
-       proced-process-alist.
+       (proced-send-signal): Use proced-pid-at-point and proced-process-alist.
        (proced-why): Use save-selected-window.
        (proced-log): Use buffer-read-only.
 
        (verilog-submit-bug-report): Update author support URLs.
        (verilog-delete-auto, verilog-auto-inout-module)
        (verilog-auto-inout-comp, verilog-auto): Add AUTOINOUTCOMP for
-       creating complemented testbench modules.  Suggested by Yishay
-       Belkind.
-       (verilog-auto-inst-port, verilog-simplify-range-expression): When
-       verilog-auto-inst-param-value is set, don't require a
+       creating complemented testbench modules.  Suggested by Yishay Belkind.
+       (verilog-auto-inst-port, verilog-simplify-range-expression):
+       When verilog-auto-inst-param-value is set, don't require a
        AUTO_TEMPLATE to expand parameter substitutions.  Suggested by
        Yishay Belkind.
        (verilog-auto-inst-param-value): Add safe variable.
-       (verilog-re-search-forward, verilog-re-search-backward): Fix
-       returning wrong search results on Emacs 22.1.
+       (verilog-re-search-forward, verilog-re-search-backward):
+       Fix returning wrong search results on Emacs 22.1.
        (verilog-modi-cache-results, verilog-auto): Fix warning message
        about "toggling font-lock-mode."
        (verilog-auto): Fix losing font-lock on errors.
        (verilog-auto-inst-param-value, verilog-mode-version)
        (verilog-mode-version-date, verilog-read-inst-param-value)
        (verilog-auto-inst, verilog-auto-inst-param)
-       (verilog-auto-inst-port, verilog-simplify-range-expression): Allow
-       parameters to be replaced with their values, on the expansion of
-       an AUTOINST with Verilog 2001 style parameter settings.  Suggested
-       by David Rogoff.
+       (verilog-auto-inst-port, verilog-simplify-range-expression):
+       Allow parameters to be replaced with their values, on the expansion of
+       an AUTOINST with Verilog 2001 style parameter settings.
+       Suggested by David Rogoff.
 
 2008-09-05  Michael McNamara  <mac@mail.brushroad.com>
 
 
 2008-09-05  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
-       * whitespace.el (whitespace-kill-buffer-hook, whitespace-action): Don't
-       clean up a buffer when killing it.
+       * whitespace.el (whitespace-kill-buffer-hook, whitespace-action):
+       Don't clean up a buffer when killing it.
 
 2008-09-05  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
index eeb4ef08e1a86fbf801145d2a29268c92f82e15e..23dc61b01de4d3a8a67e18eacbba89b2ed58c454 100644 (file)
@@ -691,9 +691,6 @@ If UPDATE is non-nil, then update (resynch) any affected buffers."
 ;;; Internal functions
 ;;;
 
-(defun vc-cvs-root (dir)
-  (vc-find-root dir "CVS" t))
-
 (defun vc-cvs-command (buffer okstatus files &rest flags)
   "A wrapper around `vc-do-command' for use in vc-cvs.el.
 The difference to vc-do-command is that this function always invokes `cvs',
index 91cb4c0cd32754b16110ad498126ee6bee41e1b3..8d17eeac6998c5b5070c3b0f1ff634e1ccfa3bb2 100644 (file)
@@ -321,12 +321,10 @@ non-nil if FILE exists and its contents were successfully inserted."
     (set-buffer-modified-p nil)
     t))
 
-(defun vc-find-root (file witness &optional invert)
+(defun vc-find-root (file witness)
   "Find the root of a checked out project.
 The function walks up the directory tree from FILE looking for WITNESS.
-If WITNESS if not found, return nil, otherwise return the root.
-Optional arg INVERT non-nil reverses the sense of the check;
-the root is the last directory for which WITNESS *is* found."
+If WITNESS if not found, return nil, otherwise return the root."
   ;; Represent /home/luser/foo as ~/foo so that we don't try to look for
   ;; witnesses in /home or in /.
   (setq file (abbreviate-file-name file))
@@ -349,16 +347,11 @@ the root is the last directory for which WITNESS *is* found."
                       (and prev-user (not (equal user prev-user))))
                     (string-match vc-ignore-dir-regexp file)))
       (setq try (file-exists-p (expand-file-name witness file)))
-      (cond ((and invert (not try)) (setq root prev-file))
-            ((and (not invert) try) (setq root file))
+      (cond (try (setq root file))
             ((equal file (setq prev-file file
                                file (file-name-directory
                                      (directory-file-name file))))
              (setq file nil))))
-    ;; Handle the case where ~/WITNESS exists and the original FILE is "~".
-    ;; (This occurs, for example, when placing dotfiles under RCS.)
-    (when (and (not root) invert prev-file)
-      (setq root prev-file))
     root))
 
 ;; Access functions to file properties
index 06e06c503f343881cd156b712089821337a67985..14d65da2a5a44cdf5c9617bf2ade7ddbf623f4ea 100644 (file)
@@ -835,9 +835,6 @@ systime, or nil if there is none.  Also, reposition point."
 ;;; Internal functions
 ;;;
 
-(defun vc-rcs-root (dir)
-  (vc-find-root dir "RCS" t))
-
 (defun vc-rcs-workfile-is-newer (file)
   "Return non-nil if FILE is newer than its RCS master.
 This likely means that FILE has been changed with respect
index 5cf19064b594b40e8936cb5ec67a8731d1571fb6..b8957b94c386ba9719f68293d8f9c1f5aa646312 100644 (file)
@@ -398,9 +398,6 @@ revert all subfiles."
 ;;; Internal functions
 ;;;
 
-(defun vc-sccs-root (dir)
-  (vc-find-root dir "SCCS" t))
-
 ;; This function is wrapped with `progn' so that the autoload cookie
 ;; copies the whole function itself into loaddefs.el rather than just placing
 ;; a (autoload 'vc-sccs-search-project-dir "vc-sccs") which would not
index 854e66e3d1d9d659ae14874f571b0531270f6e8b..caf5ec15dcbc639b2782d5eb3e9d94606f51d99f 100644 (file)
@@ -533,9 +533,6 @@ NAME is assumed to be a URL."
   :type 'string
   :group 'vc)
 
-(defun vc-svn-root (dir)
-  (vc-find-root dir vc-svn-admin-directory t))
-
 (defun vc-svn-command (buffer okstatus file-or-list &rest flags)
   "A wrapper around `vc-do-command' for use in vc-svn.el.
 The difference to vc-do-command is that this function always invokes `svn',
index 27f21ccc6f8bcfea4631e69fe03b17bd4fb1d6ff..88d023a422f47b6cdc34afdcbca3abc23ea773fb 100644 (file)
 ;;
 ;; MISCELLANEOUS
 ;;
-;; - root (dir)
-;;
-;;   Return DIR's "root" directory, that is, a parent directory of
-;;   DIR for which the same backend as used for DIR applies.  If no
-;;   such parent exists, this function should return DIR.
-;;
 ;; - make-version-backups-p (file)
 ;;
 ;;   Return non-nil if unmodified repository revisions of FILE should be