Commit 60370d40 authored by Pavel Janík's avatar Pavel Janík

Some fixes to follow coding conventions.

parent 715a2ca2
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,
......
;;; 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
......
;;; diff.el --- Run `diff' in compilation-mode.
;;; diff.el --- run `diff' in compilation-mode
;; Copyright (C) 1992, 1994, 1996 Free Software Foundation, Inc.
......
......@@ -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 @@ For example, to instrument all ELP functions, do the following:
\\[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 @@ Use optional LIST if provided instead."
(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 @@ original definition, use \\[elp-restore-function] or \\[elp-restore-all]."
(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 @@ displayed."
(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.
......
......@@ -21,6 +21,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
......
......@@ -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 @@ the kill ring or the Clipboard."
(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.
......@@ -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 @@ bottom of the buffer stack."
(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.
......@@ -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 @@ C-Escape does list-buffers."
(provide 'pc-mode)
;; pc-mode.el ends here
;;; pc-mode.el ends here
......@@ -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 @@ If the prefix argument, ARG, is non-nil, it is used instead of `val'."
(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 @@ Mail anyway (y or n)? ")
;;; viper-cmd.el ends here
;;; viper-cmd.el ends here
......@@ -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 @@ reversed."
(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 @@ Please contact your system administrator. "
;;; viper-ex.el ends here
;;; viper-ex.el ends here
......@@ -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 @@ Should be set in `~/.viper' file."
;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
;;; End:
;;; viper-ex.el ends here
;;; viper-init.el ends here
......@@ -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 @@ form ((key . function) (key . function) ... )."
;;; End:
;;; viper-keym.el ends here
;;; viper-keym.el ends here
......@@ -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 @@ name from there."
(call-last-kbd-macro)))
;;; viper-macs.el ends here
;;; viper-macs.el ends here
......@@ -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 @@ On single or double click, returns the word as determined by
(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 @@ This buffer may be different from the one where the click occurred."
;;; 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.
......@@ -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 @@ This option is appropriate if you like Emacs-style words."
;;; 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.
......@@ -294,7 +294,7 @@
;; much easier.
;;
;; Code
;;; Code:
(require 'advice)
(require 'cl)
......@@ -1280,4 +1280,4 @@ These two lines must come in the order given.
;;; 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
......@@ -58,6 +58,8 @@ ordinary strings."
;; 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"))
......@@ -23,3 +29,5 @@
"\n\n"
"Shell: " 7
"\n"))
;;; forms-pass.el ends here
......@@ -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 @@ See the documentation of `define-ccl-program' for the detail of CCL program."
(provide 'ccl)
;; ccl.el ends here
;;; ccl.el ends here
......@@ -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
;;; 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)
......
;;; 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
......
;;; 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 @@ To get complete usage, invoke:
(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.
......@@ -213,8 +213,8 @@ LEIM is available from the same ftp directory as Emacs."))
;;
(provide 'ja-dic-utl)
;; ja-dic-utl.el ends here
;; Local Variables:
;; coding: iso-2022-7bit
;; End:
;;; ja-dic-utl.el ends here