/[emacs]/emacs/lisp/pcvs.el
ViewVC logotype

Diff of /emacs/lisp/pcvs.el

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

revision 1.80 by monnier, Tue Apr 26 20:35:51 2005 UTC revision 1.81 by monnier, Fri May 6 22:19:48 2005 UTC
# Line 1438  The POSTPROC specified there (typically Line 1438  The POSTPROC specified there (typically
1438    ;; displayed in the wrong minibuffer).    ;; displayed in the wrong minibuffer).
1439    (cvs-mode!)    (cvs-mode!)
1440    (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup))    (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup))
         (lbd list-buffers-directory)  
1441          (setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist)))          (setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist)))
1442                        'log-edit)))                        'log-edit)))
1443      (funcall setupfun 'cvs-do-commit setup 'cvs-commit-filelist buf)      (funcall setupfun 'cvs-do-commit setup 'cvs-commit-filelist buf)
1444      (set (make-local-variable 'cvs-minor-wrap-function) 'cvs-commit-minor-wrap)      (set (make-local-variable 'cvs-minor-wrap-function) 'cvs-commit-minor-wrap)
     (set (make-local-variable 'list-buffers-directory) lbd)  
1445      (run-hooks 'cvs-mode-commit-hook)))      (run-hooks 'cvs-mode-commit-hook)))
1446    
1447  (defun cvs-commit-minor-wrap (buf f)  (defun cvs-commit-minor-wrap (buf f)
# Line 1494  This is best called from a `log-view-mod Line 1492  This is best called from a `log-view-mod
1492    ;; displayed in the wrong minibuffer).    ;; displayed in the wrong minibuffer).
1493    (cvs-mode!)    (cvs-mode!)
1494    (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup))    (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup))
         (lbd list-buffers-directory)  
1495          (setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist)))          (setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist)))
1496                        'log-edit)))                        'log-edit)))
1497      (funcall setupfun 'cvs-do-edit-log nil 'cvs-edit-log-filelist buf)      (funcall setupfun 'cvs-do-edit-log nil 'cvs-edit-log-filelist buf)
1498      (when text (erase-buffer) (insert text))      (when text (erase-buffer) (insert text))
1499      (set (make-local-variable 'cvs-edit-log-revision) rev)      (set (make-local-variable 'cvs-edit-log-revision) rev)
1500      (set (make-local-variable 'cvs-minor-wrap-function) 'cvs-edit-log-minor-wrap)      (set (make-local-variable 'cvs-minor-wrap-function) 'cvs-edit-log-minor-wrap)
     (set (make-local-variable 'list-buffers-directory) lbd)  
1501      ;; (run-hooks 'cvs-mode-commit-hook)      ;; (run-hooks 'cvs-mode-commit-hook)
1502      ))      ))
1503    

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

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