2001-07-15 Pavel Jan
\e,Bm
\e(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,
-;;; composite.el --- Support character composition.
+;;; composite.el --- support character composition
;; Copyright (C) 1999 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
;;;###autoload
-;;; diff.el --- Run `diff' in compilation-mode.
+;;; diff.el --- run `diff' in compilation-mode
;; Copyright (C) 1992, 1994, 1996 Free Software Foundation, Inc.
;; 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.
\\[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
(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
(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.
\f
(provide 'elp)
-;; elp.el ends here
+;;; elp.el ends here
-;;; 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.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
\f
;; 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
(provide 'lselect)
-;;; lselect.el ends here.
+;;; lselect.el ends here
-;;; lucid.el --- Emulate some Lucid Emacs functions.
+;;; lucid.el --- emulate some Lucid Emacs functions
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
;; 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.
(provide 'lucid)
-;;; end of lucid.el
+;;; lucid.el ends here
-;;; 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.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
;;;###autoload
(provide 'pc-mode)
-;; pc-mode.el ends here
+;;; pc-mode.el ends here
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;; Code
+;;; Commentary:
+
+;;; Code:
(provide 'viper-cmd)
(require 'advice)
(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)
-;;; viper-cmd.el ends here
+;;; viper-cmd.el ends here
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;; Code
+;;; Commentary:
+
+;;; Code:
(provide 'viper-ex)
(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))
-;;; viper-ex.el ends here
+;;; viper-ex.el ends here
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;; Code
+;;; Commentary:
+
+;;; Code:
(provide 'viper-init)
;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
;;; End:
-;;; viper-ex.el ends here
+;;; viper-init.el ends here
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;; Code
+;;; Commentary:
+
+;;; Code:
(provide 'viper-keym)
;;; End:
-;;; viper-keym.el ends here
+;;; viper-keym.el ends here
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;; Code
+;;; Commentary:
+
+;;; Code:
(provide 'viper-macs)
(call-last-kbd-macro)))
-;;; viper-macs.el ends here
+;;; viper-macs.el ends here
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;; Code
+;;; Commentary:
+
+;;; Code:
(provide 'viper-mous)
(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))))
;;; End:
-;;; viper-mous.el ends here
+;;; viper-mous.el ends here
-;;; 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.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
-;; Code
+;;; Code:
;; Compiler pacifier
(defvar viper-overriding-map)
;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
;;; End:
-;;; viper-util.el ends here
+;;; viper-util.el ends here
-;;; 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.
;; much easier.
;;
-;; Code
+;;; Code:
(require 'advice)
(require 'cl)
;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
;;; End:
-;;; viper.el ends here
+;;; viper.el ends here
-;;; em-alias --- creation and management of command aliases
+;;; em-alias.el --- creation and management of command aliases
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; 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
-;;; em-basic --- basic shell builtin commands
+;;; em-basic.el --- basic shell builtin commands
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; em-cmpl --- completion using the TAB key
+;;; em-cmpl.el --- completion using the TAB key
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; em-dirs --- directory navigation commands
+;;; em-dirs.el --- directory navigation commands
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; em-glob --- extended file name globbing
+;;; em-glob.el --- extended file name globbing
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; em-hist --- history list management
+;;; em-hist.el --- history list management
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; em-ls --- implementation of ls in Lisp
+;;; em-ls.el --- implementation of ls in Lisp
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; em-pred --- argument predicates and modifiers (ala zsh)
+;;; em-pred.el --- argument predicates and modifiers (ala zsh)
;; Copyright (C) 1999, 2000 Free Software Foundation
;; See the zsh docs for more on the syntax ([(zsh.info)Filename
;; Generation]).
+;;; Code:
+
;;; User Variables:
(defcustom eshell-pred-load-hook '(eshell-pred-initialize)
-;;; em-prompt --- command prompts
+;;; em-prompt.el --- command prompts
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; 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
-;;; em-script --- Eshell script files
+;;; em-script.el --- Eshell script files
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; em-smart --- smart display of output
+;;; em-smart.el --- smart display of output
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; em-term --- running visual commands
+;;; em-term.el --- running visual commands
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; em-unix --- UNIX command aliases
+;;; em-unix.el --- UNIX command aliases
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation
-;;; em-xtra --- extra alias functions
+;;; em-xtra.el --- extra alias functions
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; esh-arg --- argument processing
+;;; esh-arg.el --- argument processing
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; esh-cmd --- command invocation
+;;; esh-cmd.el --- command invocation
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; esh-ext --- commands external to Eshell
+;;; esh-ext.el --- commands external to Eshell
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; esh-io --- I/O management
+;;; esh-io.el --- I/O management
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; esh-maint --- init code for building eshell
+;;; esh-maint.el --- init code for building eshell
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; esh-mode --- user interface
+;;; esh-mode.el --- user interface
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; esh-module --- Eshell modules
+;;; esh-module.el --- Eshell modules
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; esh-opt --- command options processing
+;;; esh-opt.el --- command options processing
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; esh-proc --- process management
+;;; esh-proc.el --- process management
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; esh-test --- Eshell test suite
+;;; esh-test.el --- Eshell test suite
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; esh-util --- general utilities
+;;; esh-util.el --- general utilities
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation
-;;; esh-var --- handling of variables
+;;; esh-var.el --- handling of variables
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; eshell --- the Emacs command shell
+;;; eshell.el --- the Emacs command shell
;; Copyright (C) 1999, 2000 Free Software Foundation
;;; 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"))
"\n\n"
"Shell: " 7
"\n"))
+
+;;; forms-pass.el ends here
(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)
(provide 'ccl)
-;; ccl.el ends here
+;;; ccl.el ends here
;; 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.
;;; coding: iso-2022-7bit
;;; End:
-;;; end of characters.el
+;;; characters.el ends here
-;;; 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.
;; 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)
-;;; 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.
;; 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
-;;; 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.
(provide 'ja-dic-cnv)
-;; ja-dic-cnv.el ends here
-
;; Local Variables:
;; coding: iso-2022-7bit
;; End:
+
+;;; ja-dic-cnv.el ends here
-;;; 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.
;;
(provide 'ja-dic-utl)
-;; ja-dic-utl.el ends here
-
;; Local Variables:
;; coding: iso-2022-7bit
;; End:
+
+;;; ja-dic-utl.el ends here
-;;; 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.
(aref (char-category-set (preceding-char)) ?<))
(kinsoku-shorter linebeg))))
-;; kinsoku.el ends here
+;;; kinsoku.el ends here
;;
(provide 'kkc)
-;; kkc.el ends here
+;;; kkc.el ends here
-;;; 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.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(eval-when-compile (defvar dos-codepage))
-;;; 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.
;; 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.
-;;; 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.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
;;; String manipulations while paying attention to multibyte
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(defconst mule-version "5.0 (SAKAKI)" "\
;; 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.
;;
(miscdic-convert filename dir))))
(kill-emacs 0))
-;;; titdic-cnv.el ends here
-
;; Local Variables:
;; coding: iso-2022-7bit
;; End:
+
+;;; titdic-cnv.el ends here
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
;; Hz/ZW encoding stuffs
-;;; 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.
-;;; cyril-util.el --- utilities for Cyrillic scripts
+;;; cyril-util.el --- utilities for Cyrillic scripts
;; Copyright (C) 1997 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
;;;###autoload
;;
(provide 'cyril-util)
-;;; cyril-util.el ends here
-
;; Local Variables:
;; coding: iso-2022-7bit
;; End:
+
+;;; cyril-util.el ends here
-;;; 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.
-;;; english.el --- English support
+;;; english.el --- support for English
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
;; 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")
-;;; greek.el --- Support for Greek
+;;; greek.el --- support for Greek
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
-;;; 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.
-;;; 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.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(defvar sentence-end-save nil)
-;;; 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.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
;;;###autoload
;;
(provide 'korea-util)
-;;; korean-util.el ends here
+;;; korea-util.el ends here
-;;; 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.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
;; Setting information of Thai characters.
-;;; 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.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(make-coding-system
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
+;;; Code:
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; IPA (International Phonetic Alphabet)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(provide 'misc-lang)
;;; misc-lang.el ends here
-
-;;; 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.
(provide 'slovak)
-;; slovak.el ends here
+;;; slovak.el ends here
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
;; Setting information of Thai characters.
-;;; 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.
-;;; 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.
-;;; 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.
-;;; 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.
;; 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
;;; 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:
(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)
(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
;; 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
;; 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:
(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)
(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? "
-;;; 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
;;; 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:
(mh-handle-process-error command value))
(insert "\n(mh-store finished)\n")))
+;;; mh-funcs.el ends here
-;;; 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
;;; 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:
(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
-;;; 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
;;; 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:
(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
-;;; 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
;;; 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:
(goto-char location)
(insert-buffer-substring (current-buffer) beginning-of-line end))))
+;;; mh-seq.el ends here
;;; 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
(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)
(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)))))))
;;; 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
-;;; unrmail.el --- convert Rmail files to mailbox files.
+;;; unrmail.el --- convert Rmail files to mailbox files
;;; Copyright (C) 1992 Free Software Foundation, Inc.
;; 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
-;;; 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.
;;; 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."
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
-;;; pcmpl-cvs --- functions for dealing with cvs completions
+;;; pcmpl-cvs.el --- functions for dealing with cvs completions
;; Copyright (C) 1999, 2000 Free Software Foundation
-;;; pcmpl-gnu --- completions for GNU project tools
+;;; pcmpl-gnu.el --- completions for GNU project tools
;; Copyright (C) 1999, 2000 Free Software Foundation
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(provide 'pcmpl-gnu)
-;;; 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
-;;; pcmpl-rpm --- functions for dealing with rpm completions
+;;; pcmpl-rpm.el --- functions for dealing with rpm completions
;; Copyright (C) 1999, 2000 Free Software Foundation
(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
-;;; pcmpl-unix --- standard UNIX completions
+;;; pcmpl-unix.el --- standard UNIX completions
;; Copyright (C) 1999, 2000 Free Software Foundation
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(provide 'pcmpl-unix)
;;; 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:
;; 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.
-;;; 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.
-;;; select.el --- lisp portion of standard selection support.
+;;; select.el --- lisp portion of standard selection support
;; Keywords: internal
;; 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.
(provide 'select)
-;;; select.el ends here.
+;;; select.el ends here
;; 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.
-;;; 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.
;;; 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.
;;; To see what I've modified and where it came from search for '-mm'
+;;; Commentary:
+
;;; Speed considerations and a few caveats
;;; --------------------------------------
;;;
;; 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.
(load "term/vt100" nil t)
+
+;;; apollo.el ends here
;;; HP terminals usually encourage using ^H as the rubout character
(load "term/keyswap" nil t)
+
+;;; bobcat.el ends here
(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
(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
(load "term/vt100" nil t)
+
+;;; vt102.el ends here
(load "term/vt100" nil t)
+
+;;; vt125.el ends here
;; Make F11 an escape key.
(define-key function-key-map "\e[23~" [?\e])
+
+;;; vt200.el ends here
;; Make F11 an escape key.
(define-key function-key-map "\e[23~" [?\e])
+;;; vt201.el ends here
;; Make F11 an escape key.
(define-key function-key-map "\e[23~" [?\e])
+;;; vt220.el ends here
;; Make F11 an escape key.
(define-key function-key-map "\e[23~" [?\e])
+
+;;; vt240.el ends here
;; Make F11 an escape key.
(define-key function-key-map "\e[23~" [?\e])
+
+;;; vt300.el ends here
;; Make F11 an escape key.
(define-key function-key-map "\e[23~" [?\e])
+
+;;; vt320.el ends here
;; Make F11 an escape key.
(define-key function-key-map "\e[23~" [?\e])
+
+;;; vt400.el ends here
;; Make F11 an escape key.
(define-key function-key-map "\e[23~" [?\e])
+
+;;; vt420.el ends here
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
\f
(defun apollo-kill-entire-line ()
-;;; x-menu.el --- menu support for X
+;;; x-menu.el --- menu support for X
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(defun x-menu-mode ()