diff options
| author | Dan Nicolaescu | 2009-10-24 06:34:26 +0000 |
|---|---|---|
| committer | Dan Nicolaescu | 2009-10-24 06:34:26 +0000 |
| commit | a9a2a6db29a6aef761527d9b5ce776410575669e (patch) | |
| tree | 8ea26dabddce4fa6c6229404d083df1f45b9ec0d | |
| parent | 905a9ed3923847f0323b5ad6f2e26558336fe9c0 (diff) | |
| download | emacs-a9a2a6db29a6aef761527d9b5ce776410575669e.tar.gz emacs-a9a2a6db29a6aef761527d9b5ce776410575669e.zip | |
(vc-backend-for-registration): Rename from
vc-get-backend-for-registration. Update callers.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/vc.el | 6 |
2 files changed, 6 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a9e21b1c251..8a41ef8d171 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2009-10-24 Dan Nicolaescu <dann@ics.uci.edu> | 1 | 2009-10-24 Dan Nicolaescu <dann@ics.uci.edu> |
| 2 | 2 | ||
| 3 | * vc.el (vc-backend-for-registration): Rename from | ||
| 4 | vc-get-backend-for-registration. Update callers. | ||
| 5 | |||
| 3 | * international/mule-cmds.el (set-language-info-alist): Purecopy lang-env. | 6 | * international/mule-cmds.el (set-language-info-alist): Purecopy lang-env. |
| 4 | (leim-list-header, leim-list-entry-regexp): Change defvars to defconst. | 7 | (leim-list-header, leim-list-entry-regexp): Change defvars to defconst. |
| 5 | (charset): Purecopy the name. | 8 | (charset): Purecopy the name. |
diff --git a/lisp/vc.el b/lisp/vc.el index e2ddb4f07be..19033c214d8 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -794,7 +794,7 @@ been updated to their corresponding values." | |||
| 794 | 794 | ||
| 795 | ;;; Code for deducing what fileset and backend to assume | 795 | ;;; Code for deducing what fileset and backend to assume |
| 796 | 796 | ||
| 797 | (defun vc-get-backend-for-registration (file) | 797 | (defun vc-backend-for-registration (file) |
| 798 | "Return a backend that can be used for registering FILE. | 798 | "Return a backend that can be used for registering FILE. |
| 799 | 799 | ||
| 800 | If no backend declares itself responsible for FILE, then FILE | 800 | If no backend declares itself responsible for FILE, then FILE |
| @@ -913,12 +913,12 @@ current buffer." | |||
| 913 | (error "Buffer %s is not associated with a file" (buffer-name))) | 913 | (error "Buffer %s is not associated with a file" (buffer-name))) |
| 914 | ((and allow-unregistered (not (vc-registered buffer-file-name))) | 914 | ((and allow-unregistered (not (vc-registered buffer-file-name))) |
| 915 | (if state-model-only-files | 915 | (if state-model-only-files |
| 916 | (list (vc-get-backend-for-registration (buffer-file-name)) | 916 | (list (vc-backend-for-registration (buffer-file-name)) |
| 917 | (list buffer-file-name) | 917 | (list buffer-file-name) |
| 918 | (list buffer-file-name) | 918 | (list buffer-file-name) |
| 919 | (when state-model-only-files 'unregistered) | 919 | (when state-model-only-files 'unregistered) |
| 920 | nil) | 920 | nil) |
| 921 | (list (vc-get-backend-for-registration (buffer-file-name)) | 921 | (list (vc-backend-for-registration (buffer-file-name)) |
| 922 | (list buffer-file-name)))) | 922 | (list buffer-file-name)))) |
| 923 | (t (error "No fileset is available here"))))) | 923 | (t (error "No fileset is available here"))))) |
| 924 | 924 | ||