mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(cvs-mode-commit, cvs-mode-edit-log): Don't fiddle with

Browse Source 
list-buffers-directory.  This caused the *cvs-commit* buffer to be
sometimes mistakenly reused as a *cvs* buffer.
This commit is contained in:
Stefan Monnier 2005-05-06 22:19:48 +00:00
parent 7ec64183c1
commit 5f4d0dd97e
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2005-05-06 Stefan Monnier <monnier@iro.umontreal.ca>
* pcvs.el (cvs-mode-commit, cvs-mode-edit-log): Don't fiddle with
list-buffers-directory. This caused the *cvs-commit* buffer to be
sometimes mistakenly reused as a *cvs* buffer.
2005-05-07 Nick Roberts <nickrob@snap.net.nz>
* tooltip.el: Move code for GUD tooltips into gud.el.
@ -33,9 +39,9 @@
(gud-tooltip-original-filter, gud-tooltip-dereference)
(gud-tooltip-event, tooltip-toggle-gud-tips)
(gud-tooltip-process-output, gud-tooltip-print-command)
(gud-tooltip-tips): Moved from tooltip.el.
(gud-tooltip-tips): Move from tooltip.el.
* progmodes/gdb-ui.el (gdb-tooltip-print): Moved from tooltip.el.
* progmodes/gdb-ui.el (gdb-tooltip-print): Move from tooltip.el.
(gdb-cpp-define-alist-flags): Doc fix.
(gdb-set-gud-minor-mode-1): Only prepare GUD tooltips if
gud-tooltip-mode is t.

4
lisp/pcvs.el
View File

@ -1438,12 +1438,10 @@ The POSTPROC specified there (typically `log-edit') is then called,
;; displayed in the wrong minibuffer).
(cvs-mode!)
(let ((buf (cvs-temp-buffer "message" 'normal 'nosetup))
(lbd list-buffers-directory)
(setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist)))
'log-edit)))
(funcall setupfun 'cvs-do-commit setup 'cvs-commit-filelist buf)
(set (make-local-variable 'cvs-minor-wrap-function) 'cvs-commit-minor-wrap)
(set (make-local-variable 'list-buffers-directory) lbd)
(run-hooks 'cvs-mode-commit-hook)))
(defun cvs-commit-minor-wrap (buf f)
@ -1494,14 +1492,12 @@ This is best called from a `log-view-mode' buffer."
;; displayed in the wrong minibuffer).
(cvs-mode!)
(let ((buf (cvs-temp-buffer "message" 'normal 'nosetup))
(lbd list-buffers-directory)
(setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist)))
'log-edit)))
(funcall setupfun 'cvs-do-edit-log nil 'cvs-edit-log-filelist buf)
(when text (erase-buffer) (insert text))
(set (make-local-variable 'cvs-edit-log-revision) rev)
(set (make-local-variable 'cvs-minor-wrap-function) 'cvs-edit-log-minor-wrap)
(set (make-local-variable 'list-buffers-directory) lbd)
;; (run-hooks 'cvs-mode-commit-hook)
))