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) |
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 |
|
|