aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2008-01-06 03:18:08 +0000
committerJuanma Barranquero2008-01-06 03:18:08 +0000
commitdf49d02eba46dd0b8f463c18c27da094efdf9ad7 (patch)
tree855eabb88d8e722b7e975bca192e2cf5296fbe9e
parentf3041af143f4ab74041fc918feee43aa8ac2da88 (diff)
downloademacs-df49d02eba46dd0b8f463c18c27da094efdf9ad7.tar.gz
emacs-df49d02eba46dd0b8f463c18c27da094efdf9ad7.zip
Fix typo in comment. Reported by Tom Tromey <tromey@redhat.com>.
-rw-r--r--lisp/vc.el22
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/vc.el b/lisp/vc.el
index 7b82dc47d4a..74ab1afeb20 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -160,7 +160,7 @@
160;; - dir-state (dir) 160;; - dir-state (dir)
161;; 161;;
162;; If provided, this function is used to find the version control 162;; If provided, this function is used to find the version control
163;; state of as many files as possible in DIR, and all subdirecties 163;; state of as many files as possible in DIR, and all subdirectories
164;; of DIR, in a fast way; it is used to avoid expensive indivitual 164;; of DIR, in a fast way; it is used to avoid expensive indivitual
165;; vc-state calls. The function should not return anything, but 165;; vc-state calls. The function should not return anything, but
166;; rather store the files' states into the corresponding properties. 166;; rather store the files' states into the corresponding properties.
@@ -322,7 +322,7 @@
322;; 322;;
323;; - modify-change-comment (files rev comment) 323;; - modify-change-comment (files rev comment)
324;; 324;;
325;; Modify the change comments associated with the files at the 325;; Modify the change comments associated with the files at the
326;; given revision. This is optional, many backends do not support it. 326;; given revision. This is optional, many backends do not support it.
327;; 327;;
328;; HISTORY FUNCTIONS 328;; HISTORY FUNCTIONS
@@ -2157,11 +2157,11 @@ The headers are reset to their non-expanded form."
2157 files rev oldcomment t 2157 files rev oldcomment t
2158 "Enter a replacement change comment." 2158 "Enter a replacement change comment."
2159 (lambda (files rev comment) 2159 (lambda (files rev comment)
2160 (vc-call-backend 2160 (vc-call-backend
2161 ;; Less of a kluge than it looks like; log-view mode only passes 2161 ;; Less of a kluge than it looks like; log-view mode only passes
2162 ;; this function a singleton list. Arguments left in this form in 2162 ;; this function a singleton list. Arguments left in this form in
2163 ;; case the more general operation ever becomes meaningful. 2163 ;; case the more general operation ever becomes meaningful.
2164 (vc-responsible-backend (car files)) 2164 (vc-responsible-backend (car files))
2165 'modify-change-comment files rev comment)))) 2165 'modify-change-comment files rev comment))))
2166 2166
2167;;;###autoload 2167;;;###autoload
@@ -2338,10 +2338,10 @@ This code, like dired, assumes UNIX -l format."
2338 2338
2339(defun vc-dired-ignorable-p (filename) 2339(defun vc-dired-ignorable-p (filename)
2340 "Should FILENAME be ignored in VC-Dired listings?" 2340 "Should FILENAME be ignored in VC-Dired listings?"
2341 (catch t 2341 (catch t
2342 ;; Ignore anything that wouldn't be found by completion (.o, .la, etc.) 2342 ;; Ignore anything that wouldn't be found by completion (.o, .la, etc.)
2343 (dolist (ignorable completion-ignored-extensions) 2343 (dolist (ignorable completion-ignored-extensions)
2344 (let ((ext (substring filename 2344 (let ((ext (substring filename
2345 (- (length filename) 2345 (- (length filename)
2346 (length ignorable))))) 2346 (length ignorable)))))
2347 (if (string= ignorable ext) (throw t t)))) 2347 (if (string= ignorable ext) (throw t t))))
@@ -2364,7 +2364,7 @@ Called by dired after any portion of a vc-dired buffer has been read in."
2364 (if (and (vc-call-backend backend 'responsible-p default-directory) 2364 (if (and (vc-call-backend backend 'responsible-p default-directory)
2365 (vc-find-backend-function backend 'dir-state)) 2365 (vc-find-backend-function backend 'dir-state))
2366 (vc-call-backend backend 'dir-state default-directory))) 2366 (vc-call-backend backend 'dir-state default-directory)))
2367 (let (filename 2367 (let (filename
2368 (inhibit-read-only t) 2368 (inhibit-read-only t)
2369 (buffer-undo-list t)) 2369 (buffer-undo-list t))
2370 (goto-char (point-min)) 2370 (goto-char (point-min))
@@ -2412,12 +2412,12 @@ Called by dired after any portion of a vc-dired buffer has been read in."
2412 (dired-kill-line) 2412 (dired-kill-line)
2413 (vc-dired-reformat-line "?") 2413 (vc-dired-reformat-line "?")
2414 (forward-line 1))) 2414 (forward-line 1)))
2415 ;; Either we're in non-terse mode or it's out of date 2415 ;; Either we're in non-terse mode or it's out of date
2416 ((not (and vc-dired-terse-mode (vc-up-to-date-p filename))) 2416 ((not (and vc-dired-terse-mode (vc-up-to-date-p filename)))
2417 (vc-dired-reformat-line (vc-call dired-state-info filename)) 2417 (vc-dired-reformat-line (vc-call dired-state-info filename))
2418 (forward-line 1)) 2418 (forward-line 1))
2419 ;; Remaining cases are under version control but uninteresting 2419 ;; Remaining cases are under version control but uninteresting
2420 (t 2420 (t
2421 (dired-kill-line)))) 2421 (dired-kill-line))))
2422 ;; any other line 2422 ;; any other line
2423 (t (forward-line 1)))) 2423 (t (forward-line 1))))