/[emacs]/emacs/lisp/pcvs.el
ViewVC logotype

Diff of /emacs/lisp/pcvs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by monnier, Tue Sep 3 01:40:29 2002 UTC revision 1.40 by monnier, Fri Sep 13 18:25:26 2002 UTC
# Line 1888  This command ignores files that are not Line 1888  This command ignores files that are not
1888  With a prefix, opens the buffer in an OTHER window."  With a prefix, opens the buffer in an OTHER window."
1889    (interactive (list last-input-event current-prefix-arg))    (interactive (list last-input-event current-prefix-arg))
1890    (when (ignore-errors (mouse-set-point e) t)   ;for invocation via the mouse    (when (ignore-errors (mouse-set-point e) t)   ;for invocation via the mouse
1891      (unless (memq (get-text-property (point) 'face)      (unless (memq (get-text-property (1- (line-end-position)) 'face)
1892                    '(cvs-header-face cvs-filename-face))                    '(cvs-header-face cvs-filename-face))
1893        (error "Not a file name")))        (error "Not a file name")))
1894    (cvs-mode!    (cvs-mode!

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26