Some fixes to follow coding conventions in files maintained by FSF.
This commit is contained in:
Pavel Janík
parent
401aa47973
commit
5553563924
125 changed files with 2427 additions and 158 deletions
|
|
@ -1,3 +1,42 @@
|
|||
2001-07-15 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
|
||||
|
||||
* abbrevlist.el, array.el, buff-menu.el, calendar/appt.el,
|
||||
case-table.el, cdl.el, cmuscheme.el, compare-w.el, completion.el,
|
||||
custom.el, derived.el, dired-aux.el, disp-table.el, dos-vars.el,
|
||||
echistory.el, electric.el, emacs-lisp/authors.el,
|
||||
emacs-lisp/backquote.el, emacs-lisp/byte-opt.el,
|
||||
emacs-lisp/bytecomp.el, emacs-lisp/float.el, emacs-lisp/gulp.el,
|
||||
emacs-lisp/helper.el, emacs-lisp/lisp-mode.el,
|
||||
emacs-lisp/regexp-opt.el, emulation/mlconvert.el,
|
||||
emulation/mlsupport.el, env.el, fast-lock.el, find-dired.el,
|
||||
float-sup.el, frame.el, gnus/gnus-mule.el, gnus/pop3.el, gs.el,
|
||||
gud.el, help-macro.el, hexl.el, imenu.el, info.el, informat.el,
|
||||
international/codepage.el, international/iso-ascii.el,
|
||||
international/iso-insert.el, international/iso-transl.el,
|
||||
international/swedish.el, isearch.el, jka-compr.el, kermit.el,
|
||||
lazy-lock.el, ledit.el, loadup.el, lpr.el, ls-lisp.el, macros.el,
|
||||
mail/blessmail.el, mail/emacsbug.el, mail/mail-extr.el,
|
||||
mail/mailabbrev.el, mail/mailpost.el, mail/rmail.el,
|
||||
mail/rmailedit.el, mail/rmailkwd.el, mail/rmailmsc.el,
|
||||
mail/rmailout.el, mail/rmailsort.el, mail/rmailsum.el,
|
||||
mail/vms-pmail.el, man.el, map-ynp.el, menu-bar.el, misc.el,
|
||||
msb.el, net/ange-ftp.el, net/goto-addr.el, novice.el,
|
||||
obsolete/auto-show.el, obsolete/hilit19.el, obsolete/ooutline.el,
|
||||
obsolete/rnews.el, obsolete/rnewspost.el, options.el, paren.el,
|
||||
paths.el, play/dissociate.el, play/doctor.el, play/hanoi.el,
|
||||
play/meese.el, progmodes/compile.el, progmodes/ebrowse.el,
|
||||
progmodes/hideif.el, progmodes/modula2.el, register.el, rot13.el,
|
||||
saveplace.el, scroll-bar.el, server.el, sort.el, soundex.el,
|
||||
term/bg-mouse.el, term/pc-win.el, term/sup-mouse.el,
|
||||
term/tty-colors.el, terminal.el, textmodes/bib-mode.el,
|
||||
textmodes/makeinfo.el, textmodes/page.el, textmodes/paragraphs.el,
|
||||
textmodes/picture.el, textmodes/scribe.el, textmodes/spell.el,
|
||||
textmodes/tex-mode.el, textmodes/text-mode.el,
|
||||
textmodes/underline.el, thingatpt.el, time.el, timer.el,
|
||||
unused.el, vcursor.el, version.el, vms-patch.el, vmsproc.el,
|
||||
vt100-led.el, window.el: Some fixes to follow coding conventions in
|
||||
files maintained by FSF.
|
||||
|
||||
2001-07-13 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
|
||||
|
||||
* arc-mode.el: A fix to follow coding conventions.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; abbrevlist.el --- list one abbrev table alphabetically ordered.
|
||||
;;; abbrevlist.el --- list one abbrev table alphabetically ordered
|
||||
|
||||
;; Copyright (C) 1986, 1992 Free Software Foundation, Inc.
|
||||
;; Suggested by a previous version by Gildea.
|
||||
|
|
@ -23,6 +23,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defun list-one-abbrev-table (abbrev-table output-buffer)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; array.el --- array editing commands for Gnu Emacs
|
||||
;;; array.el --- array editing commands for GNU Emacs
|
||||
|
||||
;; Copyright (C) 1987, 2000 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; buff-menu.el --- buffer menu main function and support functions.
|
||||
;;; buff-menu.el --- buffer menu main function and support functions
|
||||
|
||||
;; Copyright (C) 1985, 86, 87, 93, 94, 95, 2000 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; appt.el --- appointment notification functions.
|
||||
;;; appt.el --- appointment notification functions
|
||||
|
||||
;; Copyright (C) 1989, 1990, 1994, 1998 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; case-table.el --- code to extend the character set and support case tables.
|
||||
;;; case-table.el --- code to extend the character set and support case tables
|
||||
|
||||
;; Copyright (C) 1988, 1994 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -23,6 +23,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defun cdl-get-file (filename)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el.
|
||||
;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el
|
||||
|
||||
;; Copyright (C) 1988, 1994, 1997 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; compare-w.el --- compare text between windows for Emacs.
|
||||
;;; compare-w.el --- compare text between windows for Emacs
|
||||
|
||||
;; Copyright (C) 1986, 1989, 1993, 1997 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1204,7 +1204,7 @@ Must be called after `find-exact-completion'."
|
|||
|
||||
(defun locate-completion-db-error ()
|
||||
;; recursive error: really scrod
|
||||
(error "Completion database corrupted. Try M-x clear-all-completions. Send bug report."))
|
||||
(error "Completion database corrupted. Try M-x clear-all-completions. Send bug report"))
|
||||
|
||||
;; WRITES
|
||||
(defun add-completion-to-tail-if-new (string)
|
||||
|
|
|
|||
501
lisp/custom.el
Normal file
501
lisp/custom.el
Normal file
|
|
@ -0,0 +1,501 @@
|
|||
;;; custom.el --- tools for declaring and initializing options
|
||||
;;
|
||||
;; Copyright (C) 1996, 1997, 1999, 2001 Free Software Foundation, Inc.
|
||||
;;
|
||||
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
|
||||
;; Maintainer: FSF
|
||||
;; Keywords: help, faces
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation; either version 2, or (at your option)
|
||||
;; any later version.
|
||||
|
||||
;; GNU Emacs is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
||||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
;;
|
||||
;; This file only contain the code needed to declare and initialize
|
||||
;; user options. The code to customize options is autoloaded from
|
||||
;; `cus-edit.el' and is documented in the Emacs Lisp Reference manual.
|
||||
|
||||
;; The code implementing face declarations is in `cus-face.el'
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'widget)
|
||||
|
||||
(defvar custom-define-hook nil
|
||||
;; Customize information for this option is in `cus-edit.el'.
|
||||
"Hook called after defining each customize option.")
|
||||
|
||||
;;; The `defcustom' Macro.
|
||||
|
||||
(defun custom-initialize-default (symbol value)
|
||||
"Initialize SYMBOL with VALUE.
|
||||
This will do nothing if symbol already has a default binding.
|
||||
Otherwise, if symbol has a `saved-value' property, it will evaluate
|
||||
the car of that and used as the default binding for symbol.
|
||||
Otherwise, VALUE will be evaluated and used as the default binding for
|
||||
symbol."
|
||||
(unless (default-boundp symbol)
|
||||
;; Use the saved value if it exists, otherwise the standard setting.
|
||||
(set-default symbol (if (get symbol 'saved-value)
|
||||
(eval (car (get symbol 'saved-value)))
|
||||
(eval value)))))
|
||||
|
||||
(defun custom-initialize-set (symbol value)
|
||||
"Initialize SYMBOL based on VALUE.
|
||||
If the symbol doesn't have a default binding already,
|
||||
then set it using its `:set' function (or `set-default' if it has none).
|
||||
The value is either the value in the symbol's `saved-value' property,
|
||||
if any, or VALUE."
|
||||
(unless (default-boundp symbol)
|
||||
(funcall (or (get symbol 'custom-set) 'set-default)
|
||||
symbol
|
||||
(if (get symbol 'saved-value)
|
||||
(eval (car (get symbol 'saved-value)))
|
||||
(eval value)))))
|
||||
|
||||
(defun custom-initialize-reset (symbol value)
|
||||
"Initialize SYMBOL based on VALUE.
|
||||
Set the symbol, using its `:set' function (or `set-default' if it has none).
|
||||
The value is either the symbol's current value
|
||||
\(as obtained using the `:get' function), if any,
|
||||
or the value in the symbol's `saved-value' property if any,
|
||||
or (last of all) VALUE."
|
||||
(funcall (or (get symbol 'custom-set) 'set-default)
|
||||
symbol
|
||||
(cond ((default-boundp symbol)
|
||||
(funcall (or (get symbol 'custom-get) 'default-value)
|
||||
symbol))
|
||||
((get symbol 'saved-value)
|
||||
(eval (car (get symbol 'saved-value))))
|
||||
(t
|
||||
(eval value)))))
|
||||
|
||||
(defun custom-initialize-changed (symbol value)
|
||||
"Initialize SYMBOL with VALUE.
|
||||
Like `custom-initialize-reset', but only use the `:set' function if
|
||||
not using the standard setting.
|
||||
For the standard setting, use `set-default'."
|
||||
(cond ((default-boundp symbol)
|
||||
(funcall (or (get symbol 'custom-set) 'set-default)
|
||||
symbol
|
||||
(funcall (or (get symbol 'custom-get) 'default-value)
|
||||
symbol)))
|
||||
((get symbol 'saved-value)
|
||||
(funcall (or (get symbol 'custom-set) 'set-default)
|
||||
symbol
|
||||
(eval (car (get symbol 'saved-value)))))
|
||||
(t
|
||||
(set-default symbol (eval value)))))
|
||||
|
||||
(defun custom-declare-variable (symbol default doc &rest args)
|
||||
"Like `defcustom', but SYMBOL and DEFAULT are evaluated as normal arguments.
|
||||
DEFAULT should be an expression to evaluate to compute the default value,
|
||||
not the default value itself."
|
||||
;; Remember the standard setting.
|
||||
(put symbol 'standard-value (list default))
|
||||
;; Maybe this option was rogue in an earlier version. It no longer is.
|
||||
(when (get symbol 'force-value)
|
||||
(put symbol 'force-value nil))
|
||||
(when doc
|
||||
(put symbol 'variable-documentation doc))
|
||||
(let ((initialize 'custom-initialize-reset)
|
||||
(requests nil))
|
||||
(while args
|
||||
(let ((arg (car args)))
|
||||
(setq args (cdr args))
|
||||
(unless (symbolp arg)
|
||||
(error "Junk in args %S" args))
|
||||
(let ((keyword arg)
|
||||
(value (car args)))
|
||||
(unless args
|
||||
(error "Keyword %s is missing an argument" keyword))
|
||||
(setq args (cdr args))
|
||||
(cond ((eq keyword :initialize)
|
||||
(setq initialize value))
|
||||
((eq keyword :set)
|
||||
(put symbol 'custom-set value))
|
||||
((eq keyword :get)
|
||||
(put symbol 'custom-get value))
|
||||
((eq keyword :require)
|
||||
(setq requests (cons value requests)))
|
||||
((eq keyword :type)
|
||||
(put symbol 'custom-type (purecopy value)))
|
||||
((eq keyword :options)
|
||||
(if (get symbol 'custom-options)
|
||||
;; Slow safe code to avoid duplicates.
|
||||
(mapc (lambda (option)
|
||||
(custom-add-option symbol option))
|
||||
value)
|
||||
;; Fast code for the common case.
|
||||
(put symbol 'custom-options (copy-sequence value))))
|
||||
(t
|
||||
(custom-handle-keyword symbol keyword value
|
||||
'custom-variable))))))
|
||||
(put symbol 'custom-requests requests)
|
||||
;; Do the actual initialization.
|
||||
(funcall initialize symbol default))
|
||||
(setq current-load-list (cons symbol current-load-list))
|
||||
(run-hooks 'custom-define-hook)
|
||||
symbol)
|
||||
|
||||
(defmacro defcustom (symbol value doc &rest args)
|
||||
"Declare SYMBOL as a customizable variable that defaults to VALUE.
|
||||
DOC is the variable documentation.
|
||||
|
||||
Neither SYMBOL nor VALUE needs to be quoted.
|
||||
If SYMBOL is not already bound, initialize it to VALUE.
|
||||
The remaining arguments should have the form
|
||||
|
||||
[KEYWORD VALUE]...
|
||||
|
||||
The following keywords are meaningful:
|
||||
|
||||
:type VALUE should be a widget type for editing the symbols value.
|
||||
:options VALUE should be a list of valid members of the widget type.
|
||||
:group VALUE should be a customization group.
|
||||
Add SYMBOL to that group.
|
||||
:initialize
|
||||
VALUE should be a function used to initialize the
|
||||
variable. It takes two arguments, the symbol and value
|
||||
given in the `defcustom' call. The default is
|
||||
`custom-initialize-default'
|
||||
:set VALUE should be a function to set the value of the symbol.
|
||||
It takes two arguments, the symbol to set and the value to
|
||||
give it. The default choice of function is `custom-set-default'.
|
||||
:get VALUE should be a function to extract the value of symbol.
|
||||
The function takes one argument, a symbol, and should return
|
||||
the current value for that symbol. The default choice of function
|
||||
is `custom-default-value'.
|
||||
:require
|
||||
VALUE should be a feature symbol. If you save a value
|
||||
for this option, then when your `.emacs' file loads the value,
|
||||
it does (require VALUE) first.
|
||||
:version
|
||||
VALUE should be a string specifying that the variable was
|
||||
first introduced, or its default value was changed, in Emacs
|
||||
version VERSION.
|
||||
|
||||
Read the section about customization in the Emacs Lisp manual for more
|
||||
information."
|
||||
;; It is better not to use backquote in this file,
|
||||
;; because that makes a bootstrapping problem
|
||||
;; if you need to recompile all the Lisp files using interpreted code.
|
||||
(nconc (list 'custom-declare-variable
|
||||
(list 'quote symbol)
|
||||
(list 'quote value)
|
||||
doc)
|
||||
args))
|
||||
|
||||
;;; The `defface' Macro.
|
||||
|
||||
(defmacro defface (face spec doc &rest args)
|
||||
"Declare FACE as a customizable face that defaults to SPEC.
|
||||
FACE does not need to be quoted.
|
||||
|
||||
Third argument DOC is the face documentation.
|
||||
|
||||
If FACE has been set with `custom-set-face', set the face attributes
|
||||
as specified by that function, otherwise set the face attributes
|
||||
according to SPEC.
|
||||
|
||||
The remaining arguments should have the form
|
||||
|
||||
[KEYWORD VALUE]...
|
||||
|
||||
The following KEYWORDs are defined:
|
||||
|
||||
:group VALUE should be a customization group.
|
||||
Add FACE to that group.
|
||||
|
||||
SPEC should be an alist of the form ((DISPLAY ATTS)...).
|
||||
|
||||
The first element of SPEC where the DISPLAY matches the frame
|
||||
is the one that takes effect in that frame. The ATTRs in this
|
||||
element take effect; the other elements are ignored, on that frame.
|
||||
|
||||
ATTS is a list of face attributes followed by their values:
|
||||
(ATTR VALUE ATTR VALUE...)
|
||||
|
||||
The possible attributes are `:family', `:width', `:height', `:weight',
|
||||
`:slant', `:underline', `:overline', `:strike-through', `:box',
|
||||
`:foreground', `:background', `:stipple', and `:inverse-video'.
|
||||
|
||||
DISPLAY can either be the symbol t, which will match all frames, or an
|
||||
alist of the form \((REQ ITEM...)...). For the DISPLAY to match a
|
||||
FRAME, the REQ property of the frame must match one of the ITEM. The
|
||||
following REQ are defined:
|
||||
|
||||
`type' (the value of `window-system')
|
||||
Under X, in addition to the values `window-system' can take,
|
||||
`motif', `lucid' and `x-toolkit' are allowed, and match when
|
||||
the Motif toolkit, Lucid toolkit, or any X toolkit is in use.
|
||||
|
||||
`class' (the frame's color support)
|
||||
Should be one of `color', `grayscale', or `mono'.
|
||||
|
||||
`background' (what color is used for the background text)
|
||||
Should be one of `light' or `dark'.
|
||||
|
||||
Read the section about customization in the Emacs Lisp manual for more
|
||||
information."
|
||||
;; It is better not to use backquote in this file,
|
||||
;; because that makes a bootstrapping problem
|
||||
;; if you need to recompile all the Lisp files using interpreted code.
|
||||
(nconc (list 'custom-declare-face (list 'quote face) spec doc) args))
|
||||
|
||||
;;; The `defgroup' Macro.
|
||||
|
||||
(defun custom-declare-group (symbol members doc &rest args)
|
||||
"Like `defgroup', but SYMBOL is evaluated as a normal argument."
|
||||
(while members
|
||||
(apply 'custom-add-to-group symbol (car members))
|
||||
(setq members (cdr members)))
|
||||
(put symbol 'custom-group (nconc members (get symbol 'custom-group)))
|
||||
(when doc
|
||||
;; This text doesn't get into DOC.
|
||||
(put symbol 'group-documentation (purecopy doc)))
|
||||
(while args
|
||||
(let ((arg (car args)))
|
||||
(setq args (cdr args))
|
||||
(unless (symbolp arg)
|
||||
(error "Junk in args %S" args))
|
||||
(let ((keyword arg)
|
||||
(value (car args)))
|
||||
(unless args
|
||||
(error "Keyword %s is missing an argument" keyword))
|
||||
(setq args (cdr args))
|
||||
(cond ((eq keyword :prefix)
|
||||
(put symbol 'custom-prefix value))
|
||||
(t
|
||||
(custom-handle-keyword symbol keyword value
|
||||
'custom-group))))))
|
||||
(run-hooks 'custom-define-hook)
|
||||
symbol)
|
||||
|
||||
(defmacro defgroup (symbol members doc &rest args)
|
||||
"Declare SYMBOL as a customization group containing MEMBERS.
|
||||
SYMBOL does not need to be quoted.
|
||||
|
||||
Third arg DOC is the group documentation.
|
||||
|
||||
MEMBERS should be an alist of the form ((NAME WIDGET)...) where
|
||||
NAME is a symbol and WIDGET is a widget for editing that symbol.
|
||||
Useful widgets are `custom-variable' for editing variables,
|
||||
`custom-face' for edit faces, and `custom-group' for editing groups.
|
||||
|
||||
The remaining arguments should have the form
|
||||
|
||||
[KEYWORD VALUE]...
|
||||
|
||||
The following KEYWORDs are defined:
|
||||
|
||||
:group VALUE should be a customization group.
|
||||
Add SYMBOL to that group.
|
||||
|
||||
:version VALUE should be a string specifying that the group was introduced
|
||||
in Emacs version VERSION.
|
||||
|
||||
Read the section about customization in the Emacs Lisp manual for more
|
||||
information."
|
||||
;; It is better not to use backquote in this file,
|
||||
;; because that makes a bootstrapping problem
|
||||
;; if you need to recompile all the Lisp files using interpreted code.
|
||||
(nconc (list 'custom-declare-group (list 'quote symbol) members doc) args))
|
||||
|
||||
(defun custom-add-to-group (group option widget)
|
||||
"To existing GROUP add a new OPTION of type WIDGET.
|
||||
If there already is an entry for OPTION and WIDGET, nothing is done."
|
||||
(let ((members (get group 'custom-group))
|
||||
(entry (list option widget)))
|
||||
(unless (member entry members)
|
||||
(put group 'custom-group (nconc members (list entry))))))
|
||||
|
||||
;;; Properties.
|
||||
|
||||
(defun custom-handle-all-keywords (symbol args type)
|
||||
"For customization option SYMBOL, handle keyword arguments ARGS.
|
||||
Third argument TYPE is the custom option type."
|
||||
(while args
|
||||
(let ((arg (car args)))
|
||||
(setq args (cdr args))
|
||||
(unless (symbolp arg)
|
||||
(error "Junk in args %S" args))
|
||||
(let ((keyword arg)
|
||||
(value (car args)))
|
||||
(unless args
|
||||
(error "Keyword %s is missing an argument" keyword))
|
||||
(setq args (cdr args))
|
||||
(custom-handle-keyword symbol keyword value type)))))
|
||||
|
||||
(defun custom-handle-keyword (symbol keyword value type)
|
||||
"For customization option SYMBOL, handle KEYWORD with VALUE.
|
||||
Fourth argument TYPE is the custom option type."
|
||||
(if purify-flag
|
||||
(setq value (purecopy value)))
|
||||
(cond ((eq keyword :group)
|
||||
(custom-add-to-group value symbol type))
|
||||
((eq keyword :version)
|
||||
(custom-add-version symbol value))
|
||||
((eq keyword :link)
|
||||
(custom-add-link symbol value))
|
||||
((eq keyword :load)
|
||||
(custom-add-load symbol value))
|
||||
((eq keyword :tag)
|
||||
(put symbol 'custom-tag value))
|
||||
((eq keyword :set-after)
|
||||
(custom-add-dependencies symbol value))
|
||||
(t
|
||||
(error "Unknown keyword %s" keyword))))
|
||||
|
||||
(defun custom-add-dependencies (symbol value)
|
||||
"To the custom option SYMBOL, add dependencies specified by VALUE.
|
||||
VALUE should be a list of symbols. For each symbol in that list,
|
||||
this specifies that SYMBOL should be set after the specified symbol, if
|
||||
both appear in constructs like `custom-set-variables'."
|
||||
(unless (listp value)
|
||||
(error "Invalid custom dependency `%s'" value))
|
||||
(let* ((deps (get symbol 'custom-dependencies))
|
||||
(new-deps deps))
|
||||
(while value
|
||||
(let ((dep (car value)))
|
||||
(unless (symbolp dep)
|
||||
(error "Invalid custom dependency `%s'" dep))
|
||||
(unless (memq dep new-deps)
|
||||
(setq new-deps (cons dep new-deps)))
|
||||
(setq value (cdr value))))
|
||||
(unless (eq deps new-deps)
|
||||
(put symbol 'custom-dependencies new-deps))))
|
||||
|
||||
(defun custom-add-option (symbol option)
|
||||
"To the variable SYMBOL add OPTION.
|
||||
|
||||
If SYMBOL is a hook variable, OPTION should be a hook member.
|
||||
For other types variables, the effect is undefined."
|
||||
(let ((options (get symbol 'custom-options)))
|
||||
(unless (member option options)
|
||||
(put symbol 'custom-options (cons option options)))))
|
||||
|
||||
(defun custom-add-link (symbol widget)
|
||||
"To the custom option SYMBOL add the link WIDGET."
|
||||
(let ((links (get symbol 'custom-links)))
|
||||
(unless (member widget links)
|
||||
(put symbol 'custom-links (cons (purecopy widget) links)))))
|
||||
|
||||
(defun custom-add-version (symbol version)
|
||||
"To the custom option SYMBOL add the version VERSION."
|
||||
(put symbol 'custom-version (purecopy version)))
|
||||
|
||||
(defun custom-add-load (symbol load)
|
||||
"To the custom option SYMBOL add the dependency LOAD.
|
||||
LOAD should be either a library file name, or a feature name."
|
||||
(let ((loads (get symbol 'custom-loads)))
|
||||
(unless (member load loads)
|
||||
(put symbol 'custom-loads (cons (purecopy load) loads)))))
|
||||
|
||||
;;; Initializing.
|
||||
|
||||
(defvar custom-local-buffer nil
|
||||
"Non-nil, in a Customization buffer, means customize a specific buffer.
|
||||
If this variable is non-nil, it should be a buffer,
|
||||
and it means customize the local bindings of that buffer.
|
||||
This variable is a permanent local, and it normally has a local binding
|
||||
in every Customization buffer.")
|
||||
(put 'custom-local-buffer 'permanent-local t)
|
||||
|
||||
(defun custom-set-variables (&rest args)
|
||||
"Initialize variables according to user preferences.
|
||||
|
||||
The arguments should be a list where each entry has the form:
|
||||
|
||||
(SYMBOL VALUE [NOW [REQUEST [COMMENT]]])
|
||||
|
||||
The unevaluated VALUE is stored as the saved value for SYMBOL.
|
||||
If NOW is present and non-nil, VALUE is also evaluated and bound as
|
||||
the default value for the SYMBOL.
|
||||
REQUEST is a list of features we must require for SYMBOL.
|
||||
COMMENT is a comment string about SYMBOL."
|
||||
(setq args
|
||||
(sort args
|
||||
(lambda (a1 a2)
|
||||
(let* ((sym1 (car a1))
|
||||
(sym2 (car a2))
|
||||
(1-then-2 (memq sym1 (get sym2 'custom-dependencies)))
|
||||
(2-then-1 (memq sym2 (get sym1 'custom-dependencies))))
|
||||
(cond ((and 1-then-2 2-then-1)
|
||||
(error "Circular custom dependency between `%s' and `%s'"
|
||||
sym1 sym2))
|
||||
(1-then-2 t)
|
||||
(t nil))))))
|
||||
(while args
|
||||
(let ((entry (car args)))
|
||||
(if (listp entry)
|
||||
(let* ((symbol (nth 0 entry))
|
||||
(value (nth 1 entry))
|
||||
(now (nth 2 entry))
|
||||
(requests (nth 3 entry))
|
||||
(comment (nth 4 entry))
|
||||
set)
|
||||
(when requests
|
||||
(put symbol 'custom-requests requests)
|
||||
(mapc 'require requests))
|
||||
(setq set (or (get symbol 'custom-set) 'custom-set-default))
|
||||
(put symbol 'saved-value (list value))
|
||||
(put symbol 'saved-variable-comment comment)
|
||||
;; Allow for errors in the case where the setter has
|
||||
;; changed between versions, say, but let the user know.
|
||||
(condition-case data
|
||||
(cond (now
|
||||
;; Rogue variable, set it now.
|
||||
(put symbol 'force-value t)
|
||||
(funcall set symbol (eval value)))
|
||||
((default-boundp symbol)
|
||||
;; Something already set this, overwrite it.
|
||||
(funcall set symbol (eval value))))
|
||||
(error
|
||||
(message "Error setting %s: %s" symbol data)))
|
||||
(setq args (cdr args))
|
||||
(and (or now (default-boundp symbol))
|
||||
(put symbol 'variable-comment comment)))
|
||||
;; Old format, a plist of SYMBOL VALUE pairs.
|
||||
(message "Warning: old format `custom-set-variables'")
|
||||
(ding)
|
||||
(sit-for 2)
|
||||
(let ((symbol (nth 0 args))
|
||||
(value (nth 1 args)))
|
||||
(put symbol 'saved-value (list value)))
|
||||
(setq args (cdr (cdr args)))))))
|
||||
|
||||
(defun custom-set-default (variable value)
|
||||
"Default :set function for a customizable variable.
|
||||
Normally, this sets the default value of VARIABLE to VALUE,
|
||||
but if `custom-local-buffer' is non-nil,
|
||||
this sets the local binding in that buffer instead."
|
||||
(if custom-local-buffer
|
||||
(with-current-buffer custom-local-buffer
|
||||
(set variable value))
|
||||
(set-default variable value)))
|
||||
|
||||
;;; The End.
|
||||
|
||||
;; Process the defcustoms for variables loaded before this file.
|
||||
(while custom-declare-variable-list
|
||||
(apply 'custom-declare-variable (car custom-declare-variable-list))
|
||||
(setq custom-declare-variable-list (cdr custom-declare-variable-list)))
|
||||
|
||||
(provide 'custom)
|
||||
|
||||
;;; custom.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; derived.el --- allow inheritance of major modes.
|
||||
;;; derived.el --- allow inheritance of major modes
|
||||
;;; (formerly mode-clone.el)
|
||||
|
||||
;; Copyright (C) 1993, 1994, 1999 Free Software Foundation, Inc.
|
||||
|
|
|
|||
|
|
@ -123,7 +123,7 @@ This calls chmod, thus symbolic modes like `g+w' are allowed."
|
|||
"Change the group of the marked (or next ARG) files."
|
||||
(interactive "P")
|
||||
(if (memq system-type '(ms-dos windows-nt))
|
||||
(error "chgrp not supported on this system."))
|
||||
(error "chgrp not supported on this system"))
|
||||
(dired-do-chxxx "Group" "chgrp" 'chgrp arg))
|
||||
|
||||
;;;###autoload
|
||||
|
|
@ -131,7 +131,7 @@ This calls chmod, thus symbolic modes like `g+w' are allowed."
|
|||
"Change the owner of the marked (or next ARG) files."
|
||||
(interactive "P")
|
||||
(if (memq system-type '(ms-dos windows-nt))
|
||||
(error "chown not supported on this system."))
|
||||
(error "chown not supported on this system"))
|
||||
(dired-do-chxxx "Owner" dired-chown-program 'chown arg))
|
||||
|
||||
;; Process all the files in FILES in batches of a convenient size,
|
||||
|
|
@ -452,7 +452,7 @@ the list of file names explicitly with the FILE-LIST argument."
|
|||
(while (/= 0 arg)
|
||||
(setq file (dired-get-filename nil t))
|
||||
(if (not file)
|
||||
(error "Can only kill file lines.")
|
||||
(error "Can only kill file lines")
|
||||
(save-excursion (and file
|
||||
(dired-goto-subdir file)
|
||||
(dired-kill-subdir)))
|
||||
|
|
@ -1902,7 +1902,7 @@ Lower levels are unaffected."
|
|||
dir (file-name-directory (directory-file-name dir))))
|
||||
;;(setq dir (expand-file-name dir))
|
||||
(or (dired-goto-subdir dir)
|
||||
(error "Cannot go up to %s - not in this tree." dir))))
|
||||
(error "Cannot go up to %s - not in this tree" dir))))
|
||||
|
||||
;;;###autoload
|
||||
(defun dired-tree-down ()
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; disp-table.el --- functions for dealing with char tables.
|
||||
;;; disp-table.el --- functions for dealing with char tables
|
||||
|
||||
;; Copyright (C) 1987, 1994, 1995, 1999 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -24,6 +24,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(put 'display-table 'char-table-extra-slots 6)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; dos-vars.el --- MS-Dos specific user options.
|
||||
;;; dos-vars.el --- MS-Dos specific user options
|
||||
|
||||
;; Copyright (C) 1998 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -22,6 +22,10 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defgroup dos-fns nil
|
||||
"MS-DOS specific functions."
|
||||
:group 'environment)
|
||||
|
|
|
|||
|
|
@ -22,6 +22,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'electric) ; command loop
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; electric.el --- window maker and Command loop for `electric' modes.
|
||||
;;; electric.el --- window maker and Command loop for `electric' modes
|
||||
|
||||
;; Copyright (C) 1985, 1986, 1995 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -468,4 +468,4 @@ the Emacs source tree, from which to build the file."
|
|||
(authors root)
|
||||
(write-file file)))
|
||||
|
||||
;; authors.el ends here
|
||||
;;; authors.el ends here
|
||||
|
|
|
|||
|
|
@ -210,4 +210,4 @@ Vectors work just like lists. Nested backquotes are permitted."
|
|||
tail))
|
||||
(t (cons 'list heads)))))
|
||||
|
||||
;; backquote.el ends here
|
||||
;;; backquote.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler.
|
||||
;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler
|
||||
|
||||
;;; Copyright (c) 1991, 1994, 2000, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -188,7 +188,7 @@
|
|||
|
||||
(defun byte-compile-log-lap-1 (format &rest args)
|
||||
(if (aref byte-code-vector 0)
|
||||
(error "The old version of the disassembler is loaded. Reload new-bytecomp as well."))
|
||||
(error "The old version of the disassembler is loaded. Reload new-bytecomp as well"))
|
||||
(byte-compile-log-1
|
||||
(apply 'format format
|
||||
(let (c a)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; bytecomp.el --- compilation of Lisp code into byte code.
|
||||
;;; bytecomp.el --- compilation of Lisp code into byte code
|
||||
|
||||
;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1998, 2000
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
@ -10,7 +10,7 @@
|
|||
|
||||
;;; This version incorporates changes up to version 2.10 of the
|
||||
;;; Zawinski-Furuseth compiler.
|
||||
(defconst byte-compile-version "$Revision: 2.82 $")
|
||||
(defconst byte-compile-version "$Revision: 2.83 $")
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; float.el --- obsolete floating point arithmetic package.
|
||||
;;; float.el --- obsolete floating point arithmetic package
|
||||
|
||||
;; Copyright (C) 1986 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; gulp.el --- Ask for updates for Lisp packages
|
||||
;;; gulp.el --- ask for updates for Lisp packages
|
||||
|
||||
;; Copyright (C) 1996 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -23,6 +23,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; hey, here's a helping hand.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands.
|
||||
;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands
|
||||
|
||||
;; Copyright (C) 1985, 1986, 1999, 2000, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; regexp-opt.el --- generate efficient regexps to match strings.
|
||||
;;; regexp-opt.el --- generate efficient regexps to match strings
|
||||
|
||||
;; Copyright (C) 1994,95,96,97,98,99,2000 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp.
|
||||
;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp
|
||||
|
||||
;; Copyright (C) 1985 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; mlsupport.el --- run-time support for mocklisp code.
|
||||
;;; mlsupport.el --- run-time support for mocklisp code
|
||||
|
||||
;; Copyright (C) 1985 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; env.el --- functions to manipulate environment variables.
|
||||
;;; env.el --- functions to manipulate environment variables
|
||||
|
||||
;; Copyright (C) 1991, 1994 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; fast-lock.el --- Automagic text properties caching for fast Font Lock mode.
|
||||
;;; fast-lock.el --- automagic text properties caching for fast Font Lock mode
|
||||
|
||||
;; Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -7,7 +7,7 @@
|
|||
;; Keywords: faces files
|
||||
;; Version: 3.14
|
||||
|
||||
;;; This file is part of GNU Emacs.
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
|
|
|
|||
|
|
@ -24,6 +24,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'dired)
|
||||
|
|
|
|||
|
|
@ -21,6 +21,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Provide a meaningful error message if we are running on
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; frame.el --- multi-frame management independent of window systems.
|
||||
;;; frame.el --- multi-frame management independent of window systems
|
||||
|
||||
;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
@ -23,6 +23,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defvar frame-creation-function nil
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; gnus-mule.el --- Provide backward compatibility function to GNUS
|
||||
;;; gnus-mule.el --- provide backward compatibility function to GNUS
|
||||
|
||||
;; Copyright (C) 1995,1997 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
|
||||
|
|
@ -28,6 +28,8 @@
|
|||
;; This file provides the function `gnus-mule-add-group' for backward
|
||||
;; compatibility with old version of Gnus included in Emacs 20.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'gnus-sum)
|
||||
|
||||
;;;###autoload
|
||||
|
|
@ -69,4 +71,4 @@ rather than using this function."
|
|||
|
||||
(provide 'gnus-mule)
|
||||
|
||||
;; gnus-mule.el ends here
|
||||
;;; gnus-mule.el ends here
|
||||
|
|
|
|||
|
|
@ -123,7 +123,7 @@ Used for APOP authentication.")
|
|||
((equal 'pass pop3-authentication-scheme)
|
||||
(pop3-user process pop3-maildrop)
|
||||
(pop3-pass process))
|
||||
(t (error "Invalid POP3 authentication scheme.")))
|
||||
(t (error "Invalid POP3 authentication scheme")))
|
||||
(setq message-count (car (pop3-stat process)))
|
||||
(pop3-quit process)
|
||||
message-count))
|
||||
|
|
@ -293,7 +293,7 @@ If NOW, use that time instead."
|
|||
(pop3-send-command process (format "USER %s" user))
|
||||
(let ((response (pop3-read-response process t)))
|
||||
(if (not (and response (string-match "+OK" response)))
|
||||
(error (format "USER %s not valid." user)))))
|
||||
(error (format "USER %s not valid" user)))))
|
||||
|
||||
(defun pop3-pass (process)
|
||||
"Send authentication information to the server."
|
||||
|
|
|
|||
|
|
@ -173,4 +173,4 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful."
|
|||
|
||||
(provide 'gs)
|
||||
|
||||
;; gs.el ends here.
|
||||
;;; gs.el ends here
|
||||
|
|
|
|||
12
lisp/gud.el
12
lisp/gud.el
|
|
@ -289,13 +289,13 @@ off the specialized speedbar mode."
|
|||
'speedbar-highlight-face
|
||||
(cond ((eq ff 'gud-gdb-find-file)
|
||||
'gud-gdb-goto-stackframe)
|
||||
(t (error "Should never be here.")))
|
||||
(t (error "Should never be here")))
|
||||
(car frames) t))
|
||||
(setq frames (cdr frames)))
|
||||
; (let ((selected-frame
|
||||
; (cond ((eq ff 'gud-gdb-find-file)
|
||||
; (gud-gdb-selected-frame-info buffer))
|
||||
; (t (error "Should never be here."))))))
|
||||
; (t (error "Should never be here"))))))
|
||||
)
|
||||
(setq gud-last-speedbar-stackframe gud-last-last-frame)))
|
||||
|
||||
|
|
@ -464,7 +464,7 @@ available with older versions of GDB."
|
|||
(and gud-gdb-complete-list
|
||||
(string-match "^Undefined command: \"complete\""
|
||||
(car gud-gdb-complete-list))
|
||||
(error "This version of GDB doesn't support the `complete' command."))
|
||||
(error "This version of GDB doesn't support the `complete' command"))
|
||||
;; Sort the list like readline.
|
||||
(setq gud-gdb-complete-list
|
||||
(sort gud-gdb-complete-list (function string-lessp)))
|
||||
|
|
@ -692,7 +692,7 @@ and source-file directory for your debugger."
|
|||
(not (and (boundp 'tags-file-name)
|
||||
(stringp tags-file-name)
|
||||
(file-exists-p tags-file-name))))
|
||||
(error "The sdb support requires a valid tags table to work."))
|
||||
(error "The sdb support requires a valid tags table to work"))
|
||||
|
||||
(gud-common-init command-line 'gud-sdb-massage-args
|
||||
'gud-sdb-marker-filter 'gud-sdb-find-file)
|
||||
|
|
@ -1197,14 +1197,14 @@ directories if your program contains sources from more than one directory."
|
|||
;; -e goes with the next arg, so shift one extra.
|
||||
(or (funcall shift)
|
||||
;; -e as the last arg is an error in Perl.
|
||||
(error "No code specified for -e."))
|
||||
(error "No code specified for -e"))
|
||||
(setq seen-e t))
|
||||
(funcall shift))
|
||||
|
||||
(unless seen-e
|
||||
(if (or (not args)
|
||||
(string-match "^-" (car args)))
|
||||
(error "Can't use stdin as the script to debug."))
|
||||
(error "Can't use stdin as the script to debug"))
|
||||
;; This is the program name.
|
||||
(funcall shift))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,10 +1,10 @@
|
|||
;;; help-macro.el --- Makes command line help such as help-for-help
|
||||
;;; help-macro.el --- makes command line help such as help-for-help
|
||||
|
||||
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Lynn Slater <lrs@indetech.com>
|
||||
;; Maintainer: FSF
|
||||
;; Created: : Mon Oct 1 11:42:39 1990
|
||||
;; Created: Mon Oct 1 11:42:39 1990
|
||||
;; Adapted-By: ESR
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
@ -29,7 +29,7 @@
|
|||
;; This file supplies the macro make-help-screen which constructs
|
||||
;; single character dispatching with browsable help such as that provided
|
||||
;; by help-for-help. This can be used to make many modes easier to use; for
|
||||
;; example, the Gnu Emacs Empire Tool uses this for every "nested" mode map
|
||||
;; example, the GNU Emacs Empire Tool uses this for every "nested" mode map
|
||||
;; called from the main mode map.
|
||||
|
||||
;; The name of this package was changed from help-screen.el to
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; hexl.el --- edit a file in a hex dump format using the hexl filter.
|
||||
;;; hexl.el --- edit a file in a hex dump format using the hexl filter
|
||||
|
||||
;; Copyright (C) 1989, 1994, 1998, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; imenu.el --- Framework for mode-specific buffer indexes.
|
||||
;;; imenu.el --- framework for mode-specific buffer indexes
|
||||
|
||||
;; Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -59,7 +59,7 @@
|
|||
;; [christian] - Christian Egli Christian.Egli@hcsd.hac.com
|
||||
;; [karl] - Karl Fogel kfogel@floss.life.uiuc.edu
|
||||
|
||||
;;; Code
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile (require 'cl))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; info.el --- info package for Emacs.
|
||||
;;; info.el --- info package for Emacs
|
||||
|
||||
;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
|
|||
|
|
@ -439,7 +439,7 @@ Must be used only with -batch, and kills Emacs on completion.
|
|||
Each file will be processed even if an error occurred previously.
|
||||
For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\""
|
||||
(if (not noninteractive)
|
||||
(error "batch-info-validate may only be used -batch."))
|
||||
(error "batch-info-validate may only be used -batch"))
|
||||
(let ((version-control t)
|
||||
(auto-save-default nil)
|
||||
(find-file-run-dired nil)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; codepage.el --- MS-DOS/MS-Windows specific coding systems.
|
||||
;;; codepage.el --- MS-DOS/MS-Windows specific coding systems
|
||||
|
||||
;; Copyright (C) 1998 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -665,4 +665,4 @@ read/written by MS-DOS software, or for display on the MS-DOS terminal."
|
|||
|
||||
(provide 'codepage)
|
||||
|
||||
;; codepage.el ends here
|
||||
;;; codepage.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals.
|
||||
;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals
|
||||
|
||||
;; Copyright (C) 1987, 1995 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; iso-insert.el --- insert functions for ISO 8859/1.
|
||||
;;; iso-insert.el --- insert functions for ISO 8859/1
|
||||
|
||||
;; Copyright (C) 1987, 1994 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; iso-transl.el --- keyboard input definitions for ISO 8859/1.
|
||||
;;; iso-transl.el --- keyboard input definitions for ISO 8859/1
|
||||
|
||||
;; Copyright (C) 1987, 1993, 1994, 1995 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; swedish.el --- miscellaneous functions for dealing with Swedish.
|
||||
;;; swedish.el --- miscellaneous functions for dealing with Swedish
|
||||
|
||||
;; Copyright (C) 1988 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -23,6 +23,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Written by Howard Gayle. See case-table.el for details.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; isearch.el --- incremental search minor mode.
|
||||
;;; isearch.el --- incremental search minor mode
|
||||
|
||||
;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1999, 2000, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
|
|||
|
|
@ -23,7 +23,7 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
;;; Commentary:
|
||||
|
||||
;; This package implements low-level support for reading, writing,
|
||||
;; and loading compressed files. It hooks into the low-level file
|
||||
|
|
@ -917,4 +917,4 @@ Returns the new status of auto compression (non-nil means on)."
|
|||
|
||||
(provide 'jka-compr)
|
||||
|
||||
;; jka-compr.el ends here.
|
||||
;;; jka-compr.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; kermit.el --- additions to shell mode for use with kermit, etc.
|
||||
;;; kermit.el --- additions to shell mode for use with kermit
|
||||
|
||||
;; Copyright (C) 1988 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; lazy-lock.el --- Lazy demand-driven fontification for fast Font Lock mode.
|
||||
;;; lazy-lock.el --- lazy demand-driven fontification for fast Font Lock mode
|
||||
|
||||
;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
@ -8,7 +8,7 @@
|
|||
;; Keywords: faces files
|
||||
;; Version: 2.11
|
||||
|
||||
;;; This file is part of GNU Emacs.
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
;; Copyright (C) 1985 Free Software Foundation, Inc.
|
||||
|
||||
;; Maintainer: FSF
|
||||
;; Keyword: languages
|
||||
;; Keywords: languages
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; loadup.el --- load up standardly loaded Lisp files for Emacs.
|
||||
;;; loadup.el --- load up standardly loaded Lisp files for Emacs
|
||||
|
||||
;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
;;; lpr.el --- print Emacs buffer on line printer.
|
||||
;;; lpr.el --- print Emacs buffer on line printer
|
||||
|
||||
;; Copyright (C) 1985, 1988, 1992, 1994, 2001 Free Software Foundation, Inc.
|
||||
|
||||
;; Maintainer: FSF
|
||||
;; Keywords: unix
|
||||
;; Maintainer: FSF
|
||||
;; Keywords: unix
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
|
|||
|
|
@ -2,10 +2,10 @@
|
|||
|
||||
;; Copyright (C) 1992, 1994, 2000 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
|
||||
;; Modified by: Francis J. Wright <F.J.Wright@maths.qmw.ac.uk>
|
||||
;; Maintainer: FSF
|
||||
;; Keywords: unix, dired
|
||||
;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
|
||||
;; Modified by: Francis J. Wright <F.J.Wright@maths.qmw.ac.uk>
|
||||
;; Maintainer: FSF
|
||||
;; Keywords: unix, dired
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; macros.el --- non-primitive commands for keyboard macros.
|
||||
;;; macros.el --- non-primitive commands for keyboard macros
|
||||
|
||||
;; Copyright (C) 1985, 86, 87, 92, 94, 95 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -43,7 +43,7 @@ Such a \"function\" cannot be called from Lisp, but it is a valid editor command
|
|||
(and (fboundp symbol)
|
||||
(not (stringp (symbol-function symbol)))
|
||||
(not (vectorp (symbol-function symbol)))
|
||||
(error "Function %s is already defined and not a keyboard macro."
|
||||
(error "Function %s is already defined and not a keyboard macro"
|
||||
symbol))
|
||||
(if (string-equal symbol "")
|
||||
(error "No command name given"))
|
||||
|
|
@ -281,7 +281,7 @@ and then select the region of un-tablified names and use
|
|||
(or macro
|
||||
(progn
|
||||
(if (null last-kbd-macro)
|
||||
(error "No keyboard macro has been defined."))
|
||||
(error "No keyboard macro has been defined"))
|
||||
(setq macro last-kbd-macro)))
|
||||
(save-excursion
|
||||
(let ((end-marker (progn
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; blessmail.el --- Decide whether movemail needs special privileges.
|
||||
;;; blessmail.el --- decide whether movemail needs special privileges
|
||||
|
||||
;; Copyright (C) 1994 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list.
|
||||
;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list
|
||||
|
||||
;; Copyright (C) 1985, 1994, 1997, 1998 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; mail-extr.el --- extract full name and address from RFC 822 mail header.
|
||||
;;; mail-extr.el --- extract full name and address from RFC 822 mail header
|
||||
|
||||
;; Copyright (C) 1991, 1992, 1993, 1994, 1997, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; mailabbrev.el --- abbrev-expansion of mail aliases.
|
||||
;;; mailabbrev.el --- abbrev-expansion of mail aliases
|
||||
|
||||
;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
@ -638,4 +638,4 @@ Don't use this command in Lisp programs!
|
|||
(if mail-abbrevs-mode
|
||||
(mail-abbrevs-enable))
|
||||
|
||||
;;; mailabbrev.el ends here.
|
||||
;;; mailabbrev.el ends here
|
||||
|
|
|
|||
|
|
@ -3,6 +3,8 @@
|
|||
;; This is in the public domain
|
||||
;; since Delp distributed it without a copyright notice in 1986.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; Author: Gary Delp <delp@huey.Udel.Edu>
|
||||
;; Maintainer: FSF
|
||||
;; Created: 13 Jan 1986
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; rmail.el --- main code of "RMAIL" mail reader for Emacs.
|
||||
;;; rmail.el --- main code of "RMAIL" mail reader for Emacs
|
||||
|
||||
;; Copyright (C) 1985,86,87,88,93,94,95,96,97,98,2000, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
@ -23,6 +23,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Souped up by shane@mit-ajax based on ideas of rlk@athena.mit.edu
|
||||
|
|
@ -1875,7 +1877,7 @@ It returns t if it got any new messages."
|
|||
(goto-char beg)
|
||||
(forward-line 1)
|
||||
(if (/= (following-char) ?0)
|
||||
(error "Bad format in RMAIL file."))
|
||||
(error "Bad format in RMAIL file"))
|
||||
(let ((inhibit-read-only t)
|
||||
(delta (- (buffer-size) end)))
|
||||
(delete-char 1)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; rmailedit.el --- "RMAIL edit mode" Edit the current message.
|
||||
;;; rmailedit.el --- "RMAIL edit mode" Edit the current message
|
||||
|
||||
;; Copyright (C) 1985, 1994, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -22,6 +22,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'rmail)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs.
|
||||
;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs
|
||||
|
||||
;; Copyright (C) 1985, 1988, 1994, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -22,6 +22,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Global to all RMAIL buffers. It exists primarily for the sake of
|
||||
|
|
|
|||
|
|
@ -22,6 +22,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;;###autoload
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file.
|
||||
;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file
|
||||
|
||||
;; Copyright (C) 1985, 1987, 1993, 1994, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -22,6 +22,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'rmail)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; rmailsort.el --- Rmail: sort messages.
|
||||
;;; rmailsort.el --- Rmail: sort messages
|
||||
|
||||
;; Copyright (C) 1990, 1993, 1994, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -23,6 +23,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'sort)
|
||||
|
|
|
|||
|
|
@ -105,7 +105,7 @@ Emacs will list the header line in the RMAIL-summary."
|
|||
(interactive "sRegexp to summarize by: ")
|
||||
(if (string= regexp "")
|
||||
(setq regexp (or rmail-last-regexp
|
||||
(error "No regexp specified."))))
|
||||
(error "No regexp specified"))))
|
||||
(setq rmail-last-regexp regexp)
|
||||
(rmail-new-summary (concat "regexp " regexp)
|
||||
(list 'rmail-summary-by-regexp regexp)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; vms-pmail.el --- use Emacs as the editor within VMS mail.
|
||||
;;; vms-pmail.el --- use Emacs as the editor within VMS mail
|
||||
|
||||
;; Copyright (C) 1992 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -23,6 +23,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;;
|
||||
|
|
|
|||
1186
lisp/man.el
Normal file
1186
lisp/man.el
Normal file
File diff suppressed because it is too large
Load diff
|
|
@ -1,4 +1,4 @@
|
|||
;;; map-ynp.el --- General-purpose boolean question-asker.
|
||||
;;; map-ynp.el --- general-purpose boolean question-asker
|
||||
|
||||
;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 2000 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; menu-bar.el --- define a default menu bar.
|
||||
;;; menu-bar.el --- define a default menu bar
|
||||
|
||||
;; Copyright (C) 1993, 1994, 1995, 2000, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -25,6 +25,8 @@
|
|||
|
||||
;; Avishai Yacobi suggested some menu rearrangements.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;; User options:
|
||||
|
|
|
|||
|
|
@ -21,6 +21,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defun copy-from-above-command (&optional arg)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; msb.el --- Customizable buffer-selection with multiple menus.
|
||||
;;; msb.el --- customizable buffer-selection with multiple menus
|
||||
|
||||
;; Copyright (C) 1993, 94, 95, 97, 98, 99, 2000, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
|
|||
|
|
@ -4834,9 +4834,9 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
|
|||
;; think so, because expand-filename should have already short-circuited
|
||||
;; them.
|
||||
(cond ((string-equal dir-name "/")
|
||||
(error "Cannot get listing for fictitious \"/\" directory."))
|
||||
(error "Cannot get listing for fictitious \"/\" directory"))
|
||||
((string-match "^/[-A-Z0-9_$]+:/$" dir-name)
|
||||
(error "Cannot get listing for device."))
|
||||
(error "Cannot get listing for device"))
|
||||
((ange-ftp-fix-name-for-vms dir-name))))
|
||||
|
||||
(or (assq 'vms ange-ftp-fix-dir-name-func-alist)
|
||||
|
|
@ -5353,7 +5353,7 @@ Other orders of $ and _ seem to all work just fine.")
|
|||
;; Remember that there are no directories in MTS.
|
||||
(defun ange-ftp-fix-dir-name-for-mts (dir-name)
|
||||
(if (string-equal dir-name "/")
|
||||
(error "Cannot get listing for fictitious \"/\" directory.")
|
||||
(error "Cannot get listing for fictitious \"/\" directory")
|
||||
(let ((dir-name (ange-ftp-fix-name-for-mts dir-name)))
|
||||
(cond
|
||||
((string-equal dir-name "")
|
||||
|
|
@ -5542,7 +5542,7 @@ Other orders of $ and _ seem to all work just fine.")
|
|||
(defun ange-ftp-fix-dir-name-for-cms (dir-name)
|
||||
(cond
|
||||
((string-equal "/" dir-name)
|
||||
(error "Cannot get listing for fictitious \"/\" directory."))
|
||||
(error "Cannot get listing for fictitious \"/\" directory"))
|
||||
((string-match "^/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?$" dir-name)
|
||||
(let* ((minidisk (substring dir-name (match-beginning 1) (match-end 1)))
|
||||
;; host and user are bound in the call to ange-ftp-send-cmd
|
||||
|
|
|
|||
|
|
@ -239,4 +239,4 @@ Also fontifies the buffer appropriately (see `goto-address-fontify-p' and
|
|||
|
||||
(provide 'goto-addr)
|
||||
|
||||
;;; goto-addr.el ends here.
|
||||
;;; goto-addr.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; novice.el --- handling of disabled commands ("novice mode") for Emacs.
|
||||
;;; novice.el --- handling of disabled commands ("novice mode") for Emacs
|
||||
|
||||
;; Copyright (C) 1985, 1986, 1987, 1994 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,9 +1,11 @@
|
|||
;;; auto-show.el --- perform automatic horizontal scrolling as point moves
|
||||
;;; This file is in the public domain.
|
||||
|
||||
;;; Keywords: scroll display convenience
|
||||
;;; Author: Pete Ware <ware@cis.ohio-state.edu>
|
||||
;;; Maintainer: FSF
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; Keywords: scroll display convenience
|
||||
;; Author: Pete Ware <ware@cis.ohio-state.edu>
|
||||
;; Maintainer: FSF
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
|
|
@ -46,5 +48,4 @@ to auto-show from your init file and code."
|
|||
|
||||
(provide 'auto-show)
|
||||
|
||||
;; auto-show.el ends here
|
||||
|
||||
;;; auto-show.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; hilit19.el --- customizable highlighting for Emacs19
|
||||
;;; hilit19.el --- customizable highlighting for Emacs 19
|
||||
|
||||
;; Copyright (c) 1993, 1994 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -26,7 +26,7 @@
|
|||
|
||||
;;; Commentary:
|
||||
|
||||
;; Hilit19.el is a customizable highlighting package for Emacs19. It supports
|
||||
;; Hilit19.el is a customizable highlighting package for Emacs 19. It supports
|
||||
;; not only source code highlighting, but also Info, RMAIL, VM, gnus...
|
||||
;; Hilit19 knows (or thinks it knows) how to highlight emacs buffers in
|
||||
;; about 25 different modes.
|
||||
|
|
@ -1512,4 +1512,4 @@ number of backslashes."
|
|||
|
||||
(provide 'hilit19)
|
||||
|
||||
;;; hilit19 ends here.
|
||||
;;; hilit19.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; outline.el --- outline mode commands for Emacs
|
||||
;;; ooutline.el --- outline mode commands for Emacs
|
||||
|
||||
;; Copyright (C) 1986, 1993, 1994, 1997 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -582,4 +582,4 @@ Stop at the first and last subheadings of a superior heading."
|
|||
|
||||
(provide 'outline)
|
||||
|
||||
;;; outline.el ends here
|
||||
;;; ooutline.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; rnews.el --- USENET news reader for gnu emacs
|
||||
;;; rnews.el --- USENET news reader for GNU Emacs
|
||||
|
||||
;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -51,6 +51,8 @@
|
|||
;; tower@gnu.org Nov 21 1986
|
||||
;; added tower@gnu.org 22 Apr 87
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'mail-utils)
|
||||
|
|
|
|||
|
|
@ -52,6 +52,8 @@
|
|||
;;; >> Nuked by Mly to autoload those functions again, as the duplication of
|
||||
;;; >> code was making maintenance too difficult.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'sendmail)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; options.el --- edit Options command for Emacs.
|
||||
;;; options.el --- edit Options command for Emacs
|
||||
|
||||
;; Copyright (C) 1985 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; paren.el --- highlight matching paren.
|
||||
;;; paren.el --- highlight matching paren
|
||||
|
||||
;; Copyright (C) 1993, 1996 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; paths.el --- define pathnames for use by various Emacs commands.
|
||||
;;; paths.el --- define pathnames for use by various Emacs commands
|
||||
|
||||
;; Copyright (C) 1986, 1988, 1994, 1999, 2000 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; dissociate.el --- scramble text amusingly for Emacs.
|
||||
;;; dissociate.el --- scramble text amusingly for Emacs
|
||||
|
||||
;; Copyright (C) 1985 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; doctor.el --- psychological help for frustrated users.
|
||||
;;; doctor.el --- psychological help for frustrated users
|
||||
|
||||
;; Copyright (C) 1985, 1987, 1994, 1996, 2000 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -7,6 +7,7 @@
|
|||
; Author (a) 1985, Damon Anton Permezel
|
||||
; This is in the public domain
|
||||
; since he distributed it without copyright notice in 1985.
|
||||
;; This file is part of GNU Emacs.
|
||||
;
|
||||
; Support for horizontal poles, large numbers of rings, real-time,
|
||||
; faces, defcustom, and Towers of Unix added in 1999 by Alakazam
|
||||
|
|
|
|||
|
|
@ -3,6 +3,8 @@
|
|||
;; This is in the public domain on account of being distributed since
|
||||
;; 1985 or 1986 without a copyright notice.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; Maintainer: FSF
|
||||
;; Keywords: games
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; compile.el --- run compiler as inferior of Emacs, parse error messages.
|
||||
;;; compile.el --- run compiler as inferior of Emacs, parse error messages
|
||||
|
||||
;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 1999 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -4509,5 +4509,4 @@ EVENT is the mouse event."
|
|||
;;; eval:(put 'ebrowse-for-all-trees 'lisp-indent-hook 1)
|
||||
;;; End:
|
||||
|
||||
;;; ebrowse.el ends here.
|
||||
|
||||
;;; ebrowse.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; hide-ifdef-mode.el --- hides selected code within ifdef.
|
||||
;;; hideif.el --- hides selected code within ifdef
|
||||
|
||||
;; Copyright (C) 1988, 1994 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -1075,4 +1075,3 @@ Return as (TOP . BOTTOM) the extent of ifdef block."
|
|||
(provide 'hideif)
|
||||
|
||||
;;; hideif.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -5,6 +5,8 @@
|
|||
;; Maintainer: FSF
|
||||
;; Keywords: languages
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; The authors distributed this without a copyright notice
|
||||
;; back in 1988, so it is in the public domain. The original included
|
||||
;; the following credit:
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; register.el --- register commands for Emacs.
|
||||
;;; register.el --- register commands for Emacs
|
||||
|
||||
;; Copyright (C) 1985, 1993, 1994 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
;;; rot13.el --- display a buffer in rot13.
|
||||
;;; rot13.el --- display a buffer in rot13
|
||||
|
||||
;; Copyright (C) 1988 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Howard Gayle:
|
||||
;; Author: Howard Gayle
|
||||
;; Maintainer: FSF
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; saveplace.el --- automatically save place in files.
|
||||
;;; saveplace.el --- automatically save place in files
|
||||
|
||||
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -238,4 +238,3 @@ To save places automatically in all files, put this in your `.emacs' file:
|
|||
(provide 'saveplace) ; why not...
|
||||
|
||||
;;; saveplace.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; scroll-bar.el --- window system-independent scroll bar support.
|
||||
;;; scroll-bar.el --- window system-independent scroll bar support
|
||||
|
||||
;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; server.el --- Lisp code for GNU Emacs running as server process.
|
||||
;;; server.el --- Lisp code for GNU Emacs running as server process
|
||||
|
||||
;; Copyright (C) 1986, 87, 92, 94, 95, 96, 97, 98, 99, 2000, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; sort.el --- commands to sort text in an Emacs buffer.
|
||||
;;; sort.el --- commands to sort text in an Emacs buffer
|
||||
|
||||
;; Copyright (C) 1986, 1987, 1994, 1995 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -29,7 +29,7 @@
|
|||
;; The Soundex algorithm maps English words into representations of
|
||||
;; how they sound. Words with vaguely similar sound map to the same string.
|
||||
|
||||
;;; Code:
|
||||
;;; Code:
|
||||
|
||||
(defvar soundex-alist
|
||||
'((?B . "1") (?F . "1") (?P . "1") (?V . "1")
|
||||
|
|
@ -73,4 +73,4 @@ and Searching\", Addison-Wesley (1973), pp. 391-392."
|
|||
|
||||
(provide 'soundex)
|
||||
|
||||
;; soundex.el ends here
|
||||
;;; soundex.el ends here
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Reference in a new issue