Commit 55535639 authored by Pavel Janík's avatar Pavel Janík

Some fixes to follow coding conventions in files maintained by FSF.

parent 401aa479
2001-07-15 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
* abbrevlist.el, array.el, buff-menu.el, calendar/appt.el,
case-table.el, cdl.el, cmuscheme.el, compare-w.el, completion.el,
custom.el, derived.el, dired-aux.el, disp-table.el, dos-vars.el,
echistory.el, electric.el, emacs-lisp/authors.el,
emacs-lisp/backquote.el, emacs-lisp/byte-opt.el,
emacs-lisp/bytecomp.el, emacs-lisp/float.el, emacs-lisp/gulp.el,
emacs-lisp/helper.el, emacs-lisp/lisp-mode.el,
emacs-lisp/regexp-opt.el, emulation/mlconvert.el,
emulation/mlsupport.el, env.el, fast-lock.el, find-dired.el,
float-sup.el, frame.el, gnus/gnus-mule.el, gnus/pop3.el, gs.el,
gud.el, help-macro.el, hexl.el, imenu.el, info.el, informat.el,
international/codepage.el, international/iso-ascii.el,
international/iso-insert.el, international/iso-transl.el,
international/swedish.el, isearch.el, jka-compr.el, kermit.el,
lazy-lock.el, ledit.el, loadup.el, lpr.el, ls-lisp.el, macros.el,
mail/blessmail.el, mail/emacsbug.el, mail/mail-extr.el,
mail/mailabbrev.el, mail/mailpost.el, mail/rmail.el,
mail/rmailedit.el, mail/rmailkwd.el, mail/rmailmsc.el,
mail/rmailout.el, mail/rmailsort.el, mail/rmailsum.el,
mail/vms-pmail.el, man.el, map-ynp.el, menu-bar.el, misc.el,
msb.el, net/ange-ftp.el, net/goto-addr.el, novice.el,
obsolete/auto-show.el, obsolete/hilit19.el, obsolete/ooutline.el,
obsolete/rnews.el, obsolete/rnewspost.el, options.el, paren.el,
paths.el, play/dissociate.el, play/doctor.el, play/hanoi.el,
play/meese.el, progmodes/compile.el, progmodes/ebrowse.el,
progmodes/hideif.el, progmodes/modula2.el, register.el, rot13.el,
saveplace.el, scroll-bar.el, server.el, sort.el, soundex.el,
term/bg-mouse.el, term/pc-win.el, term/sup-mouse.el,
term/tty-colors.el, terminal.el, textmodes/bib-mode.el,
textmodes/makeinfo.el, textmodes/page.el, textmodes/paragraphs.el,
textmodes/picture.el, textmodes/scribe.el, textmodes/spell.el,
textmodes/tex-mode.el, textmodes/text-mode.el,
textmodes/underline.el, thingatpt.el, time.el, timer.el,
unused.el, vcursor.el, version.el, vms-patch.el, vmsproc.el,
vt100-led.el, window.el: Some fixes to follow coding conventions in
files maintained by FSF.
2001-07-13 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
* arc-mode.el: A fix to follow coding conventions.
......
;;; abbrevlist.el --- list one abbrev table alphabetically ordered.
;;; abbrevlist.el --- list one abbrev table alphabetically ordered
;; Copyright (C) 1986, 1992 Free Software Foundation, Inc.
;; Suggested by a previous version by Gildea.
......@@ -23,6 +23,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
(defun list-one-abbrev-table (abbrev-table output-buffer)
......
;;; array.el --- array editing commands for Gnu Emacs
;;; array.el --- array editing commands for GNU Emacs
;; Copyright (C) 1987, 2000 Free Software Foundation, Inc.
......
;;; buff-menu.el --- buffer menu main function and support functions.
;;; buff-menu.el --- buffer menu main function and support functions
;; Copyright (C) 1985, 86, 87, 93, 94, 95, 2000 Free Software Foundation, Inc.
......
;;; appt.el --- appointment notification functions.
;;; appt.el --- appointment notification functions
;; Copyright (C) 1989, 1990, 1994, 1998 Free Software Foundation, Inc.
......
;;; case-table.el --- code to extend the character set and support case tables.
;;; case-table.el --- code to extend the character set and support case tables
;; Copyright (C) 1988, 1994 Free Software Foundation, Inc.
......
......@@ -23,6 +23,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
(defun cdl-get-file (filename)
......
;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el.
;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el
;; Copyright (C) 1988, 1994, 1997 Free Software Foundation, Inc.
......
;;; compare-w.el --- compare text between windows for Emacs.
;;; compare-w.el --- compare text between windows for Emacs
;; Copyright (C) 1986, 1989, 1993, 1997 Free Software Foundation, Inc.
......
......@@ -1204,7 +1204,7 @@ Must be called after `find-exact-completion'."
(defun locate-completion-db-error ()
;; recursive error: really scrod
(error "Completion database corrupted. Try M-x clear-all-completions. Send bug report."))
(error "Completion database corrupted. Try M-x clear-all-completions. Send bug report"))
;; WRITES
(defun add-completion-to-tail-if-new (string)
......
This diff is collapsed.
;;; derived.el --- allow inheritance of major modes.
;;; derived.el --- allow inheritance of major modes
;;; (formerly mode-clone.el)
;; Copyright (C) 1993, 1994, 1999 Free Software Foundation, Inc.
......
......@@ -123,7 +123,7 @@ This calls chmod, thus symbolic modes like `g+w' are allowed."
"Change the group of the marked (or next ARG) files."
(interactive "P")
(if (memq system-type '(ms-dos windows-nt))
(error "chgrp not supported on this system."))
(error "chgrp not supported on this system"))
(dired-do-chxxx "Group" "chgrp" 'chgrp arg))
;;;###autoload
......@@ -131,7 +131,7 @@ This calls chmod, thus symbolic modes like `g+w' are allowed."
"Change the owner of the marked (or next ARG) files."
(interactive "P")
(if (memq system-type '(ms-dos windows-nt))
(error "chown not supported on this system."))
(error "chown not supported on this system"))
(dired-do-chxxx "Owner" dired-chown-program 'chown arg))
;; Process all the files in FILES in batches of a convenient size,
......@@ -452,7 +452,7 @@ the list of file names explicitly with the FILE-LIST argument."
(while (/= 0 arg)
(setq file (dired-get-filename nil t))
(if (not file)
(error "Can only kill file lines.")
(error "Can only kill file lines")
(save-excursion (and file
(dired-goto-subdir file)
(dired-kill-subdir)))
......@@ -1902,7 +1902,7 @@ Lower levels are unaffected."
dir (file-name-directory (directory-file-name dir))))
;;(setq dir (expand-file-name dir))
(or (dired-goto-subdir dir)
(error "Cannot go up to %s - not in this tree." dir))))
(error "Cannot go up to %s - not in this tree" dir))))
;;;###autoload
(defun dired-tree-down ()
......
;;; disp-table.el --- functions for dealing with char tables.
;;; disp-table.el --- functions for dealing with char tables
;; Copyright (C) 1987, 1994, 1995, 1999 Free Software Foundation, Inc.
......@@ -24,6 +24,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
(put 'display-table 'char-table-extra-slots 6)
......
;;; dos-vars.el --- MS-Dos specific user options.
;;; dos-vars.el --- MS-Dos specific user options
;; Copyright (C) 1998 Free Software Foundation, Inc.
......@@ -22,6 +22,10 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
(defgroup dos-fns nil
"MS-DOS specific functions."
:group 'environment)
......
......@@ -22,6 +22,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
(require 'electric) ; command loop
......
;;; electric.el --- window maker and Command loop for `electric' modes.
;;; electric.el --- window maker and Command loop for `electric' modes
;; Copyright (C) 1985, 1986, 1995 Free Software Foundation, Inc.
......
......@@ -468,4 +468,4 @@ the Emacs source tree, from which to build the file."
(authors root)
(write-file file)))
;; authors.el ends here
;;; authors.el ends here
......@@ -210,4 +210,4 @@ Vectors work just like lists. Nested backquotes are permitted."
tail))
(t (cons 'list heads)))))
;; backquote.el ends here
;;; backquote.el ends here
;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler.
;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler
;;; Copyright (c) 1991, 1994, 2000, 2001 Free Software Foundation, Inc.
......@@ -188,7 +188,7 @@
(defun byte-compile-log-lap-1 (format &rest args)
(if (aref byte-code-vector 0)
(error "The old version of the disassembler is loaded. Reload new-bytecomp as well."))
(error "The old version of the disassembler is loaded. Reload new-bytecomp as well"))
(byte-compile-log-1
(apply 'format format
(let (c a)
......
;;; bytecomp.el --- compilation of Lisp code into byte code.
;;; bytecomp.el --- compilation of Lisp code into byte code
;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1998, 2000
;; Free Software Foundation, Inc.
......@@ -10,7 +10,7 @@
;;; This version incorporates changes up to version 2.10 of the
;;; Zawinski-Furuseth compiler.
(defconst byte-compile-version "$Revision: 2.82 $")
(defconst byte-compile-version "$Revision: 2.83 $")
;; This file is part of GNU Emacs.
......
;;; float.el --- obsolete floating point arithmetic package.
;;; float.el --- obsolete floating point arithmetic package
;; Copyright (C) 1986 Free Software Foundation, Inc.
......
;;; gulp.el --- Ask for updates for Lisp packages
;;; gulp.el --- ask for updates for Lisp packages
;; Copyright (C) 1996 Free Software Foundation, Inc.
......
......@@ -23,6 +23,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
;; hey, here's a helping hand.
......
;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands.
;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands
;; Copyright (C) 1985, 1986, 1999, 2000, 2001 Free Software Foundation, Inc.
......
;;; regexp-opt.el --- generate efficient regexps to match strings.
;;; regexp-opt.el --- generate efficient regexps to match strings
;; Copyright (C) 1994,95,96,97,98,99,2000 Free Software Foundation, Inc.
......
;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp.
;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp
;; Copyright (C) 1985 Free Software Foundation, Inc.
......
;;; mlsupport.el --- run-time support for mocklisp code.
;;; mlsupport.el --- run-time support for mocklisp code
;; Copyright (C) 1985 Free Software Foundation, Inc.
......
;;; env.el --- functions to manipulate environment variables.
;;; env.el --- functions to manipulate environment variables
;; Copyright (C) 1991, 1994 Free Software Foundation, Inc.
......
;;; fast-lock.el --- Automagic text properties caching for fast Font Lock mode.
;;; fast-lock.el --- automagic text properties caching for fast Font Lock mode
;; Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
......@@ -7,7 +7,7 @@
;; Keywords: faces files
;; Version: 3.14
;;; This file is part of GNU Emacs.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
......
......@@ -24,6 +24,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
(require 'dired)
......
......@@ -21,6 +21,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
;; Provide a meaningful error message if we are running on
......
;;; frame.el --- multi-frame management independent of window systems.
;;; frame.el --- multi-frame management independent of window systems
;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001
;; Free Software Foundation, Inc.
......@@ -23,6 +23,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
(defvar frame-creation-function nil
......
;;; gnus-mule.el --- Provide backward compatibility function to GNUS
;;; gnus-mule.el --- provide backward compatibility function to GNUS
;; Copyright (C) 1995,1997 Free Software Foundation, Inc.
;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
......@@ -28,6 +28,8 @@
;; This file provides the function `gnus-mule-add-group' for backward
;; compatibility with old version of Gnus included in Emacs 20.
;;; Code:
(require 'gnus-sum)
;;;###autoload
......@@ -69,4 +71,4 @@ rather than using this function."
(provide 'gnus-mule)
;; gnus-mule.el ends here
;;; gnus-mule.el ends here
......@@ -123,7 +123,7 @@ Used for APOP authentication.")
((equal 'pass pop3-authentication-scheme)
(pop3-user process pop3-maildrop)
(pop3-pass process))
(t (error "Invalid POP3 authentication scheme.")))
(t (error "Invalid POP3 authentication scheme")))
(setq message-count (car (pop3-stat process)))
(pop3-quit process)
message-count))
......@@ -293,7 +293,7 @@ If NOW, use that time instead."
(pop3-send-command process (format "USER %s" user))
(let ((response (pop3-read-response process t)))
(if (not (and response (string-match "+OK" response)))
(error (format "USER %s not valid." user)))))
(error (format "USER %s not valid" user)))))
(defun pop3-pass (process)
"Send authentication information to the server."
......
......@@ -173,4 +173,4 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful."
(provide 'gs)
;; gs.el ends here.
;;; gs.el ends here
......@@ -289,13 +289,13 @@ off the specialized speedbar mode."
'speedbar-highlight-face
(cond ((eq ff 'gud-gdb-find-file)
'gud-gdb-goto-stackframe)
(t (error "Should never be here.")))
(t (error "Should never be here")))
(car frames) t))
(setq frames (cdr frames)))
; (let ((selected-frame
; (cond ((eq ff 'gud-gdb-find-file)
; (gud-gdb-selected-frame-info buffer))
; (t (error "Should never be here."))))))
; (t (error "Should never be here"))))))
)
(setq gud-last-speedbar-stackframe gud-last-last-frame)))
......@@ -464,7 +464,7 @@ available with older versions of GDB."
(and gud-gdb-complete-list
(string-match "^Undefined command: \"complete\""
(car gud-gdb-complete-list))
(error "This version of GDB doesn't support the `complete' command."))
(error "This version of GDB doesn't support the `complete' command"))
;; Sort the list like readline.
(setq gud-gdb-complete-list
(sort gud-gdb-complete-list (function string-lessp)))
......@@ -692,7 +692,7 @@ and source-file directory for your debugger."
(not (and (boundp 'tags-file-name)
(stringp tags-file-name)
(file-exists-p tags-file-name))))
(error "The sdb support requires a valid tags table to work."))
(error "The sdb support requires a valid tags table to work"))
(gud-common-init command-line 'gud-sdb-massage-args
'gud-sdb-marker-filter 'gud-sdb-find-file)
......@@ -1197,14 +1197,14 @@ directories if your program contains sources from more than one directory."
;; -e goes with the next arg, so shift one extra.
(or (funcall shift)
;; -e as the last arg is an error in Perl.
(error "No code specified for -e."))
(error "No code specified for -e"))
(setq seen-e t))
(funcall shift))
(unless seen-e
(if (or (not args)
(string-match "^-" (car args)))
(error "Can't use stdin as the script to debug."))
(error "Can't use stdin as the script to debug"))
;; This is the program name.
(funcall shift))
......
;;; help-macro.el --- Makes command line help such as help-for-help
;;; help-macro.el --- makes command line help such as help-for-help
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
;; Author: Lynn Slater <lrs@indetech.com>
;; Maintainer: FSF
;; Created: : Mon Oct 1 11:42:39 1990
;; Created: Mon Oct 1 11:42:39 1990
;; Adapted-By: ESR
;; This file is part of GNU Emacs.
......@@ -29,7 +29,7 @@
;; This file supplies the macro make-help-screen which constructs
;; single character dispatching with browsable help such as that provided
;; by help-for-help. This can be used to make many modes easier to use; for
;; example, the Gnu Emacs Empire Tool uses this for every "nested" mode map
;; example, the GNU Emacs Empire Tool uses this for every "nested" mode map
;; called from the main mode map.
;; The name of this package was changed from help-screen.el to
......
;;; hexl.el --- edit a file in a hex dump format using the hexl filter.
;;; hexl.el --- edit a file in a hex dump format using the hexl filter
;; Copyright (C) 1989, 1994, 1998, 2001 Free Software Foundation, Inc.
......
;;; imenu.el --- Framework for mode-specific buffer indexes.
;;; imenu.el --- framework for mode-specific buffer indexes
;; Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
......@@ -59,7 +59,7 @@
;; [christian] - Christian Egli Christian.Egli@hcsd.hac.com
;; [karl] - Karl Fogel kfogel@floss.life.uiuc.edu
;;; Code
;;; Code:
(eval-when-compile (require 'cl))
......
;;; info.el --- info package for Emacs.
;;; info.el --- info package for Emacs
;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001
;; Free Software Foundation, Inc.
......
......@@ -439,7 +439,7 @@ Must be used only with -batch, and kills Emacs on completion.
Each file will be processed even if an error occurred previously.
For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\""
(if (not noninteractive)
(error "batch-info-validate may only be used -batch."))
(error "batch-info-validate may only be used -batch"))
(let ((version-control t)
(auto-save-default nil)
(find-file-run-dired nil)
......
;;; codepage.el --- MS-DOS/MS-Windows specific coding systems.
;;; codepage.el --- MS-DOS/MS-Windows specific coding systems
;; Copyright (C) 1998 Free Software Foundation, Inc.
......@@ -665,4 +665,4 @@ read/written by MS-DOS software, or for display on the MS-DOS terminal."
(provide 'codepage)
;; codepage.el ends here
;;; codepage.el ends here
;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals.
;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals
;; Copyright (C) 1987, 1995 Free Software Foundation, Inc.
......
;;; iso-insert.el --- insert functions for ISO 8859/1.
;;; iso-insert.el --- insert functions for ISO 8859/1
;; Copyright (C) 1987, 1994 Free Software Foundation, Inc.
......
;;; iso-transl.el --- keyboard input definitions for ISO 8859/1.
;;; iso-transl.el --- keyboard input definitions for ISO 8859/1
;; Copyright (C) 1987, 1993, 1994, 1995 Free Software Foundation, Inc.
......
;;; swedish.el --- miscellaneous functions for dealing with Swedish.
;;; swedish.el --- miscellaneous functions for dealing with Swedish
;; Copyright (C) 1988 Free Software Foundation, Inc.
......@@ -23,6 +23,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
;; Written by Howard Gayle. See case-table.el for details.
......
;;; isearch.el --- incremental search minor mode.
;;; isearch.el --- incremental search minor mode
;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1999, 2000, 2001
;; Free Software Foundation, Inc.
......
......@@ -23,7 +23,7 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Commentary:
;; This package implements low-level support for reading, writing,
;; and loading compressed files. It hooks into the low-level file
......@@ -917,4 +917,4 @@ Returns the new status of auto compression (non-nil means on)."
(provide 'jka-compr)
;; jka-compr.el ends here.
;;; jka-compr.el ends here
;;; kermit.el --- additions to shell mode for use with kermit, etc.
;;; kermit.el --- additions to shell mode for use with kermit
;; Copyright (C) 1988 Free Software Foundation, Inc.
......
;;; lazy-lock.el --- Lazy demand-driven fontification for fast Font Lock mode.
;;; lazy-lock.el --- lazy demand-driven fontification for fast Font Lock mode
;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2001
;; Free Software Foundation, Inc.
......@@ -8,7 +8,7 @@
;; Keywords: faces files
;; Version: 2.11
;;; This file is part of GNU Emacs.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
......
......@@ -3,7 +3,7 @@
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keyword: languages
;; Keywords: languages
;; This file is part of GNU Emacs.
......
;;; loadup.el --- load up standardly loaded Lisp files for Emacs.
;;; loadup.el --- load up standardly loaded Lisp files for Emacs
;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc.
......
;;; lpr.el --- print Emacs buffer on line printer.
;;; lpr.el --- print Emacs buffer on line printer
;; Copyright (C) 1985, 1988, 1992, 1994, 2001 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: unix
;; Maintainer: FSF
;; Keywords: unix
;; This file is part of GNU Emacs.
......
......@@ -2,10 +2,10 @@
;; Copyright (C) 1992, 1994, 2000 Free Software Foundation, Inc.
;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
;; Modified by: Francis J. Wright <F.J.Wright@maths.qmw.ac.uk>
;; Maintainer: FSF
;; Keywords: unix, dired
;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
;; Modified by: Francis J. Wright <F.J.Wright@maths.qmw.ac.uk>
;; Maintainer: FSF
;; Keywords: unix, dired
;; This file is part of GNU Emacs.
......
;;; macros.el --- non-primitive commands for keyboard macros.
;;; macros.el --- non-primitive commands for keyboard macros
;; Copyright (C) 1985, 86, 87, 92, 94, 95 Free Software Foundation, Inc.
......@@ -43,7 +43,7 @@ Such a \"function\" cannot be called from Lisp, but it is a valid editor command
(and (fboundp symbol)
(not (stringp (symbol-function symbol)))
(not (vectorp (symbol-function symbol)))
(error "Function %s is already defined and not a keyboard macro."
(error "Function %s is already defined and not a keyboard macro"
symbol))
(if (string-equal symbol "")
(error "No command name given"))
......@@ -281,7 +281,7 @@ and then select the region of un-tablified names and use
(or macro
(progn
(if (null last-kbd-macro)
(error "No keyboard macro has been defined."))
(error "No keyboard macro has been defined"))
(setq macro last-kbd-macro)))
(save-excursion
(let ((end-marker (progn
......
;;; blessmail.el --- Decide whether movemail needs special privileges.
;;; blessmail.el --- decide whether movemail needs special privileges
;; Copyright (C) 1994 Free Software Foundation, Inc.
......
;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list.
;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list