;ELC ;;; compiled by jwz@thalidomide on Wed Dec 29 01:04:59 1993 ;;; from file /th/jwz/emacs19/lisp/pcl-cvs/pcl-cvs-lucid.el ;;; emacs version 19.9 Lucid (beta8). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "!!MM # #!!!!\"!\"!\"M" [require pcl-cvs boundp cvs-menu ("CVS Commands" ["Find File" cvs-mode-find-file t] ["Find File Other Window" cvs-mode-find-file-other-window t] ["Interactively Merge (emerge)" cvs-mode-emerge t] ["Diff against Repository" cvs-mode-diff-cvs t] ["Diff against Backup Version" cvs-mode-diff-backup t] "----" ["Commit Changes to Repository" cvs-mode-commit t] ["Revert File from Repository" cvs-mode-undo-local-changes t] ["Add File to Repository" cvs-mode-add t] ["Remove File from Repository" cvs-mode-remove-file t] ["Ignore File" cvs-mode-ignore t] ["Hide File" cvs-mode-acknowledge t] ["Hide Handled Files" cvs-mode-remove-handled t] "----" ["Add ChangeLog Entry" cvs-mode-add-change-log-entry-other-window t] ["Show CVS Log" cvs-mode-log t] ["Show CVS Status" cvs-mode-status t] "----" ["Mark File" cvs-mode-mark t] ["Unmark File" cvs-mode-unmark t] ["Mark All Files" cvs-mode-mark-all-files t] ["Unmark All Files" cvs-mode-unmark-all-files t] "----" ["Quit" bury-buffer t]) #[(e) " !y !!!\n!" [mouse-set-point e 0 cvs-update-running error "CVS update is running" looking-at "^[* ] " "No CVS file line here" popup-menu cvs-menu] 2 nil "e"] cvs-mouse-find-file #[(e) " !y !!!`!" [mouse-set-point e 0 cvs-update-running error "CVS update is running" looking-at "^[* ] " "No CVS file line here" cvs-mode-find-file] 2 nil "e"] define-key cvs-mode-map button3 button2 make-face cvs-header-face cvs-filename-face cvs-status-face face-differs-from-default-p copy-face italic bold bold-italic pcl-mode-motion-highlight-line #[(event) " !\n! ! qby!, !" [event-window event window window-buffer buffer event-point point 0 looking-at "^[* ] " mode-motion-highlight-line] 3]] 4) (defconst pcl-cvs-font-lock-keywords '(("^In directory \\(.+\\)$" 1 cvs-header-face) ("^[* ] \\w+ +\\(ci\\)" 1 cvs-status-face) ("^[* ] \\(Conflict\\|Merged\\)" 1 cvs-status-face) ("^[* ] \\w+ +\\(ci +\\)?\\(.+\\)$" 2 cvs-filename-face)) "\ Patterns to highlight in the *cvs* buffer.") (byte-code "M\"" [pcl-cvs-fontify #[nil "! \" !! A#!L!" [require mode-motion pcl-mode-motion-highlight-line mode-motion-hook current-menubar assoc "CVS" set-buffer-menubar copy-sequence add-menu nil cvs-menu make-local-variable font-lock-keywords pcl-cvs-font-lock-keywords font-lock-mode 1] 4] add-hook cvs-mode-hook] 3)