# HG changeset patch # User Gerd Moellmann # Date 953161756 0 # Node ID fcaa686e3b46ed38f2110728edf6964dd6a54beb # Parent b12b7a2e2bdba76f5c87a807461531a4c182ee4e *** empty log message *** diff -r b12b7a2e2bdb -r fcaa686e3b46 lisp/cus-load.el --- a/lisp/cus-load.el Wed Mar 15 21:29:58 2000 +0000 +++ b/lisp/cus-load.el Wed Mar 15 23:09:16 2000 +0000 @@ -267,7 +267,7 @@ (put 'ebnf-optimization 'custom-loads '("ebnf2ps")) (put 'apropos 'custom-loads '("apropos")) (put 'gomoku 'custom-loads '("gomoku")) -(put 'tools 'custom-loads '("add-log" "calculator" "compare-w" "diff-mode" "diff" "ediff" "elide-head" "emerge" "gud" "rcompile" "smerge-mode" "speedbar" "tempo" "tooltip" "vc" "which-func" "copyright" "compile" "etags" "glasses" "make-mode")) +(put 'tools 'custom-loads '("add-log" "calculator" "compare-w" "diff-mode" "diff" "ediff" "elide-head" "emerge" "gud" "pcvs-defs" "rcompile" "smerge-mode" "speedbar" "tempo" "tooltip" "vc" "which-func" "copyright" "compile" "etags" "glasses" "make-mode")) (put 'gnus-topic 'custom-loads '("gnus-topic")) (put 'sgml 'custom-loads '("sgml-mode")) (put 'keyboard 'custom-loads '("simple" "chistory" "type-break")) @@ -299,6 +299,7 @@ (put 'facemenu 'custom-loads '("facemenu")) (put 'pp 'custom-loads '("pp")) (put 'two-column 'custom-loads '("two-column")) +(put 'log-edit 'custom-loads '("log-edit")) (put 'message-forwarding 'custom-loads '("message")) (put 'message-faces 'custom-loads '("message")) (put 'environment 'custom-loads '("cus-edit" "dired" "faces" "dos-vars")) @@ -323,6 +324,7 @@ (put 'menu 'custom-loads '("faces" "tmm" "easymenu")) (put 'vhdl-highlight 'custom-loads '("vhdl-mode")) (put 'widgets 'custom-loads '("wid-browse" "wid-edit")) +(put 'log-view 'custom-loads '("log-view")) (put 'PostScript 'custom-loads '("ps-mode")) (put 'abbrev-mode 'custom-loads '("abbrev" "cus-edit" "mailabbrev")) (put 'earcon 'custom-loads '("earcon")) @@ -348,6 +350,7 @@ (put 'gnus-group-levels 'custom-loads '("gnus-group" "gnus-start" "gnus")) (put 'cperl 'custom-loads '("cperl-mode")) (put 'files 'custom-loads '("files" "ange-ftp" "autoinsert" "autorevert" "cus-edit" "filecache" "recentf" "shadow")) +(put 'pcl-cvs 'custom-loads '("cvs-status" "log-edit" "log-view" "pcvs-defs" "pcvs-info" "pcvs-parse" "pcvs")) (put 'rmail-files 'custom-loads '("rmail")) (put 'gnus-summary-format 'custom-loads '("gnus-sum" "gnus")) (put 'windmove 'custom-loads '("windmove")) @@ -598,8 +601,6 @@ (custom-put-if-not 'custom-face-default-form 'standard-value t) (custom-put-if-not 'hexl-follow-ascii 'custom-version "20.3") (custom-put-if-not 'hexl-follow-ascii 'standard-value t) -(custom-put-if-not 'mouse-avoidance-mode 'custom-version "20.3") -(custom-put-if-not 'mouse-avoidance-mode 'standard-value t) (custom-put-if-not 'browse-url-filename-alist 'custom-version "20.3") (custom-put-if-not 'browse-url-filename-alist 'standard-value t) (custom-put-if-not 'change-log-version-info-enabled 'custom-version "21.1") @@ -674,8 +675,6 @@ (custom-put-if-not 'rmail-file-name 'standard-value t) (custom-put-if-not 'cperl 'custom-version "20.3") (custom-put-if-not 'cperl 'group-documentation "Major mode for editing Perl code.") -(custom-put-if-not 'focus-follows-mouse 'custom-version "20.3") -(custom-put-if-not 'focus-follows-mouse 'standard-value t) (custom-put-if-not 'fortran-comment-line-start-skip 'custom-version "21.1") (custom-put-if-not 'fortran-comment-line-start-skip 'standard-value t) (custom-put-if-not 'checkdoc 'custom-version "20.3") @@ -741,7 +740,7 @@ (custom-put-if-not 'eval-expression-print-level 'custom-version "21.1") (custom-put-if-not 'eval-expression-print-level 'standard-value t) -(defvar custom-versions-load-alist '(("20.3.3" "dos-vars") ("20.4" "sh-script" "help" "compile") ("21.1" "debug" "paths" "sgml-mode" "fortran" "etags" "cus-edit" "add-log" "find-func" "simple") ("20.3" "desktop" "easymenu" "hscroll" "dabbrev" "ffap" "rmail" "paren" "mailabbrev" "frame" "uce" "mouse" "diary-lib" "sendmail" "debug" "avoid" "hexl" "vcursor" "vc" "compile" "etags" "help" "browse-url" "add-log" "find-func" "vc-hooks" "cus-edit" "replace")) +(defvar custom-versions-load-alist '(("20.3.3" "dos-vars") ("20.4" "sh-script" "help" "compile") ("21.1" "debug" "paths" "sgml-mode" "fortran" "etags" "cus-edit" "add-log" "find-func" "simple") ("20.3" "desktop" "easymenu" "hscroll" "dabbrev" "ffap" "rmail" "paren" "mailabbrev" "uce" "mouse" "diary-lib" "sendmail" "debug" "hexl" "vcursor" "vc" "compile" "etags" "help" "browse-url" "add-log" "find-func" "vc-hooks" "cus-edit" "replace")) "For internal use by custom.") (provide 'cus-load) diff -r b12b7a2e2bdb -r fcaa686e3b46 lisp/loaddefs.el --- a/lisp/loaddefs.el Wed Mar 15 21:29:58 2000 +0000 +++ b/lisp/loaddefs.el Wed Mar 15 23:09:16 2000 +0000 @@ -504,8 +504,8 @@ ;;;*** -;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (14447 -;;;;;; 15307)) +;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (14539 +;;;;;; 44524)) ;;; Generated autoloads from arc-mode.el (autoload (quote archive-mode) "arc-mode" "\ @@ -725,10 +725,20 @@ ;;;*** -;;;### (autoloads (mouse-avoidance-mode) "avoid" "avoid.el" (14263 -;;;;;; 35271)) +;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid" +;;;;;; "avoid.el" (14539 53646)) ;;; Generated autoloads from avoid.el +(defvar mouse-avoidance-mode nil "\ +Activate mouse avoidance mode. +See function `mouse-avoidance-mode' for possible values. +Setting this variable directly does not take effect; +use either \\[customize] or the function `mouse-avoidance-mode'.") + +(custom-add-to-group (quote avoid) (quote mouse-avoidance-mode) (quote custom-variable)) + +(custom-add-load (quote mouse-avoidance-mode) (quote avoid)) + (autoload (quote mouse-avoidance-mode) "avoid" "\ Set cursor avoidance mode to MODE. MODE should be one of the symbols `banish', `exile', `jump', `animate', @@ -2292,7 +2302,7 @@ ;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program ;;;;;; declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el" -;;;;;; (14236 19568)) +;;;;;; (14543 61454)) ;;; Generated autoloads from international/ccl.el (autoload (quote ccl-compile) "ccl" "\ @@ -3323,7 +3333,7 @@ ;;;;;; customize-option-other-window customize-changed-options customize-option ;;;;;; customize-group-other-window customize-group customize customize-save-variable ;;;;;; customize-set-variable customize-set-value) "cus-edit" "cus-edit.el" -;;;;;; (14505 58892)) +;;;;;; (14542 5199)) ;;; Generated autoloads from cus-edit.el (add-hook 'same-window-regexps "\\`\\*Customiz.*\\*\\'") @@ -3409,7 +3419,7 @@ If SYMBOL is nil, customize all faces." t nil) (autoload (quote customize-face-other-window) "cus-edit" "\ -Show customization buffer for FACE in other window." t nil) +Show customization buffer for face SYMBOL in other window." t nil) (autoload (quote customize-customized) "cus-edit" "\ Customize all user options set since the last save in this session." t nil) @@ -3502,6 +3512,14 @@ ;;;*** +;;;### (autoloads nil "cvs-status" "cvs-status.el" (14537 49316)) +;;; Generated autoloads from cvs-status.el + +(autoload (quote cvs-status-mode) "cvs-status" "\ +Mode used for cvs status output." t) + +;;;*** + ;;;### (autoloads (global-cwarn-mode turn-on-cwarn-mode cwarn-mode) ;;;;;; "cwarn" "progmodes/cwarn.el" (14431 15379)) ;;; Generated autoloads from progmodes/cwarn.el @@ -4578,8 +4596,8 @@ ;;;*** -;;;### (autoloads (define-minor-mode) "easy-mmode" "emacs-lisp/easy-mmode.el" -;;;;;; (14398 37514)) +;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap define-minor-mode) +;;;;;; "easy-mmode" "emacs-lisp/easy-mmode.el" (14539 53684)) ;;; Generated autoloads from emacs-lisp/easy-mmode.el (defalias (quote easy-mmode-define-minor-mode) (quote define-minor-mode)) @@ -4598,6 +4616,10 @@ BODY contains code that will be executed each time the mode is (dis)activated. It will be executed after any toggling but before running the hooks." nil (quote macro)) +(autoload (quote easy-mmode-defmap) "easy-mmode" nil nil (quote macro)) + +(autoload (quote easy-mmode-defsyntax) "easy-mmode" nil nil (quote macro)) + ;;;*** ;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define @@ -5382,7 +5404,7 @@ ;;;*** ;;;### (autoloads (enriched-decode enriched-encode enriched-mode) -;;;;;; "enriched" "enriched.el" (14513 4487)) +;;;;;; "enriched" "enriched.el" (14539 53665)) ;;; Generated autoloads from enriched.el (autoload (quote enriched-mode) "enriched" "\ @@ -6019,7 +6041,7 @@ ;;;;;; facemenu-remove-special facemenu-remove-all facemenu-remove-face-props ;;;;;; facemenu-set-read-only facemenu-set-intangible facemenu-set-invisible ;;;;;; facemenu-set-face-from-menu facemenu-set-background facemenu-set-foreground -;;;;;; facemenu-set-face) "facemenu" "facemenu.el" (14529 14394)) +;;;;;; facemenu-set-face) "facemenu" "facemenu.el" (14539 53665)) ;;; Generated autoloads from facemenu.el (define-key global-map "\M-g" 'facemenu-keymap) (autoload 'facemenu-keymap "facemenu" "Keymap for face-changing commands." t 'keymap) @@ -6613,7 +6635,7 @@ ;;;### (autoloads (font-lock-fontify-buffer global-font-lock-mode ;;;;;; global-font-lock-mode font-lock-remove-keywords font-lock-add-keywords ;;;;;; turn-on-font-lock font-lock-mode) "font-lock" "font-lock.el" -;;;;;; (14535 40196)) +;;;;;; (14539 53666)) ;;; Generated autoloads from font-lock.el (defvar font-lock-mode-hook nil "\ @@ -6804,7 +6826,7 @@ ;;;*** ;;;### (autoloads (fortran-mode fortran-tab-mode-default) "fortran" -;;;;;; "progmodes/fortran.el" (14477 53257)) +;;;;;; "progmodes/fortran.el" (14537 23071)) ;;; Generated autoloads from progmodes/fortran.el (defvar fortran-tab-mode-default nil "\ @@ -7245,7 +7267,7 @@ ;;;*** ;;;### (autoloads (hanoi-unix-64 hanoi-unix hanoi) "hanoi" "play/hanoi.el" -;;;;;; (14268 8415)) +;;;;;; (14539 53714)) ;;; Generated autoloads from play/hanoi.el (autoload (quote hanoi) "hanoi" "\ @@ -8212,7 +8234,7 @@ ;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file ;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el" -;;;;;; (14272 15606)) +;;;;;; (14539 53666)) ;;; Generated autoloads from info-look.el (autoload (quote info-lookup-reset) "info-look" "\ @@ -9046,6 +9068,28 @@ ;;;*** +;;;### (autoloads (log-edit) "log-edit" "log-edit.el" (14537 49316)) +;;; Generated autoloads from log-edit.el + +(autoload (quote log-edit) "log-edit" "\ +Setup a buffer to enter a log message. +The buffer will be put in `log-edit-mode'. +If SETUP is non-nil, the buffer is then erased and `log-edit-hook' is run. +Mark and point will be set around the entire contents of the +buffer so that it is easy to kill the contents of the buffer with \\[kill-region]. +Once you're done editing the message, pressing \\[log-edit-done] will call +`log-edit-done' which will end up calling CALLBACK to do the actual commit." nil nil) + +;;;*** + +;;;### (autoloads nil "log-view" "log-view.el" (14537 49316)) +;;; Generated autoloads from log-view.el + +(autoload (quote log-view-mode) "log-view" "\ +Major mode for browsing CVS log output." t) + +;;;*** + ;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer ;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (14440 ;;;;;; 46009)) @@ -9468,7 +9512,7 @@ ;;;*** -;;;### (autoloads (man-follow man) "man" "man.el" (14252 7234)) +;;;### (autoloads (man-follow man) "man" "man.el" (14539 53667)) ;;; Generated autoloads from man.el (defalias (quote manual-entry) (quote man)) @@ -10661,6 +10705,54 @@ ;;;*** +;;;### (autoloads (cvs-dired-use-hook cvs-status cvs-update cvs-examine +;;;;;; cvs-checkout) "pcvs" "pcvs.el" (14537 49318)) +;;; Generated autoloads from pcvs.el + +(autoload (quote cvs-checkout) "pcvs" "\ +Run a 'cvs checkout MODULES' in DIR. +Feed the output to a *cvs* buffer, display it in the current window, +and run `cvs-mode' on it. + +With a prefix argument, prompt for cvs FLAGS to use." t nil) + +(autoload (quote cvs-examine) "pcvs" "\ +Run a `cvs -n update' in the specified DIRECTORY. +That is, check what needs to be done, but don't change the disc. +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. +A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]), + prevents reuse of an existing *cvs* buffer. +Optional argument NOSHOW if non-nil means not to display the buffer." t nil) + +(autoload (quote cvs-update) "pcvs" "\ +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. +A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]), + prevents reuse of an existing *cvs* buffer." t nil) + +(autoload (quote cvs-status) "pcvs" "\ +Run a `cvs status' 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. +A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]), + prevents reuse of an existing *cvs* buffer. +Optional argument NOSHOW if non-nil means not to display the buffer." t nil) + +(add-to-list (quote completion-ignored-extensions) "CVS/") + +(defvar cvs-dired-use-hook (quote (4)) "\ +Whether or not opening a CVS directory should run PCL-CVS. +NIL means never do it. +ALWAYS means to always do it unless a prefix argument is given to the + command that prompted the opening of the directory. +Anything else means to do it only if the prefix arg is equal to this value.") + +(progn (defun cvs-dired-noselect (dir) "Run `cvs-examine' if DIR is a CVS administrative directory.\nThe exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp dir) (setq dir (directory-file-name dir)) (when (and (string= "CVS" (file-name-nondirectory dir)) (file-readable-p (expand-file-name "Entries" dir)) cvs-dired-use-hook (if (eq cvs-dired-use-hook (quote always)) (not current-prefix-arg) (equal current-prefix-arg cvs-dired-use-hook))) (save-excursion (cvs-examine (file-name-directory dir) t t)))))) + +;;;*** + ;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el" ;;;;;; (13639 61036)) ;;; Generated autoloads from progmodes/perl-mode.el @@ -10993,7 +11085,7 @@ ;;;;;; ps-spool-region ps-spool-buffer-with-faces ps-spool-buffer ;;;;;; ps-print-region-with-faces ps-print-region ps-print-buffer-with-faces ;;;;;; ps-print-buffer ps-print-customize ps-paper-type) "ps-print" -;;;;;; "ps-print.el" (14454 86)) +;;;;;; "ps-print.el" (14543 36973)) ;;; Generated autoloads from ps-print.el (defvar ps-paper-type (quote letter) "\ @@ -11343,7 +11435,7 @@ ;;;*** ;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el" -;;;;;; (14536 1936)) +;;;;;; (14539 41135)) ;;; Generated autoloads from emacs-lisp/re-builder.el (autoload (quote re-builder) "re-builder" "\ @@ -11352,8 +11444,8 @@ ;;;*** ;;;### (autoloads (recentf-open-more-files recentf-cleanup recentf-edit-list -;;;;;; recentf-save-list recentf-mode) "recentf" "recentf.el" (14533 -;;;;;; 31505)) +;;;;;; recentf-save-list recentf-mode) "recentf" "recentf.el" (14539 +;;;;;; 49146)) ;;; Generated autoloads from recentf.el (autoload (quote recentf-mode) "recentf" "\ @@ -11378,10 +11470,11 @@ ;;;*** -;;;### (autoloads (clear-rectangle string-rectangle delete-whitespace-rectangle -;;;;;; open-rectangle insert-rectangle yank-rectangle kill-rectangle -;;;;;; extract-rectangle delete-extract-rectangle delete-rectangle -;;;;;; move-to-column-force) "rect" "rect.el" (14273 29571)) +;;;### (autoloads (clear-rectangle replace-rectangle string-rectangle +;;;;;; delete-whitespace-rectangle open-rectangle insert-rectangle +;;;;;; yank-rectangle kill-rectangle extract-rectangle delete-extract-rectangle +;;;;;; delete-rectangle move-to-column-force) "rect" "rect.el" (14537 +;;;;;; 23030)) ;;; Generated autoloads from rect.el (autoload (quote move-to-column-force) "rect" "\ @@ -11461,6 +11554,9 @@ The left edge of the rectangle specifies the column for insertion. This command does not delete or overwrite any existing text." t nil) +(autoload (quote replace-rectangle) "rect" "\ +Like `string-rectangle', but replace the original region." t nil) + (autoload (quote clear-rectangle) "rect" "\ Blank out the region-rectangle. The text previously in the region is overwritten with blanks. @@ -13853,7 +13949,7 @@ ;;;*** ;;;### (autoloads (texinfo-mode) "texinfo" "textmodes/texinfo.el" -;;;;;; (14302 8279)) +;;;;;; (14536 60906)) ;;; Generated autoloads from textmodes/texinfo.el (autoload (quote texinfo-mode) "texinfo" "\