/[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.52 by monnier, Thu May 1 00:46:41 2003 UTC revision 1.53 by sds, Fri May 9 15:59:02 2003 UTC
# Line 1901  With a prefix, opens the buffer in an OT Line 1901  With a prefix, opens the buffer in an OT
1901    (interactive (list last-input-event current-prefix-arg))    (interactive (list last-input-event current-prefix-arg))
1902    ;; If the event moves point, check that it moves it to a valid location.    ;; If the event moves point, check that it moves it to a valid location.
1903    (when (and (/= (point) (progn (ignore-errors (mouse-set-point e)) (point)))    (when (and (/= (point) (progn (ignore-errors (mouse-set-point e)) (point)))
1904               (memq (get-text-property (1- (line-end-position)) 'font-lock-face)               (not (memq (get-text-property (1- (line-end-position))
1905                     '(cvs-header-face cvs-filename-face)))                                             'font-lock-face)
1906                            '(cvs-header-face cvs-filename-face))))
1907      (error "Not a file name"))      (error "Not a file name"))
1908    (cvs-mode!    (cvs-mode!
1909     (lambda (&optional rev)     (lambda (&optional rev)

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

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