diff options
| author | Juanma Barranquero | 2008-01-06 03:18:08 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2008-01-06 03:18:08 +0000 |
| commit | df49d02eba46dd0b8f463c18c27da094efdf9ad7 (patch) | |
| tree | 855eabb88d8e722b7e975bca192e2cf5296fbe9e | |
| parent | f3041af143f4ab74041fc918feee43aa8ac2da88 (diff) | |
| download | emacs-df49d02eba46dd0b8f463c18c27da094efdf9ad7.tar.gz emacs-df49d02eba46dd0b8f463c18c27da094efdf9ad7.zip | |
Fix typo in comment. Reported by Tom Tromey <tromey@redhat.com>.
| -rw-r--r-- | lisp/vc.el | 22 |
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)))) |