/[emacs]/emacs/lisp/vc-hooks.el
ViewVC logotype

Diff of /emacs/lisp/vc-hooks.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.145 by spiegel, Thu Sep 5 06:31:11 2002 UTC revision 1.146 by lektu, Thu Oct 17 15:46:06 2002 UTC
# Line 170  VC commands are globally reachable under Line 170  VC commands are globally reachable under
170    
171  (defun vc-find-backend-function (backend fun)  (defun vc-find-backend-function (backend fun)
172    "Return BACKEND-specific implementation of FUN.    "Return BACKEND-specific implementation of FUN.
173  If there is no such implementation, return the default implementation;  If there is no such implementation, return the default implementation;
174  if that doesn't exist either, return nil."  if that doesn't exist either, return nil."
175    (let ((f (vc-make-backend-sym backend fun)))    (let ((f (vc-make-backend-sym backend fun)))
176      (if (fboundp f) f      (if (fboundp f) f
# Line 217  It is usually called via the `vc-call' m Line 217  It is usually called via the `vc-call' m
217    
218  Optional argument LIMIT is a regexp.  If present, the file is inserted  Optional argument LIMIT is a regexp.  If present, the file is inserted
219  in chunks of size BLOCKSIZE (default 8 kByte), until the first  in chunks of size BLOCKSIZE (default 8 kByte), until the first
220  occurrence of LIMIT is found.  Anything from the start of that occurence  occurrence of LIMIT is found.  Anything from the start of that occurrence
221  to the end of the buffer is then deleted.  The function returns  to the end of the buffer is then deleted.  The function returns
222  non-nil if FILE exists and its contents were successfully inserted."  non-nil if FILE exists and its contents were successfully inserted."
223    (erase-buffer)    (erase-buffer)
# Line 268  backend is tried first." Line 268  backend is tried first."
268               (and (vc-call-backend b 'registered file)               (and (vc-call-backend b 'registered file)
269                    (vc-file-setprop file 'vc-backend b)                    (vc-file-setprop file 'vc-backend b)
270                    (throw 'found t)))                    (throw 'found t)))
271             (if (or (not backend) (eq backend 'none))             (if (or (not backend) (eq backend 'none))
272                 vc-handled-backends                 vc-handled-backends
273               (cons backend vc-handled-backends))))               (cons backend vc-handled-backends))))
274          ;; File is not registered.          ;; File is not registered.
# Line 351  For registered files, the value returned Line 351  For registered files, the value returned
351    
352    USER               The current version of the working file is locked by    USER               The current version of the working file is locked by
353                       some other USER (a string).                       some other USER (a string).
354                
355    'needs-patch       The file has not been edited by the user, but there is    'needs-patch       The file has not been edited by the user, but there is
356                       a more recent version on the current branch stored                       a more recent version on the current branch stored
357                       in the master file.                       in the master file.
# Line 501  a regexp for matching all such backup fi Line 501  a regexp for matching all such backup fi
501    (if regexp    (if regexp
502        (concat (regexp-quote (file-name-nondirectory file))        (concat (regexp-quote (file-name-nondirectory file))
503                "\\.~[0-9.]+" (unless manual "\\.") "~")                "\\.~[0-9.]+" (unless manual "\\.") "~")
504      (expand-file-name (concat (file-name-nondirectory file)      (expand-file-name (concat (file-name-nondirectory file)
505                                ".~" (or rev (vc-workfile-version file))                                ".~" (or rev (vc-workfile-version file))
506                                (unless manual ".") "~")                                (unless manual ".") "~")
507                        (file-name-directory file))))                        (file-name-directory file))))
508    
# Line 658  current, and kill the buffer that visits Line 658  current, and kill the buffer that visits
658                         (get-file-buffer                         (get-file-buffer
659                          (abbreviate-file-name                          (abbreviate-file-name
660                           (file-chase-links buffer-file-name))))                           (file-chase-links buffer-file-name))))
661                          
662                     (vc-follow-link)                     (vc-follow-link)
663                     (message "Followed link to %s" buffer-file-name)                     (message "Followed link to %s" buffer-file-name)
664                     (vc-find-file-hook))                     (vc-find-file-hook))

Legend:
Removed from v.1.145  
changed lines
  Added in v.1.146

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26