Commit 81bf3fa7 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

*** empty log message ***

parent 1a3199d9
......@@ -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"))
......
......@@ -1310,7 +1310,7 @@ corresponding bookmark function from Lisp (the one without the
;;;;;; 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 @@ With ARG, turn CRiSP mode on if ARG is positive, off otherwise." t nil)
;;;;;; 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 @@ See `defface' for the format of SPEC." nil nil)
 
;;;***
;;;### (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 @@ use either \\[customize] or the function `delete-selection-mode'.")
 
;;;***
;;;### (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 @@ The backup file is the first file given to `diff'." t nil)
;;;***
;;;### (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 @@ Play sounds in message buffers." t nil)
 
;;;***
;;;### (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 @@ It will be executed after any toggling but before running the hooks." nil (quote
 
(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 @@ This function works by modifying `process-environment'." t nil)
;;;;;; 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 @@ If you set this variable, do not also set `tags-table-list'.
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 @@ Fontify the current buffer the way the function `font-lock-mode' would." t nil)
;;;***
;;;### (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-SPEC is a string of the format:
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 @@ Once you're done editing the message, pressing \\[log-edit-done] will call
 
;;;***
;;;### (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 @@ current header, calls `mail-complete-function' and passes prefix arg if any." t
;;;***
;;;### (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 @@ different buffer menu using the function `msb'." t nil)
;;;;;; 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 @@ You must modify via \\[customize] for this variable to have an effect.")
;;;***
;;;### (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" "\
......@@ -10751,6 +10756,13 @@ 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 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"
......@@ -11085,7 +11097,7 @@ This checks if all multi-byte characters in the region are printable or not." ni
;;;;;; 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 @@ If EXTENSION is any other symbol, it is ignored." nil nil)
;;;### (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 @@ of each directory." t nil)
;;;### (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 @@ symmetrical ones, and the same character twice for the others." t nil)
 
;;;***
;;;### (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" "\
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment