Mercurial > emacs

changeset 28288:739959bbed82

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Gerd Moellmann <gerd@gnu.org>
date Thu, 23 Mar 2000 15:09:56 +0000
parents 81439087220a
children 4b9d76092b0f
files lisp/cus-load.el lisp/loaddefs.el
diffstat 2 files changed, 76 insertions(+), 64 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-load.el	Thu Mar 23 13:56:58 2000 +0000
+++ b/lisp/cus-load.el	Thu Mar 23 15:09:56 2000 +0000
@@ -183,7 +183,7 @@
 (put 'idlwave-shell-initial-commands 'custom-loads '("idlw-shell"))
 (put 'tildify 'custom-loads '("tildify"))
 (put 'cperl-autoinsert-details 'custom-loads '("cperl-mode"))
-(put 'help 'custom-loads '("help" "apropos" "cus-edit" "help-macro" "info-look" "info" "man" "tooltip"))
+(put 'help 'custom-loads '("help-macro" "help" "apropos" "cus-edit" "info-look" "info" "man" "tooltip"))
 (put 'forms 'custom-loads '("forms"))
 (put 'widget-documentation 'custom-loads '("wid-edit"))
 (put 'gnus-score-various 'custom-loads '("gnus-score" "gnus"))
@@ -278,7 +278,7 @@
 (put 'rmail-summary 'custom-loads '("rmail" "rmailsum"))
 (put 'metamail 'custom-loads '("metamail"))
 (put 'winner 'custom-loads '("winner"))
-(put 'wp 'custom-loads '("cus-edit" "enriched" "lpr" "ps-print" "view" "ebnf2ps" "bib-mode" "nroff-mode" "refbib" "refer" "scribe" "tildify"))
+(put 'wp 'custom-loads '("view" "cus-edit" "enriched" "lpr" "ps-print" "ebnf2ps" "bib-mode" "nroff-mode" "refbib" "refer" "scribe" "tildify"))
 (put 'reftex-citation-support 'custom-loads '("reftex-vars"))
 (put 'gnus-summary-choose 'custom-loads '("gnus-sum"))
 (put 'widget-browse 'custom-loads '("wid-browse"))
@@ -290,7 +290,7 @@
 (put 'vhdl-highlight-faces 'custom-loads '("vhdl-mode"))
 (put 'which-func 'custom-loads '("which-func"))
 (put 'pc-select 'custom-loads '("pc-select"))
-(put 'i18n 'custom-loads '("cus-edit" "double" "ccl" "iso-acc" "iso-ascii" "ogonek"))
+(put 'i18n 'custom-loads '("ccl" "cus-edit" "double" "iso-acc" "iso-ascii" "ogonek"))
 (put 'sh 'custom-loads '("sh-script"))
 (put 'message-headers 'custom-loads '("message"))
 (put 'idlwave-code-formatting 'custom-loads '("idlwave"))
@@ -426,7 +426,7 @@
 (put 'message-sending 'custom-loads '("message"))
 (put 'archive-arc 'custom-loads '("arc-mode"))
 (put 'rmail-output 'custom-loads '("rmailout"))
-(put 'editing 'custom-loads '("simple" "indent" "paragraphs" "auto-show" "cus-edit" "faces" "outline" "hl-line" "hscroll" "vcursor" "view" "picture"))
+(put 'editing 'custom-loads '("simple" "view" "indent" "paragraphs" "auto-show" "cus-edit" "faces" "outline" "hl-line" "hscroll" "vcursor" "picture"))
 (put 'crisp 'custom-loads '("crisp"))
 (put 'nroff 'custom-loads '("nroff-mode"))
 (put 'executable 'custom-loads '("executable"))
--- a/lisp/loaddefs.el	Thu Mar 23 13:56:58 2000 +0000
+++ b/lisp/loaddefs.el	Thu Mar 23 15:09:56 2000 +0000
@@ -1310,7 +1310,7 @@
 ;;;;;;  browse-url-of-buffer browse-url-of-file browse-url-generic-program
 ;;;;;;  browse-url-save-file browse-url-netscape-display browse-url-new-window-p
 ;;;;;;  browse-url-browser-function) "browse-url" "net/browse-url.el"
-;;;;;;  (14477 53252))
+;;;;;;  (14554 2050))
 ;;; Generated autoloads from net/browse-url.el
 
 (defvar browse-url-browser-function (if (eq system-type (quote windows-nt)) (quote browse-url-default-windows-browser) (quote browse-url-netscape)) "\
@@ -3333,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"
-;;;;;;  (14545 22746))
+;;;;;;  (14552 48684))
 ;;; Generated autoloads from cus-edit.el
  (add-hook 'same-window-regexps "\\`\\*Customiz.*\\*\\'")
 
@@ -3512,11 +3512,12 @@
 
 ;;;***
 
-;;;### (autoloads nil "cvs-status" "cvs-status.el" (14537 49316))
+;;;### (autoloads (cvs-status-mode) "cvs-status" "cvs-status.el"
+;;;;;;  (14552 48684))
 ;;; Generated autoloads from cvs-status.el
 
 (autoload (quote cvs-status-mode) "cvs-status" "\
-Mode used for cvs status output." t)
+Mode used for cvs status output." t nil)
 
 ;;;***
 
@@ -3895,41 +3896,10 @@
 
 ;;;***
 
-;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode)
-;;;;;;  "derived" "derived.el" (14410 18534))
+;;;### (autoloads (derived-mode-init-mode-variables) "derived" "derived.el"
+;;;;;;  (14552 48685))
 ;;; Generated autoloads from derived.el
 
-(autoload (quote define-derived-mode) "derived" "\
-Create a new mode as a variant of an existing mode.
-
-The arguments to this command are as follow:
-
-CHILD:     the name of the command for the derived mode.
-PARENT:    the name of the command for the parent mode (e.g. `text-mode').
-NAME:      a string which will appear in the status line (e.g. \"Hypertext\")
-DOCSTRING: an optional documentation string--if you do not supply one,
-           the function will attempt to invent something useful.
-BODY:      forms to execute just before running the
-           hooks for the new mode.
-
-Here is how you could define LaTeX-Thesis mode as a variant of LaTeX mode:
-
-  (define-derived-mode LaTeX-thesis-mode LaTeX-mode \"LaTeX-Thesis\")
-
-You could then make new key bindings for `LaTeX-thesis-mode-map'
-without changing regular LaTeX mode.  In this example, BODY is empty,
-and DOCSTRING is generated by default.
-
-On a more complicated level, the following command uses `sgml-mode' as
-the parent, and then sets the variable `case-fold-search' to nil:
-
-  (define-derived-mode article-mode sgml-mode \"Article\"
-    \"Major mode for editing technical articles.\"
-    (setq case-fold-search nil))
-
-Note that if the documentation string had been left out, it would have
-been generated automatically, with a reference to the keymap." nil (quote macro))
-
 (autoload (quote derived-mode-init-mode-variables) "derived" "\
 Initialise variables for a new MODE.
 Right now, if they don't already exist, set up a blank keymap, an
@@ -4076,7 +4046,7 @@
 ;;;***
 
 ;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "diff-mode.el"
-;;;;;;  (14495 17964))
+;;;;;;  (14552 48685))
 ;;; Generated autoloads from diff-mode.el
 
 (autoload (quote diff-mode) "diff-mode" "\
@@ -4596,8 +4566,9 @@
 
 ;;;***
 
-;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap define-minor-mode)
-;;;;;;  "easy-mmode" "emacs-lisp/easy-mmode.el" (14539 53684))
+;;;### (autoloads (define-derived-mode easy-mmode-defsyntax easy-mmode-defmap
+;;;;;;  define-minor-mode) "easy-mmode" "emacs-lisp/easy-mmode.el"
+;;;;;;  (14552 48943))
 ;;; Generated autoloads from emacs-lisp/easy-mmode.el
 
 (defalias (quote easy-mmode-define-minor-mode) (quote define-minor-mode))
@@ -4620,6 +4591,37 @@
 
 (autoload (quote easy-mmode-defsyntax) "easy-mmode" nil nil (quote macro))
 
+(autoload (quote define-derived-mode) "easy-mmode" "\
+Create a new mode as a variant of an existing mode.
+
+The arguments to this command are as follow:
+
+CHILD:     the name of the command for the derived mode.
+PARENT:    the name of the command for the parent mode (e.g. `text-mode').
+NAME:      a string which will appear in the status line (e.g. \"Hypertext\")
+DOCSTRING: an optional documentation string--if you do not supply one,
+           the function will attempt to invent something useful.
+BODY:      forms to execute just before running the
+           hooks for the new mode.
+
+Here is how you could define LaTeX-Thesis mode as a variant of LaTeX mode:
+
+  (define-derived-mode LaTeX-thesis-mode LaTeX-mode \"LaTeX-Thesis\")
+
+You could then make new key bindings for `LaTeX-thesis-mode-map'
+without changing regular LaTeX mode.  In this example, BODY is empty,
+and DOCSTRING is generated by default.
+
+On a more complicated level, the following command uses `sgml-mode' as
+the parent, and then sets the variable `case-fold-search' to nil:
+
+  (define-derived-mode article-mode sgml-mode \"Article\"
+    \"Major mode for editing technical articles.\"
+    (setq case-fold-search nil))
+
+Note that if the documentation string had been left out, it would have
+been generated automatically, with a reference to the keymap." nil (quote macro))
+
 ;;;***
 
 ;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define
@@ -5446,8 +5448,9 @@
 ;;;;;;  tags-query-replace tags-search tags-loop-continue next-file
 ;;;;;;  pop-tag-mark find-tag-regexp find-tag-other-frame find-tag-other-window
 ;;;;;;  find-tag find-tag-noselect tags-table-files visit-tags-table
-;;;;;;  find-tag-default-function find-tag-hook tags-add-tables tags-table-list)
-;;;;;;  "etags" "progmodes/etags.el" (14411 46114))
+;;;;;;  find-tag-default-function find-tag-hook tags-add-tables tags-table-list
+;;;;;;  tags-case-fold-search) "etags" "progmodes/etags.el" (14551
+;;;;;;  24244))
 ;;; Generated autoloads from progmodes/etags.el
 
 (defvar tags-file-name nil "\
@@ -5457,6 +5460,11 @@
 Use the `etags' program to make a tags table file.")
  (put 'tags-file-name 'variable-interactive "fVisit tags table: ")
 
+(defvar tags-case-fold-search (quote default) "\
+*Whether tags operations should be case-sensitive.
+A value of t means case-insensitive, a value of nil means case-sensitive.
+Any other value means use the setting of `case-fold-search'.")
+
 (defvar tags-table-list nil "\
 *List of file names of tags tables to search.
 An element that is a directory means the file \"TAGS\" in that directory.
@@ -6750,7 +6758,7 @@
 ;;;***
 
 ;;;### (autoloads (create-fontset-from-fontset-spec) "fontset" "international/fontset.el"
-;;;;;;  (14495 18024))
+;;;;;;  (14551 28678))
 ;;; Generated autoloads from international/fontset.el
 
 (autoload (quote create-fontset-from-fontset-spec) "fontset" "\
@@ -6759,12 +6767,8 @@
 	FONTSET-NAME,CHARSET-NAME0:FONT-NAME0,CHARSET-NAME1:FONT-NAME1, ...
 Any number of SPACE, TAB, and NEWLINE can be put before and after commas.
 
-Optional 2nd argument STYLE-VARIANT is a list of font styles
-\(e.g. bold, italic) or the symbol t to specify all available styles.
-If this argument is specified, fontsets which differs from
-FONTSET-NAME in styles are also created.  An element of STYLE-VARIANT
-may be cons of style and a font name.  In this case, the style variant
-fontset uses the font for ASCII character set.
+Optional 2nd argument is ignored.  It exists just for backward
+compatibility.
 
 If this function attempts to create already existing fontset, error is
 signaled unless the optional 3rd argument NOERROR is non-nil.
@@ -9082,11 +9086,12 @@
 
 ;;;***
 
-;;;### (autoloads nil "log-view" "log-view.el" (14537 49316))
+;;;### (autoloads (log-view-mode) "log-view" "log-view.el" (14552
+;;;;;;  48685))
 ;;; Generated autoloads from log-view.el
 
 (autoload (quote log-view-mode) "log-view" "\
-Major mode for browsing CVS log output." t)
+Major mode for browsing CVS log output." t nil)
 
 ;;;***
 
@@ -9423,7 +9428,7 @@
 ;;;***
 
 ;;;### (autoloads (makefile-mode) "make-mode" "progmodes/make-mode.el"
-;;;;;;  (14410 18641))
+;;;;;;  (14554 2005))
 ;;; Generated autoloads from progmodes/make-mode.el
 
 (autoload (quote makefile-mode) "make-mode" "\
@@ -9974,7 +9979,7 @@
 ;;;;;;  list-fontsets describe-fontset describe-font list-coding-categories
 ;;;;;;  list-coding-systems describe-current-coding-system describe-current-coding-system-briefly
 ;;;;;;  describe-coding-system list-charset-chars read-charset list-character-sets)
-;;;;;;  "mule-diag" "international/mule-diag.el" (14529 14422))
+;;;;;;  "mule-diag" "international/mule-diag.el" (14551 28679))
 ;;; Generated autoloads from international/mule-diag.el
 
 (autoload (quote list-character-sets) "mule-diag" "\
@@ -10706,7 +10711,7 @@
 ;;;***
 
 ;;;### (autoloads (cvs-dired-use-hook cvs-status cvs-update cvs-examine
-;;;;;;  cvs-checkout) "pcvs" "pcvs.el" (14537 49318))
+;;;;;;  cvs-checkout) "pcvs" "pcvs.el" (14552 48942))
 ;;; Generated autoloads from pcvs.el
 
 (autoload (quote cvs-checkout) "pcvs" "\
@@ -10753,6 +10758,13 @@
 
 ;;;***
 
+;;;### (autoloads nil "pcvs-defs" "pcvs-defs.el" (14552 48685))
+;;; Generated autoloads from pcvs-defs.el
+
+(defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] (quote (menu-item "Directory Status" cvs-status :help "A more verbose status of a workarea"))) (define-key m [checkout] (quote (menu-item "Checkout Module" cvs-checkout :help "Check out a module from the repository"))) (define-key m [update] (quote (menu-item "Update Directory" cvs-update :help "Fetch updates from the repository"))) (define-key m [examine] (quote (menu-item "Examine Directory" cvs-examine :help "Examine the current state of a workarea"))) m))
+
+;;;***
+
 ;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el"
 ;;;;;;  (13639 61036))
 ;;; Generated autoloads from progmodes/perl-mode.el
@@ -11085,7 +11097,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" (14543 36973))
+;;;;;;  "ps-print.el" (14554 7425))
 ;;; Generated autoloads from ps-print.el
 
 (defvar ps-paper-type (quote letter) "\
@@ -11222,7 +11234,7 @@
 ;;;### (autoloads (quail-update-leim-list-file quail-defrule-internal
 ;;;;;;  quail-defrule quail-install-map quail-define-rules quail-set-keyboard-layout
 ;;;;;;  quail-define-package quail-use-package) "quail" "international/quail.el"
-;;;;;;  (14423 51000))
+;;;;;;  (14551 28773))
 ;;; Generated autoloads from international/quail.el
 
 (autoload (quote quail-use-package) "quail" "\
@@ -11379,8 +11391,8 @@
 
 ;;;### (autoloads (quickurl-list quickurl-list-mode quickurl-edit-urls
 ;;;;;;  quickurl-browse-url-ask quickurl-browse-url quickurl-add-url
-;;;;;;  quickurl-ask quickurl) "quickurl" "net/quickurl.el" (14495
-;;;;;;  17990))
+;;;;;;  quickurl-ask quickurl) "quickurl" "net/quickurl.el" (14554
+;;;;;;  7245))
 ;;; Generated autoloads from net/quickurl.el
 
 (defconst quickurl-reread-hook-postfix "\n;; Local Variables:\n;; eval: (progn (require 'quickurl) (add-hook 'local-write-file-hooks (lambda () (quickurl-read) nil)))\n;; End:\n" "\
@@ -12877,8 +12889,8 @@
 
 ;;;***
 
-;;;### (autoloads (smerge-mode) "smerge-mode" "smerge-mode.el" (14415
-;;;;;;  42981))
+;;;### (autoloads (smerge-mode) "smerge-mode" "smerge-mode.el" (14552
+;;;;;;  48942))
 ;;; Generated autoloads from smerge-mode.el
 
 (autoload (quote smerge-mode) "smerge-mode" "\