Mercurial > emacs
comparison lisp/pcvs.el @ 105196:d991506f9286
* menu-bar.el (list-buffers-directory): Add docstring.
Make automatically buffer-local.
* dired.el (dired-mode):
* files.el (cd-absolute):
* pcvs.el (cvs-temp-buffer):
* pcvs-util.el (cvs-get-buffer-create):
* shell.el (shell-mode):
* vc-dir.el (vc-dir-mode):
Don't make `list-buffers-directory' buffer local.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Fri, 25 Sep 2009 04:35:14 +0000 |
parents | 065958ebbf6d |
children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
105195:5b4bbf79ac2a | 105196:d991506f9286 |
---|---|
397 (erase-buffer)) | 397 (erase-buffer)) |
398 (set (make-local-variable 'cvs-buffer) cvs-buf) | 398 (set (make-local-variable 'cvs-buffer) cvs-buf) |
399 ;;(cvs-minor-mode 1) | 399 ;;(cvs-minor-mode 1) |
400 (let ((lbd list-buffers-directory)) | 400 (let ((lbd list-buffers-directory)) |
401 (if (fboundp mode) (funcall mode) (fundamental-mode)) | 401 (if (fboundp mode) (funcall mode) (fundamental-mode)) |
402 (when lbd (set (make-local-variable 'list-buffers-directory) lbd))) | 402 (when lbd (setq list-buffers-directory lbd))) |
403 (cvs-minor-mode 1) | 403 (cvs-minor-mode 1) |
404 ;;(set (make-local-variable 'cvs-buffer) cvs-buf) | 404 ;;(set (make-local-variable 'cvs-buffer) cvs-buf) |
405 (if normal | 405 (if normal |
406 (buffer-enable-undo) | 406 (buffer-enable-undo) |
407 (setq buffer-read-only t) | 407 (setq buffer-read-only t) |
1454 ;; displayed in the wrong minibuffer). | 1454 ;; displayed in the wrong minibuffer). |
1455 (cvs-mode!) | 1455 (cvs-mode!) |
1456 (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup)) | 1456 (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup)) |
1457 (setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist))) | 1457 (setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist))) |
1458 'log-edit))) | 1458 'log-edit))) |
1459 (funcall setupfun 'cvs-do-commit setup | 1459 (funcall setupfun 'cvs-do-commit setup |
1460 '((log-edit-listfun . cvs-commit-filelist) | 1460 '((log-edit-listfun . cvs-commit-filelist) |
1461 (log-edit-diff-function . cvs-mode-diff)) buf) | 1461 (log-edit-diff-function . cvs-mode-diff)) buf) |
1462 (set (make-local-variable 'cvs-minor-wrap-function) 'cvs-commit-minor-wrap) | 1462 (set (make-local-variable 'cvs-minor-wrap-function) 'cvs-commit-minor-wrap) |
1463 (run-hooks 'cvs-mode-commit-hook))) | 1463 (run-hooks 'cvs-mode-commit-hook))) |
1464 | 1464 |
1519 'log-edit))) | 1519 'log-edit))) |
1520 (with-current-buffer buf | 1520 (with-current-buffer buf |
1521 ;; Set the filename before, so log-edit can correctly setup its | 1521 ;; Set the filename before, so log-edit can correctly setup its |
1522 ;; log-edit-initial-files variable. | 1522 ;; log-edit-initial-files variable. |
1523 (set (make-local-variable 'cvs-edit-log-files) (list file))) | 1523 (set (make-local-variable 'cvs-edit-log-files) (list file))) |
1524 (funcall setupfun 'cvs-do-edit-log nil | 1524 (funcall setupfun 'cvs-do-edit-log nil |
1525 '((log-edit-listfun . cvs-edit-log-filelist) | 1525 '((log-edit-listfun . cvs-edit-log-filelist) |
1526 (log-edit-diff-function . cvs-mode-diff)) | 1526 (log-edit-diff-function . cvs-mode-diff)) |
1527 buf) | 1527 buf) |
1528 (when text (erase-buffer) (insert text)) | 1528 (when text (erase-buffer) (insert text)) |
1529 (set (make-local-variable 'cvs-edit-log-revision) rev) | 1529 (set (make-local-variable 'cvs-edit-log-revision) rev) |