diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-10-01 18:48:35 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-10-01 18:48:35 +0000 |
| commit | 3dcdb054a0ed8e339c1059fc19bdb68396815597 (patch) | |
| tree | ffac83392976729958e50928a30b4f1c8accfcc1 /lisp/pcvs.el | |
| parent | a6cadf53745dae89449bf7f700756575b23c27c0 (diff) | |
| download | emacs-3dcdb054a0ed8e339c1059fc19bdb68396815597.tar.gz | |
(cvs-mode-find-file): Look up font-lock-face so it also
works when font-lock is turned off.
Diffstat (limited to 'lisp/pcvs.el')
| -rw-r--r-- | lisp/pcvs.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 27e340e0343..4bfe1d8f6cd 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -14,7 +14,7 @@ ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu ;; Keywords: CVS, version control, release management -;; Revision: $Id: pcvs.el,v 1.40 2002/09/13 18:25:26 monnier Exp $ +;; Revision: $Id: pcvs.el,v 1.41 2002/09/13 19:09:45 monnier Exp $ ;; This file is part of GNU Emacs. @@ -976,9 +976,11 @@ Optional argument NOSHOW if non-nil means not to display the buffer." (defun cvs-update (directory flags) "Run a `cvs update' in the current working DIRECTORY. Feed the output to a *cvs* buffer and run `cvs-mode' on it. -With a prefix argument, prompt for a directory and cvs FLAGS to use. +With a \\[universal-argument] prefix argument, prompt for a directory to use. A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]), - prevents reuse of an existing *cvs* buffer." + prevents reuse of an existing *cvs* buffer. +The prefix is also passed to `cvs-flags-query' to select the FLAGS + passed to cvs." (interactive (list (cvs-query-directory "CVS Update (directory): ") (cvs-flags-query 'cvs-update-flags "cvs update flags"))) (when (eq flags t) @@ -1888,7 +1890,7 @@ This command ignores files that are not flagged as `Unknown'." With a prefix, opens the buffer in an OTHER window." (interactive (list last-input-event current-prefix-arg)) (when (ignore-errors (mouse-set-point e) t) ;for invocation via the mouse - (unless (memq (get-text-property (1- (line-end-position)) 'face) + (unless (memq (get-text-property (1- (line-end-position)) 'font-lock-face) '(cvs-header-face cvs-filename-face)) (error "Not a file name"))) (cvs-mode! |