Mercurial > emacs
changeset 38414:67b464da13ec
Some fixes to follow coding conventions.
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/ChangeLog Sun Jul 15 19:53:53 2001 +0000 @@ -1,5 +1,52 @@ 2001-07-15 Pavel Jan,Bm(Bk <Pavel@Janik.cz> + * eshell/em-alias.el, eshell/em-banner.el, eshell/em-basic.el, + eshell/em-cmpl.el, eshell/em-dirs.el, eshell/em-glob.el, + eshell/em-hist.el, eshell/em-ls.el, eshell/em-pred.el, + eshell/em-prompt.el, eshell/em-rebind.el, eshell/em-script.el, + eshell/em-smart.el, eshell/em-term.el, eshell/em-unix.el, + eshell/em-xtra.el, eshell/esh-arg.el, eshell/esh-cmd.el, + eshell/esh-ext.el, eshell/esh-io.el, eshell/esh-maint.el, + eshell/esh-mode.el, eshell/esh-module.el, eshell/esh-opt.el, + eshell/esh-proc.el, eshell/esh-test.el, eshell/esh-util.el, + eshell/esh-var.el, eshell/eshell.el: Some fixes to follow coding + conventions in Eshell files. + + * composite.el, diff.el, emacs-lisp/levents.el, + emacs-lisp/lmenu.el, emacs-lisp/lselect.el, emacs-lisp/lucid.el, + emulation/pc-mode.el, emulation/viper-cmd.el, + emulation/viper-ex.el, emulation/viper-init.el, + emulation/viper-keym.el, emulation/viper-macs.el, + emulation/viper-mous.el, emulation/viper-util.el, + emulation/viper.el, forms-pass.el, international/ccl.el, + international/characters.el, international/encoded-kb.el, + international/fontset.el, international/ja-dic-cnv.el, + international/ja-dic-utl.el, international/kinsoku.el, + international/kkc.el, international/mule-cmds.el, + international/mule-diag.el, international/mule-util.el, + international/mule.el, international/titdic-cnv.el, + language/china-util.el, language/chinese.el, + language/cyril-util.el, language/cyrillic.el, language/english.el, + language/greek.el, language/hebrew.el, language/japan-util.el, + language/japanese.el, language/korea-util.el, language/korean.el, + language/lao-util.el, language/lao.el, language/misc-lang.el, + language/slovak.el, language/thai-util.el, language/thai.el, + language/viet-util.el, language/vietnamese.el, mail/mh-comp.el, + mail/mh-e.el, mail/mh-funcs.el, mail/mh-mime.el, mail/mh-pick.el, + mail/mh-seq.el, mail/mh-utils.el, mail/sc.el, mail/unrmail.el, + midnight.el, patcomp.el, pcmpl-cvs.el, pcmpl-gnu.el, + pcmpl-linux.el, pcmpl-rpm.el, pcmpl-unix.el, play/studly.el, + play/zone.el, replace.el, select.el, subr.el, talk.el, term.el, + term/apollo.el, term/bobcat.el, term/linux.el, term/lk201.el, + term/vt102.el, term/vt125.el, term/vt200.el, term/vt201.el, + term/vt220.el, term/vt240.el, term/vt300.el, term/vt320.el, + term/vt400.el, term/vt420.el, x-apollo.el, x-menu.el: Some fixes + to follow coding conventions in files without maintainer or in + files with clear maintainer (but without Maintainer header stating + so). + + * emacs-lisp/elp.el: A fix to follow coding conventions. + * gnus/binhex.el, gnus/binhex.el, gnus/earcon.el, gnus/gnus-agent.el, gnus/gnus-art.el, gnus/gnus-audio.el, gnus/gnus-logic.el, gnus/gnus-ml.el, gnus/gnus-mlspl.el,
--- a/lisp/composite.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/composite.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; composite.el --- Support character composition. +;;; composite.el --- support character composition ;; Copyright (C) 1999 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;;###autoload
--- a/lisp/diff.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/diff.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; diff.el --- Run `diff' in compilation-mode. +;;; diff.el --- run `diff' in compilation-mode ;; Copyright (C) 1992, 1994, 1996 Free Software Foundation, Inc.
--- a/lisp/emacs-lisp/elp.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emacs-lisp/elp.el Sun Jul 15 19:53:53 2001 +0000 @@ -2,10 +2,10 @@ ;; Copyright (C) 1994,1995,1997,1998, 2001 Free Software Foundation, Inc. -;; Author: 1994-1998 Barry A. Warsaw -;; Maintainer: FSF -;; Created: 26-Feb-1994 -;; Keywords: debugging lisp tools +;; Author: Barry A. Warsaw +;; Maintainer: FSF +;; Created: 26-Feb-1994 +;; Keywords: debugging lisp tools ;; This file is part of GNU Emacs. @@ -331,7 +331,7 @@ \\[elp-instrument-package] RET elp- RET" (interactive "sPrefix of package to instrument: ") (if (zerop (length prefix)) - (error "Instrumenting all Emacs functions would render Emacs unusable.")) + (error "Instrumenting all Emacs functions would render Emacs unusable")) (elp-instrument-list (mapcar 'intern @@ -362,7 +362,7 @@ (interactive "aFunction to reset: ") (let ((info (get funsym elp-timer-info-property))) (or info - (error "%s is not instrumented for profiling." funsym)) + (error "%s is not instrumented for profiling" funsym)) (aset info 0 0) ;reset call counter (aset info 1 0.0) ;reset total time ;; don't muck with aref 2 as that is the old symbol definition @@ -417,7 +417,7 @@ (func (aref info 2)) result) (or func - (error "%s is not instrumented for profiling." funsym)) + (error "%s is not instrumented for profiling" funsym)) (if (not elp-record-p) ;; when not recording, just call the original function symbol ;; and return the results. @@ -591,4 +591,4 @@ (provide 'elp) -;; elp.el ends here +;;; elp.el ends here
--- a/lisp/emacs-lisp/levents.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emacs-lisp/levents.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; levents.el --- emulate the Lucid event data type and associated functions. +;;; levents.el --- emulate the Lucid event data type and associated functions ;; Copyright (C) 1993 Free Software Foundation, Inc.
--- a/lisp/emacs-lisp/lmenu.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emacs-lisp/lmenu.el Sun Jul 15 19:53:53 2001 +0000 @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code:
--- a/lisp/emacs-lisp/lselect.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emacs-lisp/lselect.el Sun Jul 15 19:53:53 2001 +0000 @@ -24,6 +24,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;; The selection code requires us to use certain symbols whose names are @@ -229,4 +231,4 @@ (provide 'lselect) -;;; lselect.el ends here. +;;; lselect.el ends here
--- a/lisp/emacs-lisp/lucid.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emacs-lisp/lucid.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; lucid.el --- Emulate some Lucid Emacs functions. +;;; lucid.el --- emulate some Lucid Emacs functions ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc. @@ -19,6 +19,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; XEmacs autoloads CL so we might as well make use of it. @@ -224,4 +226,4 @@ (provide 'lucid) -;;; end of lucid.el +;;; lucid.el ends here
--- a/lisp/emulation/pc-mode.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emulation/pc-mode.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; pc-mode.el --- emulate certain key bindings used on PCs. +;;; pc-mode.el --- emulate certain key bindings used on PCs ;; Copyright (C) 1995 Free Software Foundation, Inc. @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;;###autoload @@ -51,4 +53,4 @@ (provide 'pc-mode) -;; pc-mode.el ends here +;;; pc-mode.el ends here
--- a/lisp/emulation/viper-cmd.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emulation/viper-cmd.el Sun Jul 15 19:53:53 2001 +0000 @@ -18,7 +18,9 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;; Code +;;; Commentary: + +;;; Code: (provide 'viper-cmd) (require 'advice) @@ -1489,7 +1491,7 @@ (com (nth 2 viper-d-com)) (reg (nth 3 viper-d-com))) (if (null val) (setq val (nth 1 viper-d-com))) - (if (null m-com) (error "No previous command to repeat.")) + (if (null m-com) (error "No previous command to repeat")) (setq viper-use-register reg) (if (nth 4 viper-d-com) ; text inserted by command (setq viper-last-insertion (nth 4 viper-d-com) @@ -4902,4 +4904,4 @@ -;;; viper-cmd.el ends here +;;; viper-cmd.el ends here
--- a/lisp/emulation/viper-ex.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emulation/viper-ex.el Sun Jul 15 19:53:53 2001 +0000 @@ -19,7 +19,9 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;; Code +;;; Commentary: + +;;; Code: (provide 'viper-ex) @@ -1436,7 +1438,7 @@ (if name (if (eq 1 (length name)) (setq char (string-to-char name)) - (error "`%s': Spurious text \"%s\" after mark name." + (error "`%s': Spurious text \"%s\" after mark name" name (substring name 1) viper-SpuriousText)) (save-window-excursion (setq viper-ex-work-buf (get-buffer-create viper-ex-work-buf-name)) @@ -2221,4 +2223,4 @@ -;;; viper-ex.el ends here +;;; viper-ex.el ends here
--- a/lisp/emulation/viper-init.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emulation/viper-init.el Sun Jul 15 19:53:53 2001 +0000 @@ -19,7 +19,9 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;; Code +;;; Commentary: + +;;; Code: (provide 'viper-init) @@ -986,4 +988,4 @@ ;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun) ;;; End: -;;; viper-ex.el ends here +;;; viper-init.el ends here
--- a/lisp/emulation/viper-keym.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emulation/viper-keym.el Sun Jul 15 19:53:53 2001 +0000 @@ -19,7 +19,9 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;; Code +;;; Commentary: + +;;; Code: (provide 'viper-keym) @@ -630,4 +632,4 @@ ;;; End: -;;; viper-keym.el ends here +;;; viper-keym.el ends here
--- a/lisp/emulation/viper-macs.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emulation/viper-macs.el Sun Jul 15 19:53:53 2001 +0000 @@ -19,7 +19,9 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;; Code +;;; Commentary: + +;;; Code: (provide 'viper-macs) @@ -945,4 +947,4 @@ (call-last-kbd-macro))) -;;; viper-macs.el ends here +;;; viper-macs.el ends here
--- a/lisp/emulation/viper-mous.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emulation/viper-mous.el Sun Jul 15 19:53:53 2001 +0000 @@ -19,7 +19,9 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;; Code +;;; Commentary: + +;;; Code: (provide 'viper-mous) @@ -247,7 +249,7 @@ (goto-char click-pos) (setq click-word (funcall viper-surrounding-word-function count click-count))) - (error "Click must be over a window.")) + (error "Click must be over a window")) click-word)))) @@ -664,4 +666,4 @@ ;;; End: -;;; viper-mous.el ends here +;;; viper-mous.el ends here
--- a/lisp/emulation/viper-util.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emulation/viper-util.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; viper-util.el --- Utilities used by viper.el +;;; viper-util.el --- utilities used by viper.el ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc. @@ -19,8 +19,9 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: -;; Code +;;; Code: ;; Compiler pacifier (defvar viper-overriding-map) @@ -1382,4 +1383,4 @@ ;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun) ;;; End: -;;; viper-util.el ends here +;;; viper-util.el ends here
--- a/lisp/emulation/viper.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/emulation/viper.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,10 +1,10 @@ -;;; viper.el --- A full-featured Vi emulator for GNU Emacs and XEmacs, +;;; viper.el --- a full-featured Vi emulator for GNU Emacs and XEmacs, ;; a VI Plan for Emacs Rescue, ;; and a venomous VI PERil. ;; Viper Is also a Package for Emacs Rebels. ;; -;; Keywords: emulations -;; Author: Michael Kifer <kifer@cs.sunysb.edu> +;; Keywords: emulations +;; Author: Michael Kifer <kifer@cs.sunysb.edu> ;; Copyright (C) 1994, 95, 96, 97, 98, 99, 2000, 01 Free Software Foundation, Inc. @@ -294,7 +294,7 @@ ;; much easier. ;; -;; Code +;;; Code: (require 'advice) (require 'cl) @@ -1280,4 +1280,4 @@ ;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun) ;;; End: -;;; viper.el ends here +;;; viper.el ends here
--- a/lisp/eshell/em-alias.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-alias.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-alias --- creation and management of command aliases +;;; em-alias.el --- creation and management of command aliases ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/em-banner.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-banner.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-banner --- sample module that displays a login banner +;;; em-banner.el --- sample module that displays a login banner ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/em-basic.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-basic.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-basic --- basic shell builtin commands +;;; em-basic.el --- basic shell builtin commands ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/em-cmpl.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-cmpl.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-cmpl --- completion using the TAB key +;;; em-cmpl.el --- completion using the TAB key ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/em-dirs.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-dirs.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-dirs --- directory navigation commands +;;; em-dirs.el --- directory navigation commands ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/em-glob.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-glob.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-glob --- extended file name globbing +;;; em-glob.el --- extended file name globbing ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/em-hist.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-hist.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-hist --- history list management +;;; em-hist.el --- history list management ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/em-ls.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-ls.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-ls --- implementation of ls in Lisp +;;; em-ls.el --- implementation of ls in Lisp ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/em-pred.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-pred.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-pred --- argument predicates and modifiers (ala zsh) +;;; em-pred.el --- argument predicates and modifiers (ala zsh) ;; Copyright (C) 1999, 2000 Free Software Foundation @@ -58,6 +58,8 @@ ;; See the zsh docs for more on the syntax ([(zsh.info)Filename ;; Generation]). +;;; Code: + ;;; User Variables: (defcustom eshell-pred-load-hook '(eshell-pred-initialize)
--- a/lisp/eshell/em-prompt.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-prompt.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-prompt --- command prompts +;;; em-prompt.el --- command prompts ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/em-rebind.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-rebind.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-rebind --- rebind keys when point is at current input +;;; em-rebind.el --- rebind keys when point is at current input ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/em-script.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-script.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-script --- Eshell script files +;;; em-script.el --- Eshell script files ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/em-smart.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-smart.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-smart --- smart display of output +;;; em-smart.el --- smart display of output ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/em-term.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-term.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-term --- running visual commands +;;; em-term.el --- running visual commands ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/em-unix.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-unix.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-unix --- UNIX command aliases +;;; em-unix.el --- UNIX command aliases ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation
--- a/lisp/eshell/em-xtra.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/em-xtra.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; em-xtra --- extra alias functions +;;; em-xtra.el --- extra alias functions ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/esh-arg.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/esh-arg.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; esh-arg --- argument processing +;;; esh-arg.el --- argument processing ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/esh-cmd.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/esh-cmd.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; esh-cmd --- command invocation +;;; esh-cmd.el --- command invocation ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/esh-ext.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/esh-ext.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; esh-ext --- commands external to Eshell +;;; esh-ext.el --- commands external to Eshell ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/esh-io.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/esh-io.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; esh-io --- I/O management +;;; esh-io.el --- I/O management ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/esh-maint.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/esh-maint.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; esh-maint --- init code for building eshell +;;; esh-maint.el --- init code for building eshell ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/esh-mode.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/esh-mode.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; esh-mode --- user interface +;;; esh-mode.el --- user interface ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/esh-module.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/esh-module.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; esh-module --- Eshell modules +;;; esh-module.el --- Eshell modules ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/esh-opt.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/esh-opt.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; esh-opt --- command options processing +;;; esh-opt.el --- command options processing ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/esh-proc.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/esh-proc.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; esh-proc --- process management +;;; esh-proc.el --- process management ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/esh-test.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/esh-test.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; esh-test --- Eshell test suite +;;; esh-test.el --- Eshell test suite ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/esh-util.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/esh-util.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; esh-util --- general utilities +;;; esh-util.el --- general utilities ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation
--- a/lisp/eshell/esh-var.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/esh-var.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; esh-var --- handling of variables +;;; esh-var.el --- handling of variables ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/eshell/eshell.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/eshell/eshell.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; eshell --- the Emacs command shell +;;; eshell.el --- the Emacs command shell ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/forms-pass.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/forms-pass.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,7 +1,13 @@ ;;; forms-pass.el --- passwd file demo for forms-mode +;; This file is part of GNU Emacs. + +;;; Commentary: + ;; This demo visits your passwd file. +;;; Code: + ;; use yp if present (or (file-exists-p (setq forms-file "/var/yp/src/passwd")) (setq forms-file "/etc/passwd")) @@ -23,3 +29,5 @@ "\n\n" "Shell: " 7 "\n")) + +;;; forms-pass.el ends here
--- a/lisp/international/ccl.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/international/ccl.el Sun Jul 15 19:53:53 2001 +0000 @@ -317,7 +317,7 @@ (defun ccl-check-register (arg cmd) (if (get arg 'ccl-register-number) arg - (error "CCL: Invalid register %s in %s." arg cmd))) + (error "CCL: Invalid register %s in %s" arg cmd))) ;; Check if ARG is a valid CCL command. (defun ccl-check-compile-function (arg cmd) @@ -1483,4 +1483,4 @@ (provide 'ccl) -;; ccl.el ends here +;;; ccl.el ends here
--- a/lisp/international/characters.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/international/characters.el Sun Jul 15 19:53:53 2001 +0000 @@ -30,6 +30,8 @@ ;; This file does not define the syntax for Latin-N character sets; ;; those are defined by the files latin-N.el. +;;; Code: + ;;; Predefined categories. ;; For each character set. @@ -827,4 +829,4 @@ ;;; coding: iso-2022-7bit ;;; End: -;;; end of characters.el +;;; characters.el ends here
--- a/lisp/international/encoded-kb.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/international/encoded-kb.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; encoded-kb.el --- Handler to input multibyte characters encoded somehow +;;; encoded-kb.el --- handler to input multibyte characters encoded somehow ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -20,6 +20,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (defvar encoded-kbd-mode nil "Non-nil if in Encoded-kbd minor mode.") (put 'encoded-kbd-mode 'permanent-local t)
--- a/lisp/international/fontset.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/international/fontset.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; fontset.el --- Commands for handling fontset. +;;; fontset.el --- commands for handling fontset ;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; Set standard fontname specification of characters in the default
--- a/lisp/international/ja-dic-cnv.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/international/ja-dic-cnv.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; ja-dic-cnv.el --- Convert a Japanese dictionary (SKK-JISYO.L) to Emacs Lisp +;;; ja-dic-cnv.el --- convert a Japanese dictionary (SKK-JISYO.L) to Emacs Lisp ;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -562,8 +562,8 @@ (provide 'ja-dic-cnv) -;; ja-dic-cnv.el ends here - ;; Local Variables: ;; coding: iso-2022-7bit ;; End: + +;;; ja-dic-cnv.el ends here
--- a/lisp/international/ja-dic-utl.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/international/ja-dic-utl.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; ja-dic-utl.el --- Utilities for handling Japanese dictionary (SKK-JISYO.L) +;;; ja-dic-utl.el --- utilities for handling Japanese dictionary (SKK-JISYO.L) ;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -213,8 +213,8 @@ ;; (provide 'ja-dic-utl) -;; ja-dic-utl.el ends here - ;; Local Variables: ;; coding: iso-2022-7bit ;; End: + +;;; ja-dic-utl.el ends here
--- a/lisp/international/kinsoku.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/international/kinsoku.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; kinsoku.el --- `Kinsoku' processing funcs. -*- coding: iso-2022-7bit; -*- +;;; kinsoku.el --- `Kinsoku' processing funcs -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -170,4 +170,4 @@ (aref (char-category-set (preceding-char)) ?<)) (kinsoku-shorter linebeg)))) -;; kinsoku.el ends here +;;; kinsoku.el ends here
--- a/lisp/international/kkc.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/international/kkc.el Sun Jul 15 19:53:53 2001 +0000 @@ -655,4 +655,4 @@ ;; (provide 'kkc) -;; kkc.el ends here +;;; kkc.el ends here
--- a/lisp/international/mule-cmds.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/international/mule-cmds.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; mule-cmds.el --- Commands for mulitilingual environment +;;; mule-cmds.el --- commands for mulitilingual environment ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (eval-when-compile (defvar dos-codepage))
--- a/lisp/international/mule-diag.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/international/mule-diag.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; mule-diag.el --- Show diagnosis of multilingual environment (Mule) +;;; mule-diag.el --- show diagnosis of multilingual environment (Mule) ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -22,6 +22,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + ;;; General utility function ;; Print all arguments with single space separator in one line.
--- a/lisp/international/mule-util.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/international/mule-util.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; mule-util.el --- Utility functions for mulitilingual environment (mule) +;;; mule-util.el --- utility functions for mulitilingual environment (mule) ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;; String manipulations while paying attention to multibyte
--- a/lisp/international/mule.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/international/mule.el Sun Jul 15 19:53:53 2001 +0000 @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defconst mule-version "5.0 (SAKAKI)" "\
--- a/lisp/international/titdic-cnv.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/international/titdic-cnv.el Sun Jul 15 19:53:53 2001 +0000 @@ -22,7 +22,7 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;;; Comments: +;;; Commentary: ;; Convert cxterm dictionary (of TIT format) to quail-package. ;; @@ -1179,8 +1179,8 @@ (miscdic-convert filename dir)))) (kill-emacs 0)) -;;; titdic-cnv.el ends here - ;; Local Variables: ;; coding: iso-2022-7bit ;; End: + +;;; titdic-cnv.el ends here
--- a/lisp/language/china-util.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/china-util.el Sun Jul 15 19:53:53 2001 +0000 @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; Hz/ZW encoding stuffs
--- a/lisp/language/chinese.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/chinese.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; chinese.el --- Support for Chinese -*- coding: iso-2022-7bit; -*- +;;; chinese.el --- support for Chinese -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation.
--- a/lisp/language/cyril-util.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/cyril-util.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; cyril-util.el --- utilities for Cyrillic scripts +;;; cyril-util.el --- utilities for Cyrillic scripts ;; Copyright (C) 1997 Free Software Foundation, Inc. @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;;###autoload @@ -189,8 +191,8 @@ ;; (provide 'cyril-util) -;;; cyril-util.el ends here - ;; Local Variables: ;; coding: iso-2022-7bit ;; End: + +;;; cyril-util.el ends here
--- a/lisp/language/cyrillic.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/cyrillic.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; cyrillic.el --- Support for Cyrillic -*- coding: iso-2022-7bit; -*- +;;; cyrillic.el --- support for Cyrillic -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation.
--- a/lisp/language/english.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/english.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; english.el --- English support +;;; english.el --- support for English ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -28,7 +28,7 @@ ;; English as a language environment is one of the ways to reset ;; various multilingual environment to the original settting. -;;; Code +;;; Code: (set-language-info-alist "English" '((tutorial . "TUTORIAL")
--- a/lisp/language/greek.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/greek.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; greek.el --- Support for Greek +;;; greek.el --- support for Greek ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation.
--- a/lisp/language/hebrew.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/hebrew.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; hebrew.el --- Support for Hebrew -*- coding: iso-2022-7bit; -*- +;;; hebrew.el --- support for Hebrew -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation.
--- a/lisp/language/japan-util.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/japan-util.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,5 +1,4 @@ -;;; japan-util.el --- utilities for Japanese -*- coding: iso-2022-7bit; -*- - +;;; japan-util.el --- utilities for Japanese -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -24,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defvar sentence-end-save nil)
--- a/lisp/language/japanese.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/japanese.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; japanese.el --- Japanese support -*- coding: iso-2022-7bit; -*- +;;; japanese.el --- support for Japanese -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation.
--- a/lisp/language/korea-util.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/korea-util.el Sun Jul 15 19:53:53 2001 +0000 @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;;###autoload @@ -133,4 +135,4 @@ ;; (provide 'korea-util) -;;; korean-util.el ends here +;;; korea-util.el ends here
--- a/lisp/language/korean.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/korean.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; korean.el --- Support for Korean -*- coding: iso-2022-7bit; -*- +;;; korean.el --- support for Korean -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation.
--- a/lisp/language/lao-util.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/lao-util.el Sun Jul 15 19:53:53 2001 +0000 @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; Setting information of Thai characters.
--- a/lisp/language/lao.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/lao.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; lao.el --- Support for Lao -*- coding: iso-2022-7bit; -*- +;;; lao.el --- support for Lao -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (make-coding-system
--- a/lisp/language/misc-lang.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/misc-lang.el Sun Jul 15 19:53:53 2001 +0000 @@ -22,6 +22,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; IPA (International Phonetic Alphabet) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -40,4 +44,3 @@ (provide 'misc-lang) ;;; misc-lang.el ends here -
--- a/lisp/language/slovak.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/slovak.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; slovak.el --- Support for Slovak -*- coding: iso-2022-7bit; -*- +;;; slovak.el --- support for Slovak -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1998, 2001 Free Software Foundation. @@ -48,4 +48,4 @@ (provide 'slovak) -;; slovak.el ends here +;;; slovak.el ends here
--- a/lisp/language/thai-util.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/thai-util.el Sun Jul 15 19:53:53 2001 +0000 @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; Setting information of Thai characters.
--- a/lisp/language/thai.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/thai.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; thai.el --- Support for Thai -*- coding: iso-2022-7bit; -*- +;;; thai.el --- support for Thai -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation.
--- a/lisp/language/viet-util.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/viet-util.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; viet-util.el --- utilities for Vietnamese -*- coding: iso-2022-7bit; -*- +;;; viet-util.el --- utilities for Vietnamese -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation.
--- a/lisp/language/vietnamese.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/language/vietnamese.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; vietnamese.el --- Support for Vietnamese -*- coding: iso-2022-7bit; -*- +;;; vietnamese.el --- support for Vietnamese -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation.
--- a/lisp/mail/mh-comp.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/mail/mh-comp.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,5 +1,5 @@ -;;; mh-comp --- mh-e functions for composing messages -;; Time-stamp: <95/08/19 17:48:59 gildea> +;;; mh-comp.el --- mh-e functions for composing messages +;; Time-stamp: <2001-07-15 09:36:30 pavel> ;; Copyright (C) 1993,1995,1997,2000 Free Software Foundation, Inc. @@ -7,7 +7,7 @@ ;; Keywords: mail ;; Bug-reports: include `M-x mh-version' output in any correspondence -;; This file is part of mh-e, 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 @@ -30,7 +30,7 @@ ;;; Change Log: -;; $Id: mh-comp.el,v 1.20 2000/11/02 12:37:38 gerd Exp $ +;; $Id: mh-comp.el,v 1.21 2001/02/08 00:01:35 fx Exp $ ;;; Code: @@ -576,7 +576,7 @@ (if (y-or-n-p (format "A draft exists. Use for %s? " use)) (if mh-error-if-no-draft - (error "A prior draft exists.")) + (error "A prior draft exists")) t))) (erase-buffer) (insert-file-contents initial-contents) @@ -1103,3 +1103,5 @@ (autoload 'mh-revert-mhn-edit "mh-mime" "Undoes the effect of \\[mh-edit-mhn] by reverting to the backup file. Optional non-nil argument means don't ask for confirmation." t) + +;;; mh-comp.el ends here
--- a/lisp/mail/mh-e.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/mail/mh-e.el Sun Jul 15 19:53:53 2001 +0000 @@ -7,7 +7,7 @@ ;; Keywords: mail ;; Bug-reports: include `M-x mh-version' output in any correspondence -;; This file is part of mh-e, 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 @@ -60,7 +60,7 @@ ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu ;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu -(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.26 2000/08/16 20:38:40 monnier Exp $") +(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.27 2000/11/02 12:37:54 gerd Exp $") ;;; Code: @@ -629,7 +629,7 @@ (save-excursion (mh-goto-msg msg nil t) (if (looking-at mh-refiled-msg-regexp) - (error "Message %d is refiled. Undo refile before deleting." msg)) + (error "Message %d is refiled. Undo refile before deleting" msg)) (if (looking-at mh-deleted-msg-regexp) nil (mh-set-folder-modified-p t) @@ -643,7 +643,7 @@ (save-excursion (mh-goto-msg msg nil t) (cond ((looking-at mh-deleted-msg-regexp) - (error "Message %d is deleted. Undo delete before moving." msg)) + (error "Message %d is deleted. Undo delete before moving" msg)) ((looking-at mh-refiled-msg-regexp) (if (y-or-n-p (format "Message %d already refiled. Copy to %s as well? "
--- a/lisp/mail/mh-funcs.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/mail/mh-funcs.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,9 +1,9 @@ -;;; mh-funcs --- mh-e functions not everyone will use right away -;; Time-stamp: <95/08/19 16:44:06 gildea> +;;; mh-funcs.el --- mh-e functions not everyone will use right away +;; Time-stamp: <2001-07-14 13:08:45 pavel> ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc. -;; This file is part of mh-e, 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 @@ -28,7 +28,7 @@ ;;; Change Log: -;; $Id: mh-funcs.el,v 1.4 1995/11/03 02:29:34 kwzh Exp erik $ +;; $Id: mh-funcs.el,v 1.5 1996/01/14 07:34:30 erik Exp $ ;;; Code: @@ -352,3 +352,4 @@ (mh-handle-process-error command value)) (insert "\n(mh-store finished)\n"))) +;;; mh-funcs.el ends here
--- a/lisp/mail/mh-mime.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/mail/mh-mime.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,9 +1,9 @@ -;;; mh-mime --- mh-e support for composing MIME messages -;; Time-stamp: <95/08/19 16:45:17 gildea> +;;; mh-mime.el --- mh-e support for composing MIME messages +;; Time-stamp: <2001-07-15 09:52:45 pavel> ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc. -;; This file is part of mh-e, 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 @@ -28,7 +28,7 @@ ;;; Change Log: -;; $Id: mh-mime.el,v 1.7 1997/01/13 03:25:05 rms Exp kwzh $ +;; $Id: mh-mime.el,v 1.8 1998/09/23 21:51:50 kwzh Exp $ ;;; Code: @@ -234,8 +234,10 @@ (or noconfirm (yes-or-no-p (format "Revert buffer from file %s? " backup-file)) - (error "mhn edit revert not confirmed.")) + (error "mhn edit revert not confirmed")) (let ((buffer-read-only nil)) (erase-buffer) (insert-file-contents backup-file)) (after-find-file nil))) + +;;; mh-mime.el ends here
--- a/lisp/mail/mh-pick.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/mail/mh-pick.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,9 +1,9 @@ -;;; mh-pick --- make a search pattern and search for a message in mh-e -;; Time-stamp: <95/08/19 16:45:16 gildea> +;;; mh-pick.el --- make a search pattern and search for a message in mh-e +;; Time-stamp: <2001-07-14 13:09:34 pavel> ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc. -;; This file is part of mh-e, 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 @@ -26,7 +26,7 @@ ;;; Change Log: -;; $Id: mh-pick.el,v 1.4 1995/11/03 02:30:09 kwzh Exp erik $ +;; $Id: mh-pick.el,v 1.5 1996/01/14 07:34:30 erik Exp $ ;;; Code: @@ -193,3 +193,5 @@ (define-key mh-pick-mode-map "\C-c\C-fr" 'mh-to-field) (define-key mh-pick-mode-map "\C-c\C-fs" 'mh-to-field) (define-key mh-pick-mode-map "\C-c\C-ft" 'mh-to-field) + +;;; mh-pick.el ends here
--- a/lisp/mail/mh-seq.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/mail/mh-seq.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,9 +1,9 @@ -;;; mh-seq --- mh-e sequences support -;; Time-stamp: <95/08/19 16:45:15 gildea> +;;; mh-seq.el --- mh-e sequences support +;; Time-stamp: <2001-07-14 13:10:33 pavel> ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc. -;; This file is part of mh-e, 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 @@ -26,7 +26,7 @@ ;;; Change Log: -;; $Id: mh-seq.el,v 1.5 1996/01/14 07:34:30 erik Exp kwzh $ +;; $Id: mh-seq.el,v 1.6 1996/01/29 23:16:57 kwzh Exp $ ;;; Code: @@ -235,3 +235,4 @@ (goto-char location) (insert-buffer-substring (current-buffer) beginning-of-line end)))) +;;; mh-seq.el ends here
--- a/lisp/mail/mh-utils.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/mail/mh-utils.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,9 +1,9 @@ ;;; mh-utils.el --- mh-e code needed for both sending and reading -;; Time-stamp: <95/10/22 17:58:16 gildea> +;; Time-stamp: <2001-07-15 09:52:59 pavel> ;; Copyright (C) 1993, 1995, 1997, 2000 Free Software Foundation, Inc. -;; This file is part of mh-e, 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 @@ -579,7 +579,7 @@ (if (not (mh-folder-name-p mh-draft-folder)) (setq mh-draft-folder (format "+%s" mh-draft-folder))) (if (not (file-exists-p (mh-expand-file-name mh-draft-folder))) - (error "Draft folder \"%s\" not found. Create it and try again." + (error "Draft folder \"%s\" not found. Create it and try again" (mh-expand-file-name mh-draft-folder))))) (setq mh-inbox (mh-get-profile-field "Inbox:")) (cond ((not mh-inbox) @@ -978,7 +978,7 @@ (end-of-line) (point)))) (display-buffer (current-buffer)) - (error "%s failed with status %d. See error message in other window." + (error "%s failed with status %d. See error message in other window" command status)))))))
--- a/lisp/mail/sc.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/mail/sc.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,6 +1,12 @@ ;;; sc.el --- old name for supercite +;; This file is part of GNU Emacs. + +;;; Commentary: + +;;; Code: + (require 'supercite) (provide 'sc) -;; sc.el ends here +;;; sc.el ends here
--- a/lisp/mail/unrmail.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/mail/unrmail.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; unrmail.el --- convert Rmail files to mailbox files. +;;; unrmail.el --- convert Rmail files to mailbox files ;;; Copyright (C) 1992 Free Software Foundation, Inc. @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defvar command-line-args-left) ;Avoid 'free variable' warning
--- a/lisp/midnight.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/midnight.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,11 +1,11 @@ -;;; midnight.el --- run something every midnight, e.g., kill old buffers. +;;; midnight.el --- run something every midnight, e.g., kill old buffers ;;; Copyright (C) 1998 Free Software Foundation, Inc. -;;; Author: Sam Steingold <sds@usa.net> -;;; Maintainer: Sam Steingold <sds@usa.net> -;;; Created: 1998-05-18 -;;; Keywords: utilities +;; Author: Sam Steingold <sds@usa.net> +;; Maintainer: Sam Steingold <sds@usa.net> +;; Created: 1998-05-18 +;; Keywords: utilities ;; This file is part of GNU Emacs.
--- a/lisp/patcomp.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/patcomp.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,5 +1,11 @@ ;;; patcomp.el --- used by patch files to update Emacs releases +;; This file is part of GNU Emacs. + +;;; Commentary: + +;;; Code: + (defun batch-byte-recompile-emacs () "Recompile the Emacs `lisp' directory. This is used after installing the patches for a new version." @@ -12,3 +18,5 @@ It uses the command line arguments to specify the files to compile." (let ((load-path (list (expand-file-name "lisp")))) (batch-byte-compile))) + +;;; patcomp.el ends here
--- a/lisp/pcmpl-cvs.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/pcmpl-cvs.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; pcmpl-cvs --- functions for dealing with cvs completions +;;; pcmpl-cvs.el --- functions for dealing with cvs completions ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/pcmpl-gnu.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/pcmpl-gnu.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; pcmpl-gnu --- completions for GNU project tools +;;; pcmpl-gnu.el --- completions for GNU project tools ;; Copyright (C) 1999, 2000 Free Software Foundation @@ -19,6 +19,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (provide 'pcmpl-gnu)
--- a/lisp/pcmpl-linux.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/pcmpl-linux.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; pcmpl-linux --- functions for dealing with GNU/Linux completions +;;; pcmpl-linux.el --- functions for dealing with GNU/Linux completions ;; Copyright (C) 1999, 2000 Free Software Foundation
--- a/lisp/pcmpl-rpm.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/pcmpl-rpm.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; pcmpl-rpm --- functions for dealing with rpm completions +;;; pcmpl-rpm.el --- functions for dealing with rpm completions ;; Copyright (C) 1999, 2000 Free Software Foundation @@ -324,6 +324,6 @@ (pcomplete-dirs-or-entries "\\.tar\\'") (pcomplete-dirs-or-entries "\\.spec\\'")))))) (t - (error "You must select a mode: -q, -i, -U, --verify, etc.")))))) + (error "You must select a mode: -q, -i, -U, --verify, etc")))))) ;;; pcmpl-rpm.el ends here
--- a/lisp/pcmpl-unix.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/pcmpl-unix.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; pcmpl-unix --- standard UNIX completions +;;; pcmpl-unix.el --- standard UNIX completions ;; Copyright (C) 1999, 2000 Free Software Foundation @@ -19,6 +19,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (provide 'pcmpl-unix)
--- a/lisp/play/studly.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/play/studly.el Sun Jul 15 19:53:53 2001 +0000 @@ -3,6 +3,8 @@ ;;; This is in the public domain, since it was distributed ;;; by its author without a copyright notice in 1986. +;; This file is part of GNU Emacs. + ;; Keywords: games ;;; Commentary:
--- a/lisp/play/zone.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/play/zone.el Sun Jul 15 19:53:53 2001 +0000 @@ -2,10 +2,10 @@ ;; Copyright (C) 2000 Free Software Foundation, Inc. -;;; Author: Victor Zandy <zandy@cs.wisc.edu> -;;; Maintainer: Thien-Thi Nguyen <ttn@gnu.org> -;;; Keywords: games -;;; Created: June 6, 1998 +;; Author: Victor Zandy <zandy@cs.wisc.edu> +;; Maintainer: Thien-Thi Nguyen <ttn@gnu.org> +;; Keywords: games +;; Created: June 6, 1998 ;; This file is part of GNU Emacs.
--- a/lisp/replace.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/replace.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; replace.el --- replace commands for Emacs. +;;; replace.el --- replace commands for Emacs ;; Copyright (C) 1985, 86, 87, 92, 94, 96, 1997, 2000, 2001 ;; Free Software Foundation, Inc.
--- a/lisp/select.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/select.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; select.el --- lisp portion of standard selection support. +;;; select.el --- lisp portion of standard selection support ;; Keywords: internal @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; This is for temporary compatibility with pre-release Emacs 19. @@ -314,4 +316,4 @@ (provide 'select) -;;; select.el ends here. +;;; select.el ends here
--- a/lisp/subr.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/subr.el Sun Jul 15 19:53:53 2001 +0000 @@ -20,6 +20,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defvar custom-declare-variable-list nil "Record `defcustom' calls made before `custom.el' is loaded to handle them.
--- a/lisp/talk.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/talk.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; talk.el --- Allow several users to talk to each other through Emacs. +;;; talk.el --- allow several users to talk to each other through Emacs ;; Copyright (C) 1995 Free Software Foundation, Inc.
--- a/lisp/term.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term.el Sun Jul 15 19:53:53 2001 +0000 @@ -2,9 +2,9 @@ ;;; Copyright (C) 1988, 1990, 1992, 1994, 1995 Free Software Foundation, Inc. -;;; Author: Per Bothner <bothner@cygnus.com> -;;; Based on comint mode written by: Olin Shivers <shivers@cs.cmu.edu> -;;; Keywords: processes +;; Author: Per Bothner <bothner@cygnus.com> +;; Based on comint mode written by: Olin Shivers <shivers@cs.cmu.edu> +;; Keywords: processes ;; This file is part of GNU Emacs. @@ -31,6 +31,8 @@ ;;; To see what I've modified and where it came from search for '-mm' +;;; Commentary: + ;;; Speed considerations and a few caveats ;;; -------------------------------------- ;;; @@ -390,7 +392,7 @@ ;; term-mode-hook is the term mode hook. Basically for your keybindings. ;; term-load-hook is run after loading in this package. -;; Code: +;;; Code: ;; This is passed to the inferior in the EMACS environment variable, ;; so it is important to increase it if there are protocol-relevant changes.
--- a/lisp/term/apollo.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/apollo.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,1 +1,3 @@ (load "term/vt100" nil t) + +;;; apollo.el ends here
--- a/lisp/term/bobcat.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/bobcat.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,2 +1,4 @@ ;;; HP terminals usually encourage using ^H as the rubout character (load "term/keyswap" nil t) + +;;; bobcat.el ends here
--- a/lisp/term/linux.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/linux.el Sun Jul 15 19:53:53 2001 +0000 @@ -10,3 +10,5 @@ (let ((value (current-input-mode))) ;; The third arg only matters in that it is not t or nil. (set-input-mode (nth 0 value) (nth 1 value) 'iso-latin-1 (nth 3 value))) + +;;; linux.el ends here
--- a/lisp/term/lk201.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/lk201.el Sun Jul 15 19:53:53 2001 +0000 @@ -66,3 +66,5 @@ (define-key function-key-map "\eOw" [kp-7]) (define-key function-key-map "\eOx" [kp-8]) (define-key function-key-map "\eOy" [kp-9]) + +;;; lk201.el ends here
--- a/lisp/term/vt102.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/vt102.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,1 +1,3 @@ (load "term/vt100" nil t) + +;;; vt102.el ends here
--- a/lisp/term/vt125.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/vt125.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,1 +1,3 @@ (load "term/vt100" nil t) + +;;; vt125.el ends here
--- a/lisp/term/vt200.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/vt200.el Sun Jul 15 19:53:53 2001 +0000 @@ -4,3 +4,5 @@ ;; Make F11 an escape key. (define-key function-key-map "\e[23~" [?\e]) + +;;; vt200.el ends here
--- a/lisp/term/vt201.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/vt201.el Sun Jul 15 19:53:53 2001 +0000 @@ -5,3 +5,4 @@ ;; Make F11 an escape key. (define-key function-key-map "\e[23~" [?\e]) +;;; vt201.el ends here
--- a/lisp/term/vt220.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/vt220.el Sun Jul 15 19:53:53 2001 +0000 @@ -5,3 +5,4 @@ ;; Make F11 an escape key. (define-key function-key-map "\e[23~" [?\e]) +;;; vt220.el ends here
--- a/lisp/term/vt240.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/vt240.el Sun Jul 15 19:53:53 2001 +0000 @@ -4,3 +4,5 @@ ;; Make F11 an escape key. (define-key function-key-map "\e[23~" [?\e]) + +;;; vt240.el ends here
--- a/lisp/term/vt300.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/vt300.el Sun Jul 15 19:53:53 2001 +0000 @@ -2,3 +2,5 @@ ;; Make F11 an escape key. (define-key function-key-map "\e[23~" [?\e]) + +;;; vt300.el ends here
--- a/lisp/term/vt320.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/vt320.el Sun Jul 15 19:53:53 2001 +0000 @@ -2,3 +2,5 @@ ;; Make F11 an escape key. (define-key function-key-map "\e[23~" [?\e]) + +;;; vt320.el ends here
--- a/lisp/term/vt400.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/vt400.el Sun Jul 15 19:53:53 2001 +0000 @@ -2,3 +2,5 @@ ;; Make F11 an escape key. (define-key function-key-map "\e[23~" [?\e]) + +;;; vt400.el ends here
--- a/lisp/term/vt420.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/term/vt420.el Sun Jul 15 19:53:53 2001 +0000 @@ -2,3 +2,5 @@ ;; Make F11 an escape key. (define-key function-key-map "\e[23~" [?\e]) + +;;; vt420.el ends here
--- a/lisp/x-apollo.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/x-apollo.el Sun Jul 15 19:53:53 2001 +0000 @@ -19,6 +19,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defun apollo-kill-entire-line ()
--- a/lisp/x-menu.el Sun Jul 15 17:42:53 2001 +0000 +++ b/lisp/x-menu.el Sun Jul 15 19:53:53 2001 +0000 @@ -1,4 +1,4 @@ -;;; x-menu.el --- menu support for X +;;; x-menu.el --- menu support for X ;; Copyright (C) 1986 Free Software Foundation, Inc. @@ -19,6 +19,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defun x-menu-mode ()