all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* PCL-CVS: M-x cvs-update vs. key binding in *cvs* buffer
@ 2007-08-20 19:22 Reiner Steib
  2007-08-21 15:22 ` Stefan Monnier
  0 siblings, 1 reply; 5+ messages in thread
From: Reiner Steib @ 2007-08-20 19:22 UTC (permalink / raw)
  To: emacs-devel; +Cc: Stefan Monnier

Hi,

`M-x cvs-update RET' prompts for a directory and creates a *cvs*
buffer.  Do `M-x cvs-update RET' in the *cvs* buffer.  Again, it
prompts for a directory.

Now eval (global-set-key (kbd "C-c v u") 'cvs-update).  Then, when
pressing `C-c v u' in the *cvs* buffer, it won't ask for a directory.

I'd expect `cvs-update' to behave the same, no matter how it is called
(M-x vs. key binding).

It seems that `cvs-query-directory' tries to figure out if it was
called via M-x.  But I don't quite understand the purpose.

--8<---------------cut here---------------start------------->8---
(defun cvs-query-directory (msg)
  ;; last-command-char = ?\r hints that the command was run via M-x
  (if (and (cvs-buffer-p)

	   (not current-prefix-arg)
	   (not (eq last-command-char ?\r)))
      default-directory
    (read-directory-name msg nil default-directory nil)))
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2007-08-25 12:27 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2007-08-20 19:22 PCL-CVS: M-x cvs-update vs. key binding in *cvs* buffer Reiner Steib
2007-08-21 15:22 ` Stefan Monnier
2007-08-22 20:07   ` Reiner Steib
2007-08-22 20:29     ` Stefan Monnier
2007-08-25 12:27       ` Reiner Steib

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.