+2001-07-16 Pavel Jan
\e,Bm
\e(Bk <Pavel@Janik.cz>
+
+ * align.el, apropos.el, autorevert.el, battery.el, bookmark.el,
+ calculator.el, calendar/todo-mode.el, complete.el, cus-dep.el,
+ cus-edit.el, cus-face.el, delim-col.el, dos-fns.el, double.el,
+ edmacro.el, elide-head.el, emacs-lisp/autoload.el,
+ emacs-lisp/checkdoc.el, emacs-lisp/cl-compat.el,
+ emacs-lisp/cl-specs.el, emacs-lisp/copyright.el,
+ emacs-lisp/cust-print.el, emacs-lisp/easy-mmode.el,
+ emacs-lisp/elint.el, emacs-lisp/ewoc.el, emacs-lisp/find-func.el,
+ emacs-lisp/pp.el, emacs-lisp/re-builder.el, emacs-lisp/shadow.el,
+ emacs-lisp/sregex.el, emerge.el, emulation/edt-lk201.el,
+ emulation/edt-mapper.el, emulation/edt-pc.el,
+ emulation/edt-vt100.el, emulation/edt.el, emulation/pc-select.el,
+ emulation/tpu-edt.el, emulation/tpu-extras.el,
+ emulation/tpu-mapper.el, emulation/vip.el, expand.el, finder.el,
+ foldout.el, follow.el, format.el, forms-d2.el, forms.el,
+ generic.el, hi-lock.el, hilit-chg.el, hippie-exp.el, info-look.el,
+ international/isearch-x.el, international/iso-cvt.el,
+ international/ogonek.el, international/quail.el,
+ international/utf-8.el, jit-lock.el, language/devan-util.el,
+ language/devanagari.el, language/ethio-util.el,
+ language/ethiopic.el, language/european.el, language/indian.el,
+ language/romanian.el, language/tibet-util.el, language/tibetan.el,
+ mail/feedmail.el, mail/footnote.el, mail/mail-hist.el,
+ mail/mailheader.el, mail/mspools.el, mail/supercite.el,
+ mouse-sel.el, net/browse-url.el, net/net-utils.el,
+ net/quickurl.el, net/snmp-mode.el, net/webjump.el,
+ net/zone-mode.el, pcomplete.el, progmodes/antlr-mode.el,
+ progmodes/autoconf.el, progmodes/cmacexp.el,
+ progmodes/cperl-mode.el, progmodes/cpp.el, progmodes/cwarn.el,
+ progmodes/delphi.el, progmodes/ebnf-bnf.el, progmodes/ebnf-iso.el,
+ progmodes/ebnf-otz.el, progmodes/ebnf-yac.el,
+ progmodes/ebnf2ps.el, progmodes/executable.el,
+ progmodes/fortran.el, progmodes/idlw-shell.el,
+ progmodes/idlw-toolbar.el, progmodes/idlwave.el,
+ progmodes/m4-mode.el, progmodes/mantemp.el,
+ progmodes/meta-mode.el, progmodes/octave-inf.el,
+ progmodes/ps-mode.el, progmodes/scheme.el, progmodes/simula.el,
+ progmodes/tcl.el, ps-bdf.el, ps-mule.el, ps-print.el, recentf.el,
+ rect.el, regi.el, rsz-mini.el, s-region.el, scroll-all.el,
+ shadowfile.el, speedbar.el, term/AT386.el, term/internal.el,
+ term/iris-ansi.el, term/mac-win.el, term/tvi970.el,
+ textmodes/artist.el, textmodes/flyspell.el, textmodes/ispell.el,
+ textmodes/page-ext.el, textmodes/refer.el, textmodes/texinfmt.el,
+ textmodes/texinfo.el, textmodes/texnfo-upd.el,
+ textmodes/two-column.el, time-stamp.el, timezone.el,
+ toolbar/tool-bar.el, vc-rcs.el, vc-sccs.el, view.el, w32-fns.el,
+ which-func.el, whitespace.el, wid-browse.el, widget.el,
+ windmove.el, woman.el, xt-mouse.el: Some fixes to follow coding
+ conventions.
+
2001-07-16 Gerd Moellmann <gerd@gnu.org>
* simple.el (set-variable): Require 'cus-edit' instead of
-;;; align --- align text to a specific column, by regexp
+;;; align.el --- align text to a specific column, by regexp
;; Copyright (C) 1999, 2000 Free Sofware Foundation
-;;; apropos.el --- apropos commands for users and programmers.
+;;; apropos.el --- apropos commands for users and programmers
;; Copyright (C) 1989, 1994, 1995 Free Software Foundation, Inc.
-;;; autorevert --- revert buffers when files on disk change
+;;; autorevert.el --- revert buffers when files on disk change
;; Copyright (C) 1997, 1998, 1999, 2001 Free Software Foundation, Inc.
(if global-auto-revert-mode
(global-auto-revert-mode 1))
-;; autorevert.el ends here.
+;;; autorevert.el ends here
-;;; battery.el --- display battery status information.
+;;; battery.el --- display battery status information
;; Copyright (C) 1997, 1998, 2000, 2001 Free Software Foundation, Inc.
-;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later.
+;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later
;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 2001 Free Software Foundation
;; Boy, that's a tough one. Probably Hong Min, or maybe Emperor's
;; Choice (both in Chicago's Chinatown). Well, both. How about you?
\f
-;;;; Code:
+;;; Code:
(require 'pp)
-;;; calculator.el --- A [not so] simple calculator for Emacs.
+;;; calculator.el --- a [not so] simple calculator for Emacs
;; Copyright (C) 1998, 2000 by Free Software Foundation, Inc.
;; Author: Eli Barzilay <eli@barzilay.org>
;; Keywords: tools, convenience
-;; Time-stamp: <2000-11-19 20:59:59 eli>
+;; Time-stamp: <2001-07-15 11:04:11 pavel>
;; This file is part of GNU Emacs.
-;; todo-mode.el -- Major mode for editing TODO list files
+;;; todo-mode.el --- major mode for editing TODO list files
;; Copyright (C) 1997, 1999, 2001 Free Software Foundation, Inc.
;; Author: Oliver Seidel <os10000@seidel-space.de>
;; [Not clear the above works, July 2000]
;; Created: 2 Aug 1997
-;; Version: $Id: todo-mode.el,v 1.45 2001/07/05 13:44:53 gerd Exp $
+;; Version: $Id: todo-mode.el,v 1.46 2001/07/05 13:51:17 gerd Exp $
;; Keywords: calendar, todo
;; This file is part of GNU Emacs.
;;
;; Which version of todo-mode.el does this documentation refer to?
;;
-;; $Id: todo-mode.el,v 1.45 2001/07/05 13:44:53 gerd Exp $
+;; $Id: todo-mode.el,v 1.46 2001/07/05 13:51:17 gerd Exp $
;;
;; Pre-Requisites
;;
(provide 'complete)
-;;; End.
+;;; complete.el ends here
-;;; cus-dep.el --- Find customization dependencies.
+;;; cus-dep.el --- find customization dependencies
;;
;; Copyright (C) 1997 Free Software Foundation, Inc.
;;
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(eval-when-compile (require 'cl))
-;;; cus-edit.el --- Tools for customizing Emacs and Lisp packages.
+;;; cus-edit.el --- tools for customizing Emacs and Lisp packages
;;
;; Copyright (C) 1996, 1997, 1999, 2000, 2001 Free Software Foundation, Inc.
;;
-;;; cus-face.el -- customization support for faces.
+;;; cus-face.el --- customization support for faces
;;
;; Copyright (C) 1996, 1997, 1999, 2000 Free Software Foundation, Inc.
;;
-;;; delim-col.el --- Prettify all columns in a region or rectangle.
+;;; delim-col.el --- prettify all columns in a region or rectangle
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
-;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
-;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
-;; Time-stamp: <2000/10/28 09:34:15 Vinicius>
-;; Version: 2.1
-;; Keywords: internal
-;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
+;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
+;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
+;; Time-stamp: <2001-07-15 11:12:35 pavel>
+;; Version: 2.1
+;; Keywords: internal
+;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
;; This file is part of GNU Emacs.
-;;; dos-fns.el --- MS-Dos specific functions.
+;;; dos-fns.el --- MS-Dos specific functions
;; Copyright (C) 1991, 1993, 1995, 1996 Free Software Foundation, Inc.
(provide 'dos-fns)
-; dos-fns.el ends here
+;;; dos-fns.el ends here
-;;; double.el --- Support for keyboard remapping with double clicking
+;;; double.el --- support for keyboard remapping with double clicking
;; Copyright (C) 1994, 1997, 1998 Free Software Foundation, Inc.
(provide 'double)
;;; double.el ends here
-
(provide 'edmacro)
;;; edmacro.el ends here
-
-;;; elid-head.el --- hide headers in files
+;;; elide-head.el --- hide headers in files
;; Copyright (C) 1999 Free Software Foundation, Inc.
-;;; autoload.el --- maintain autoloads in loaddefs.el.
+;;; autoload.el --- maintain autoloads in loaddefs.el
;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001
;; Free Software Foundation, Inc.
-;;; checkdoc --- Check documentation strings for style requirements
+;;; checkdoc.el --- check documentation strings for style requirements
;;; Copyright (C) 1997, 1998, 2001 Free Software Foundation
(provide 'cl-compat)
;;; cl-compat.el ends here
-
;; LCD Archive Entry:
;; cl-specs.el|Daniel LaLiberte|liberte@holonexus.org
;; |Edebug specs for cl.el
-;; |$Date: 2000/04/13 19:10:09 $|1.1|
+;; |$Date: 2000/08/15 12:39:03 $|1.1|
;; This file is part of GNU Emacs.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;;;; Commentary:
+;;; Commentary:
;; These specs are to be used with edebug.el version 3.3 or later and
;; cl.el version 2.03 or later, by Dave Gillespie <daveg@synaptics.com>.
;; This file need not be byte-compiled, but it shouldn't hurt.
+;;; Code:
+
(provide 'cl-specs)
;; Do the above provide before the following require.
;; Otherwise if you load this before edebug if cl is already loaded
(def-edebug-spec loop-d-type-spec
(&or (loop-d-type-spec . [&or nil loop-d-type-spec]) cl-type-spec))
+;;; cl-specs.el ends here
;; coding: emacs-mule
;; End:
-;; copyright.el ends here
+;;; copyright.el ends here
-;;; cust-print.el --- handles print-level and print-circle.
+;;; cust-print.el --- handles print-level and print-circle
;; Copyright (C) 1992 Free Software Foundation, Inc.
(provide 'cust-print)
;;; cust-print.el ends here
-
-;;; easy-mmode.el --- easy definition for major and minor modes.
+;;; easy-mmode.el --- easy definition for major and minor modes
;; Copyright (C) 1997,2000 Free Software Foundation, Inc.
-;;; elint.el -- Lint Emacs Lisp
+;;; elint.el --- Lint Emacs Lisp
;; Copyright (C) 1997 Free Software Foundation, Inc.
(provide 'elint)
;;; elint.el ends here
-
-;;; ewoc.el -- Utility to maintain a view of a list of objects in a buffer
+;;; ewoc.el --- utility to maintain a view of a list of objects in a buffer
;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation
;; ("help.el") and `fff-find-loaded-emacs-lisp-function' (Noah Friedman's
;; "fff.el").
-;;;; Code:
+;;; Code:
(require 'loadhist)
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
+
(defgroup pp nil
"Pretty printer for Emacs Lisp."
:prefix "pp-"
(provide 'pp) ; so (require 'pp) works
-;;; pp.el ends here.
+;;; pp.el ends here
-;;; re-builder.el --- Building Regexps with visual feedback
+;;; re-builder.el --- building Regexps with visual feedback
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
-;;; shadow.el --- Locate Emacs Lisp file shadowings.
+;;; shadow.el --- locate Emacs Lisp file shadowings
;; Copyright (C) 1995 Free Software Foundation, Inc.
(provide 'sregex)
;;; sregex.el ends here
-
;;; The author has placed this file in the public domain.
+;; This file is part of GNU Emacs.
+
;; Author: Dale R. Worley <worley@world.std.com>
;; Version: 5fsf
;; Keywords: unix, tools
;; LOST DATA OR LOST PROFITS, OR FOR ANY SPECIAL, INCIDENTAL OR CONSEQUENTIAL
;; DAMAGES.
+;;; Commentary:
+
;;; Code:
;;;###autoload
-;;; edt-lk201.el --- Enhanced EDT Keypad Mode Emulation for LK-201 Keyboards
+;;; edt-lk201.el --- enhanced EDT keypad mode emulation for LK-201 keyboards
;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;;; Usage:
+;;; Commentary:
;; See edt-user.doc in the Emacs etc directory.
;; F1 - F5 are not available on many DEC VT series terminals.
;; However, this is not always the case. So support for F1 - F5 is
;; provided here and in lisp/term/lk201.el.
+
+;;; Code:
+
(defconst *EDT-keys*
'(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3])
("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7])
("F11" . [f11]) ("F12" . [f12]) ("F13" . [f13]) ("F14" . [f14])
("HELP" . [help]) ("DO" . [menu]) ("F17" . [f17]) ("F18" . [f18])
("F19" . [f19]) ("F20" . [f20])))
+
+;;; edt-lk201.el ends here
-;;; edt-mapper.el --- Create an EDT LK-201 Map File for X-Windows Emacs
+;;; edt-mapper.el --- create an EDT LK-201 map file for X-Windows Emacs
;; Copyright (C) 1994, 1995, 2000, 2001 Free Software Foundation, Inc.
-;;; edt-pc.el --- Enhanced EDT Keypad Mode Emulation for PC 101 Keyboards
+;;; edt-pc.el --- enhanced EDT keypad mode emulation for PC 101 keyboards
;; Copyright (C) 1986, 1994, 1995 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;;; Usage:
+;;; Commentary:
;; See edt-user.doc in the Emacs etc directory.
;; and F17 through F20 do not exist on the PC, so the EDT emulation is
;; configured below to ignore attempts to bind functions to those keys.
;;
+
+;;; Code:
+
(defconst *EDT-keys*
'(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3])
("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7])
("F11" . [f11]) ("F12" . [f12]) ("F13" . "" ) ("F14" . "" )
("HELP" . "" ) ("DO" . "" ) ("F17" . "" ) ("F18" . "" )
("F19" . "" ) ("F20" . "" )))
+
+;;; edt-pc.el ends here
-;;; edt-vt100.el --- Enhanced EDT Keypad Mode Emulation for VT Series Terminals
+;;; edt-vt100.el --- enhanced EDT keypad mode emulation for VT series terminals
;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;;; Usage:
+;;; Commentary:
;; See edt-user.doc in the Emacs etc directory.
;; ====================================================================
\f
+
+;;; Code:
+
;; Get keyboard function key mapping to EDT keys.
(load "edt-lk201" nil t)
(defun edt-set-term-width-132 ()
"Set terminal width to 132 columns."
(vt100-wide-mode 1))
+
+;;; edt-vt100.el ends here
-;;; edt.el --- Enhanced EDT Keypad Mode Emulation for GNU Emacs 19
+;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs 19
;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001
;; Free Software Foundation, Inc.
;; other programs.
;;
+;;; Code:
+
;;;; Customization:
(defgroup pc-select nil
"Emulate pc bindings."
(interactive)
(let ((list (tpu-make-file-buffer-list (buffer-list))))
(setq list (delq (current-buffer) list))
- (if (not list) (error "No other buffers."))
+ (if (not list) (error "No other buffers"))
(switch-to-buffer (car (reverse list)))))
(defun tpu-make-file-buffer-list (buffer-list)
(delete-region beg end)
(tpu-unset-match)))
(t
- (error "No selection active."))))
+ (error "No selection active"))))
(defun tpu-store-text nil
"Copy the selected region to the cut buffer without deleting it.
(buffer-substring (tpu-match-beginning) (tpu-match-end)))
(tpu-unset-match))
(t
- (error "No selection active."))))
+ (error "No selection active"))))
(defun tpu-cut (arg)
"Copy selected region to the cut buffer. In the absence of an
(if (not arg) (delete-region beg end))
(tpu-unset-match)))
(t
- (error "No selection active."))))
+ (error "No selection active"))))
(defun tpu-delete-current-line (num)
"Delete one or specified number of lines after point.
(not case-replace) (not tpu-regexp-p))
(tpu-unset-match)))
(t
- (error "No selection active."))))
+ (error "No selection active"))))
(defun tpu-substitute (num)
"Replace the selected region with the contents of the cut buffer, and
(tpu-search-internal-core tpu-search-last-string)))
(setq num (1- num))))
(t
- (error "No selection active."))))
+ (error "No selection active"))))
(defun tpu-lm-replace (from to)
"Interactively search for OLD-string and substitute NEW-string."
(let ((doit t) (strings 0))
;; Can't replace null strings
- (if (string= "" from) (error "No string to replace."))
+ (if (string= "" from) (error "No string to replace"))
;; Find the first occurrence
(tpu-set-search)
or each line in the entire buffer if no region is selected."
(interactive
(list (tpu-string-prompt "String to add: " 'tpu-add-at-bol-hist)))
- (if (string= "" text) (error "No string specified."))
+ (if (string= "" text) (error "No string specified"))
(cond ((tpu-mark)
(save-excursion
(if (> (point) (tpu-mark)) (exchange-point-and-mark))
or each line of the entire buffer if no region is selected."
(interactive
(list (tpu-string-prompt "String to add: " 'tpu-add-at-eol-hist)))
- (if (string= "" text) (error "No string specified."))
+ (if (string= "" text) (error "No string specified"))
(cond ((tpu-mark)
(save-excursion
(if (> (point) (tpu-mark)) (exchange-point-and-mark))
-;;; tpu-extras.el --- Scroll margins and free cursor mode for TPU-edt
+;;; tpu-extras.el --- scroll margins and free cursor mode for TPU-edt
;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc.
-;;; tpu-mapper.el --- Create a TPU-edt X-windows keymap file
+;;; tpu-mapper.el --- create a TPU-edt X-windows keymap file
;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
(com (car (cdr (cdr vip-d-com))))
(reg (nth 3 vip-d-com)))
(if (null val) (setq val (car (cdr vip-d-com))))
- (if (null m-com) (error "No previous command to repeat."))
+ (if (null m-com) (error "No previous command to repeat"))
(setq vip-use-register reg)
(funcall m-com (cons val com)))))
(let ((com (vip-getcom arg)))
(if (numberp arg)
(if (or (> arg 99) (< arg 1))
- (error "Prefix must be between 1 and 99.")
+ (error "Prefix must be between 1 and 99")
(goto-char
(if (> (point-max) 80000)
(* (/ (point-max) 100) arg)
"Repeat previous search."
(interactive "P")
(let ((val (vip-p-val arg)) (com (vip-getcom arg)))
- (if (null vip-s-string) (error "No previous search string."))
+ (if (null vip-s-string) (error "No previous search string"))
(vip-search vip-s-string vip-s-forward arg)
(if com (vip-execute-com 'vip-search-next val com))))
"Repeat previous search in the reverse direction."
(interactive "P")
(let ((val (vip-p-val arg)) (com (vip-getcom arg)))
- (if (null vip-s-string) (error "No previous search string."))
+ (if (null vip-s-string) (error "No previous search string"))
(vip-search vip-s-string (not vip-s-forward) arg)
(if com (vip-execute-com 'vip-search-Next val com))))
(if (null buffer-name)
(current-buffer)
(get-buffer buffer-name)))
- (if (null buffer) (error "Buffer %s nonexistent." buffer-name))
+ (if (null buffer) (error "Buffer %s nonexistent" buffer-name))
(if (or (not (buffer-modified-p buffer))
(y-or-n-p "Buffer is modified, are you sure? "))
(kill-buffer buffer)
- (error "Buffer not killed."))))
+ (error "Buffer not killed"))))
(defun vip-find-file ()
"Visit file in the current window."
-;;; expand.el --- make abbreviations more usable.
+;;; expand.el --- make abbreviations more usable
;; Copyright (C) 1995, 1996 Free Software Foundation, Inc.
(find-file "finder-inf.el")
(erase-buffer)
(insert ";;; finder-inf.el --- keyword-to-package mapping\n")
+ (insert ";; This file is part of GNU Emacs.\n")
(insert ";; Keywords: help\n")
(insert ";;; Commentary:\n")
(insert ";; Don't edit this file. It's generated by finder.el\n\n")
-;;; foldout.el --- Folding extensions for outline-mode and outline-minor-mode.
+;;; foldout.el --- folding extensions for outline-mode and outline-minor-mode
;; Copyright (C) 1994 Free Software Foundation, Inc.
(provide 'foldout)
;;; foldout.el ends here
-
-;;; follow.el --- Minor mode, Synchronize windows showing the same buffer.
+;;; follow.el --- synchronize windows showing the same buffer
;; Copyright (C) 1995, 1996, 1997, 1999, 2001 Free Software Foundation, Inc.
(cdr list)
(let ((p list))
(while (not (eq (cdr p) cons))
- (if (null p) (error "format-delq-cons: not an element."))
+ (if (null p) (error "format-delq-cons: not an element"))
(setq p (cdr p)))
;; Now (cdr p) is the cons to delete
(setcdr p (cdr cons))
;; Author: Johan Vromans <jvromans@squirrel.nl>
;; Created: 1989
+;; This file is part of GNU Emacs.
+
+;;; Commentary:
+
;; This sample forms exploit most of the features of forms mode.
+;;; Code:
+
;; Set the name of the data file.
(setq forms-file "forms-d2.dat")
))
;; That's all, folks!
+
+;;; forms-d2.el ends here
(provide 'forms) ;;; official
(provide 'forms-mode) ;;; for compatibility
-(defconst forms-version (substring "$Revision: 2.40 $" 11 -2)
+(defconst forms-version (substring "$Revision: 2.41 $" 11 -2)
"The version number of forms-mode (as string). The complete RCS id is:
- $Id: forms.el,v 2.40 1999/11/13 22:05:56 gerd Exp $")
+ $Id: forms.el,v 2.41 2001/02/07 23:40:52 fx Exp $")
(defcustom forms-mode-hooks nil
"Hook run upon entering Forms mode."
;; Need a file to do this.
(if (not (file-exists-p forms-file))
- (error "Need existing file or explicit 'forms-number-of-records'.")
+ (error "Need existing file or explicit 'forms-number-of-records'")
;; Visit the file and extract the first record.
(setq forms--file-buffer (find-file-noselect forms-file))
(goto-char (point-max))
(insert ret)))))
-;;; forms.el ends here.
+;;; forms.el ends here
-;;; generic.el --- Defining simple major modes with comment and font-lock.
+;;; generic.el --- defining simple major modes with comment and font-lock
;;
;; Copyright (C) 1997, 1999 Free Software Foundation, Inc.
;;
-;;; hi-lock.el --- Minor mode for interactive automatic highlighting.
+;;; hi-lock.el --- minor mode for interactive automatic highlighting
;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;;; Commentary
+;;; Commentary:
;;
;; With the hi-lock commands text matching interactively entered
;; regexp's can be highlighted. For example, `M-x highlight-regexp
(if (buffer-modified-p buf-a)
(if (y-or-n-p (format "OK to save %s? " file-a))
(save-buffer buf-a)
- (error "Buffer must be saved before comparing with a file.")))
+ (error "Buffer must be saved before comparing with a file")))
(if (and existing-buf (buffer-modified-p buf-b))
(if (y-or-n-p (format "OK to save %s? " file-b))
(save-buffer buf-b)
- (error "Cannot compare with a file in an unsaved buffer.")))
+ (error "Cannot compare with a file in an unsaved buffer")))
(highlight-changes-mode 'active)
(if existing-buf (with-current-buffer buf-b
(highlight-changes-mode 'active)))
-;;; hippie-exp.el --- expand text trying various ways to find its expansion.
+;;; hippie-exp.el --- expand text trying various ways to find its expansion
;; Copyright (C) 1992 Free Software Foundation, Inc.
-;;; info-look.el --- major-mode-sensitive Info index lookup facility.
+;;; info-look.el --- major-mode-sensitive Info index lookup facility
;; An older version of this was known as libc.el.
;; Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
;;;###autoload
-;;; iso-cvt.-el -- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*-
+;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*-
;; This file was formerly called gm-lingo.el.
;; Copyright (C) 1993, 1994, 1995, 1996, 1998, 2000 Free Software Foundation, Inc.
(format "%s (default %s): " prompt
(char-to-string (eval default-prefix-var))))))
(if (> (length prefix-string) 1)
- (error "! Only one character expected.")
+ (error "! Only one character expected")
;; set the default prefix character to the one just read
(set default-prefix-var
(if (string= prefix-string "")
the list `ogonek-name-encoding-alist'"
(let ((code-list (assoc encoding ogonek-name-encoding-alist)))
(if (null code-list)
- (error "! Name `%s' not known in `ogonek-name-encoding-alist'."
+ (error "! Name `%s' not known in `ogonek-name-encoding-alist'"
encoding)
(cdr code-list))))
-;;; quail.el --- Provides simple input method for multilingual text
+;;; quail.el --- provides simple input method for multilingual text
;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
-;;; utf-8.el --- Limited UTF-8 decoding/encoding support
+;;; utf-8.el --- limited UTF-8 decoding/encoding support
;; Copyright (C) 2001 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
(valid-codes (0 . 255))))
(define-coding-system-alias 'utf-8 'mule-utf-8)
+
+;;; utf-8.el ends here
-;;; jit-lock.el --- just-in-time fontification.
+;;; jit-lock.el --- just-in-time fontification
;; Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc.
(provide 'jit-lock)
-;; jit-lock.el ends here
+;;; jit-lock.el ends here
-;;; devan-util.el --- Support for Devanagari Script Composition
+;;; devan-util.el --- support for Devanagari Script Composition
;; Copyright (C) 1996, 2001 Free Software Foundation, Inc.
;;
(provide 'devan-util)
-;;; devan-util.el end here
-
;; Local Variables:
;; coding: iso-2022-7bit
;; End:
+
+;;; devan-util.el ends here
-;;; devanagari.el --- Support for Devanagari -*- coding: iso-2022-7bit; -*-
+;;; devanagari.el --- support for Devanagari -*- coding: iso-2022-7bit; -*-
;; Copyright (C) 1996 Free Software Foundation, Inc.
;; History:
;; 1996.10.18 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
;; 1997.1.20 fixed some bugs.
+
;;; Code:
(make-coding-system
;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
+;;; Commentary:
+
;;; Code:
;; Information for exiting Ethiopic environment.
composite t))
;; neither gemination nor fidel
((not (eq (char-charset ch) 'ethiopic))
- (error "Not a valid character.")))
+ (error "Not a valid character")))
;; set frequently referred character features
(setq ch (ethio-char-to-ethiocode ch)
(if (or (and (>= ch 344) (<= ch 380)) ;; mYa - `10000
(and (>= ch 448) (<= ch 452)) ;; \~X - \~A
(>= ch 458)) ;; private punctuations
- (error "Not a valid character."))
+ (error "Not a valid character"))
(setq
newch
-;;; ethiopic.el --- Support for Ethiopic -*- coding: iso-2022-7bit; -*-
+;;; ethiopic.el --- support for Ethiopic -*- coding: iso-2022-7bit; -*-
;; Copyright (C) 1995, 2001 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
+;;; Commentary:
+
;;; Code:
(define-ccl-program ccl-encode-ethio-font
-;;; european.el --- European languages -*- coding: iso-2022-7bit; -*-
+;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*-
;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
-;;; indian.el --- Support for Indian Languages -*- coding: iso-2022-7bit; -*-
+;;; indian.el --- support for Indian Languages -*- coding: iso-2022-7bit; -*-
;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; romanian.el --- Support for Romanian -*- coding: iso-latin-2; -*-
+;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; -*-
;; Copyright (C) 1998 Free Software Foundation.
(provide 'romanian)
-;; romanian.el ends here
-
+;;; romanian.el ends here
;; Created: Feb. 17. 1997
-;; History:
+;;; History:
;; 1997.03.13 Modification in treatment of text properties;
;; Support for some special signs and punctuations.
;; 1999.10.25 Modification for a new composition way by K.Handa.
+;;; Commentary:
+
;;; Code:
;;;###autoload
(provide 'tibet-util)
-;;; language/tibet-util.el ends here.
+;;; tibet-util.el ends here
-;;; tibetan.el --- Support for Tibetan language -*- coding: iso-2022-7bit; -*-
+;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*-
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
;; History:
;; 1997.03.13 Modification for special signs and punctuations.
+;;; Commentary:
+
;;; Code:
;;; Tibetan Character set.
(provide 'tibetan)
-;;; language/tibetan.el ends here
+;;; tibetan.el ends here
;;; feedmail.el --- assist other email packages to massage outgoing messages
;;; This file is in the public domain.
+;; This file is part of GNU Emacs.
+
;; Author: Bill Carpenter <bill@bubblegum.net>, <bill@carpenter.ORG>
;; Version: 8
;; Keywords: email, queue, mail, sendmail, message, spray, smtp, draft
(point-marker))))
(provide 'feedmail)
+
;;; feedmail.el ends here
-;;; footnote.el --- Footnote support for message mode -*- coding: iso-latin-1;-*-
+;;; footnote.el --- footnote support for message mode -*- coding: iso-latin-1;-*-
;; Copyright (C) 1997, 2000 by Free Software Foundation, Inc.
(goto-char (point-max))
(re-search-backward (concat "^" footnote-section-tag-regexp))
(forward-line 1))
- (error "I don't see a footnote here.")))))
+ (error "I don't see a footnote here")))))
(defun Footnote-back-to-message (&optional arg)
"Move cursor back to footnote referent.
-;;; mail-hist.el --- Headers and message body history for outgoing mail.
+;;; mail-hist.el --- headers and message body history for outgoing mail
;; Copyright (C) 1994 Free Software Foundation, Inc.
(ding)
(message "No history for \"%s\"." header))
(if (ring-empty-p ring)
- (error "\"%s\" ring is empty." header)
+ (error "\"%s\" ring is empty" header)
(and repeat
(delete-region (car mail-hist-last-bounds)
(cdr mail-hist-last-bounds)))
\f
(provide 'mail-hist)
-;; mail-hist.el ends here
+;;; mail-hist.el ends here
-;;; mailheader.el --- Mail header parsing, merging, formatting
+;;; mailheader.el --- mail header parsing, merging, formatting
;; Copyright (C) 1996 by Free Software Foundation, Inc.
-;;; mspools.el --- show mail spools waiting to be read.
+;;; mspools.el --- show mail spools waiting to be read
;; Copyright (C) 1997 Free Software Foundation, Inc.
nil)))
(provide 'mspools)
-;;; mspools.el ends here
+;;; mspools.el ends here
;; |Mail and news reply citation package
;; |1993/09/22 18:58:46|3.1|
-;; Code:
+;;; Commentary:
+
+;;; Code:
\f
(require 'regi)
(looking-at "^[ \t]*$")
(consp arg))
(insert (sc-mail-field "sc-citation"))
- (error "Line is already cited."))))
+ (error "Line is already cited"))))
(defun sc-version (arg)
"Echo the current version of Supercite in the minibuffer.
-;;; mouse-sel.el --- Multi-click selection support for Emacs 19
+;;; mouse-sel.el --- multi-click selection support for Emacs 19
;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
(provide 'mouse-sel)
-;; mouse-sel.el ends here.
+;;; mouse-sel.el ends here
-;;; browse-url.el --- Pass a URL to a WWW browser
+;;; browse-url.el --- pass a URL to a WWW browser
;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001
;; Free Software Foundation, Inc.
(switch-to-buffer buf)))
(if (eq (following-char) ?_)
(cond ((eq browse-url-lynx-input-field 'warn)
- (error "Please move out of the input field first."))
+ (error "Please move out of the input field first"))
((eq browse-url-lynx-input-field 'avoid)
(while (and (eq (following-char) ?_) (> n 0))
(term-send-down) ; down arrow
(sit-for browse-url-lynx-input-delay))
(if (eq (following-char) ?_)
- (error "Cannot move out of the input field, sorry.")))))
+ (error "Cannot move out of the input field, sorry")))))
(term-send-string proc (concat "g" ; goto
"\C-u" ; kill default url
url
-;;; net-utils.el --- Network functions
+;;; net-utils.el --- network functions
;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
;; Author: Peter Breton <pbreton@cs.umb.edu>
;; Created: Sun Mar 16 1997
;; Keywords: network communications
-;; Time-stamp: <2000-10-04 22:39:05 pbreton>
+;; Time-stamp: <2001-07-15 00:34:52 pavel>
;; This file is part of GNU Emacs.
-;;; quickurl.el --- Insert an URL based on text at point in buffer.
+;;; quickurl.el --- insert an URL based on text at point in buffer
;; Copyright (C) 1999,2000,2001 Free Software Foundation, Inc.
;; Created: 1999-05-28
;; Keywords: hypermedia
-;; 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
-;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode.
+;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode
;; Copyright (C) 1995,1998 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;; INTRODUCTION
;; ------------
;; This package provides a major mode for editing SNMP MIBs. It
;; Enabling global-font-lock-mode is also sufficient.
;;
+;;; Code:
+
;;;----------------------------------------------------------------------------
;;
;; Customize these:
(provide 'snmp-mode)
-;; snmp-mode.el ends here
+;;; snmp-mode.el ends here
((symbolp expr)
(if (fboundp expr)
(funcall expr name)
- (error "WebJump URL function \"%s\" undefined."
+ (error "WebJump URL function \"%s\" undefined"
expr)))
- (t (error "WebJump URL expression for \"%s\" invalid."
+ (t (error "WebJump URL expression for \"%s\" invalid"
name)))))))
(defun webjump-builtin (expr name)
(if (< (length expr) 1)
- (error "WebJump URL builtin for \"%s\" empty." name))
+ (error "WebJump URL builtin for \"%s\" empty" name))
(let ((builtin (aref expr 0)))
(cond
((eq builtin 'mirrors)
((eq builtin 'simple-query)
(webjump-builtin-check-args expr name 3)
(webjump-do-simple-query name (aref expr 1) (aref expr 2) (aref expr 3)))
- (t (error "WebJump URL builtin \"%s\" for \"%s\" invalid."
+ (t (error "WebJump URL builtin \"%s\" for \"%s\" invalid"
builtin name)))))
(defun webjump-builtin-check-args (expr name count)
(or (= (length expr) (1+ count))
- (error "WebJump URL builtin \"%s\" for \"%s\" needs %d args."
+ (error "WebJump URL builtin \"%s\" for \"%s\" needs %d args"
(aref expr 0) name count)))
(defun webjump-choose-mirror (name urls)
(provide 'webjump)
-;; webjump.el ends here
+;;; webjump.el ends here
-;;; zone-mode.el -- major mode for editing DNS zone files.
+;;; zone-mode.el --- major mode for editing DNS zone files
;; Copyright (C) 1998 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;;
;;; See the comments in ``define-derived-mode zone-mode''
;;; (the last function in this file)
((not (string= old-date cur-date))
"00") ;; reset sequeence number
((>= old-seq-num 99)
- (error "Serial number's sequenece cannot increment beyond 99."))
+ (error "Serial number's sequenece cannot increment beyond 99"))
(t
(format "%02d" (1+ old-seq-num)))))
(old-serial (concat old-date old-seq))
-;;; pcomplete --- programmable completion
+;;; pcomplete.el --- programmable completion
;; Copyright (C) 1999, 2000, 2001 Free Sofware Foundation
-;;; antlr-mode.el --- Major mode for ANTLR grammar files
+;;; antlr-mode.el --- major mode for ANTLR grammar files
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
;;
indent-tabs-mode (cadddr elem)
alist nil))))))
-;;; antlr-mode.el ends here
-
; LocalWords: antlr ANother ANTLR's Cpp Lexer TreeParser esp refs VALUEs ea ee
; LocalWords: Java's Nomencl ruledef tokendef ruleref tokenref setType ader ev
; LocalWords: ivate syntab lexer treeparser lic rotected rivate bor boi AFAIK
; LocalWords: VOCAB EVOCAB Antlr's TokenTypes exportVocab incl excl SUPERS gen
; LocalWords: VOCABS IVOCAB exportVocabs importVocabs superclasses vocab kens
; LocalWords: sclass evocab ivocab importVocab deps glibs supers sep dep lang
+
+;;; antlr-mode.el ends here
-;;; autoconf.el --- Mode for editing Autoconf configure.in files.
+;;; autoconf.el --- mode for editing Autoconf configure.in files
;; Copyright (C) 2000 Free Software Foundation, Inc.
;; Author: Dave Love <fx@gnu.org>
;; Keywords: languages
-;; $Revision: $
+;; $Revision: 1.1 $
;; This file is part of GNU Emacs.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;; USAGE =============================================================
;; In C mode C-C C-e is bound to c-macro-expand. The result of the
;; If the start point of the region is inside a macro definition the
;; macro expansion is often inaccurate.
+;;; Code:
(require 'cc-mode)
(defmacro cperl-ps-extend-face-list (arg)
`(ps-extend-face-list ,arg))
(defmacro cperl-ps-extend-face-list (arg)
- `(error "This version of Emacs has no `ps-extend-face-list'.")))
+ `(error "This version of Emacs has no `ps-extend-face-list'")))
;; Calling `cperl-enable-font-lock' below doesn't compile on XEmacs,
;; macros instead of defsubsts don't work on Emacs, so we do the
;; expansion manually. Any other suggestions?
-;;; cpp.el --- Highlight or hide text according to cpp conditionals.
+;;; cpp.el --- highlight or hide text according to cpp conditionals
;; Copyright (C) 1994, 1995 Free Software Foundation
-;;; cwarn.el --- Highlight suspicious C and C++ constructions.
+;;; cwarn.el --- highlight suspicious C and C++ constructions
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
-;; delphi.el --- Major mode for editing Delphi source (Object Pascal) in Emacs
+;;; delphi.el --- major mode for editing Delphi source (Object Pascal) in Emacs
;; Copyright (C) 1998, 1999 Free Software Foundation, Inc.
(provide 'delphi)
(defconst delphi-version
- (let ((revision "$Revision: 3.4 $"))
+ (let ((revision "$Revision: 3.5 $"))
(string-match ": \\([^ ]+\\)" revision)
(match-string 1 revision))
"Version of this delphi mode.")
;;; $Log: delphi.el,v $
+;;; Revision 3.5 2001/01/26 20:54:03 fx
+;;; (delphi-comment-face, delphi-string-face)
+;;; (delphi-keyword-face, delphi-other-face): Fix :type.
+;;;
;;; Revision 3.4 2000/02/09 07:04:15 blaak
;;; Make resourcestring a declaration region, like const and var.
;;;
(delphi-progress-done))))
(run-hooks 'delphi-mode-hook))
+
+;;; delphi.el ends here
-;;; ebnf-bnf --- Parser for EBNF
+;;; ebnf-bnf.el --- parser for EBNF
;; Copyright (C) 1999, 2000 Free Sofware Foundation, Inc.
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Keywords: wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 15:29:04 vinicius>
+;; Time-stamp: <2001-07-15 01:02:12 pavel>
;; Version: 1.5
;; This file is part of GNU Emacs.
;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; code:
+;;; Code:
(require 'ebnf-otz)
(goto-char start)
(setq token (ebnf-bnf-lex))
(and (eq token 'end-of-input)
- (error "Invalid EBNF file format."))
+ (error "Invalid EBNF file format"))
(while (not (eq token 'end-of-input))
(ebnf-message-float
"Parsing...%s%%"
body)
(setq ebnf-action nil)
(or (eq token 'non-terminal)
- (error "Invalid header production."))
+ (error "Invalid header production"))
(or (eq (ebnf-bnf-lex) 'equal)
- (error "Invalid production: missing `='."))
+ (error "Invalid production: missing `='"))
(setq body (ebnf-body))
(or (eq (car body) 'period)
- (error "Invalid production: missing `.'."))
+ (error "Invalid production: missing `.'"))
(setq body (cdr body))
(ebnf-eps-add-production header)
(cons (ebnf-bnf-lex)
(let ((kind (ebnf-node-kind node)))
(cond
((eq kind 'ebnf-generate-non-terminal)
- (error "Exception sequence should not contain a non-terminal."))
+ (error "Exception sequence should not contain a non-terminal"))
((eq kind 'ebnf-generate-repeat)
(ebnf-no-non-terminal (ebnf-node-separator node)))
((memq kind '(ebnf-generate-optional ebnf-generate-except))
(ebnf-term token)
(let ((times ebnf-bnf-lex))
(or (eq (ebnf-bnf-lex) 'repeat)
- (error "Missing `*'."))
+ (error "Missing `*'"))
(ebnf-token-repeat times (ebnf-term (ebnf-bnf-lex))))))
((eq token 'begin-group)
(let ((body (ebnf-body)))
(or (eq (car body) 'end-group)
- (error "Missing `)'."))
+ (error "Missing `)'"))
(cdr body)))
;; optional
((eq token 'begin-optional)
(let ((body (ebnf-body)))
(or (eq (car body) 'end-optional)
- (error "Missing `]'."))
+ (error "Missing `]'"))
(ebnf-token-optional (cdr body))))
;; list
((eq token 'begin-list)
((eq token 'end-zero-or-more)
(ebnf-make-zero-or-more list-part sep-part))
(t
- (error "Missing `}+', `}*' or `}'."))
+ (error "Missing `}+', `}*' or `}'"))
)))
;; no term
(t
'end-of-input)
;; error
((eq token 'error)
- (error "Illegal character."))
+ (error "Illegal character"))
;; default
((eq token 'default)
(forward-char)
(prog1
(ebnf-bnf-lex)
(setq ebnf-default-p t))
- (error "Illegal `default' element.")))
+ (error "Illegal `default' element")))
;; integer
((eq token 'integer)
(setq ebnf-bnf-lex (ebnf-buffer-substring "0-9"))
(forward-char)
t)
(t
- (error "Illegal character."))
+ (error "Illegal character"))
))
-;;; ebnf-iso --- Parser for ISO EBNF
+;;; ebnf-iso.el --- parser for ISO EBNF
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Keywords: wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 15:25:16 vinicius>
+;; Time-stamp: <2001-07-15 01:03:20 pavel>
;; Version: 1.5
;; This file is part of GNU Emacs.
;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; code:
+;;; Code:
(require 'ebnf-otz)
(goto-char start)
(setq token (ebnf-iso-lex))
(and (eq token 'end-of-input)
- (error "Invalid ISO EBNF file format."))
+ (error "Invalid ISO EBNF file format"))
(while (not (eq token 'end-of-input))
(ebnf-message-float
"Parsing...%s%%"
body)
(setq ebnf-action nil)
(or (eq token 'non-terminal)
- (error "Invalid meta identifier syntax rule."))
+ (error "Invalid meta identifier syntax rule"))
(or (eq (ebnf-iso-lex) 'equal)
- (error "Invalid syntax rule: missing `='."))
+ (error "Invalid syntax rule: missing `='"))
(setq body (ebnf-iso-definition-list))
(or (eq (car body) 'period)
- (error "Invalid syntax rule: missing `;' or `.'."))
+ (error "Invalid syntax rule: missing `;' or `.'"))
(setq body (cdr body))
(ebnf-eps-add-production header)
(cons (ebnf-iso-lex)
(if (eq token 'integer)
(let ((times ebnf-iso-lex))
(or (eq (ebnf-iso-lex) 'repeat)
- (error "Missing `*'."))
+ (error "Missing `*'"))
(ebnf-token-repeat times (ebnf-iso-primary (ebnf-iso-lex))))
(ebnf-iso-primary token)))
((eq token 'begin-group)
(let ((body (ebnf-iso-definition-list)))
(or (eq (car body) 'end-group)
- (error "Missing `)'."))
+ (error "Missing `)'"))
(cdr body)))
;; optional sequence
((eq token 'begin-optional)
(let ((body (ebnf-iso-definition-list)))
(or (eq (car body) 'end-optional)
- (error "Missing `]' or `/)'."))
+ (error "Missing `]' or `/)'"))
(ebnf-token-optional (cdr body))))
;; repeated sequence
((eq token 'begin-zero-or-more)
(let* ((body (ebnf-iso-definition-list))
(repeat (cdr body)))
(or (eq (car body) 'end-zero-or-more)
- (error "Missing `}' or `:)'."))
+ (error "Missing `}' or `:)'"))
(ebnf-make-zero-or-more repeat)))
;; empty
(t
'end-of-input)
;; error
((eq token 'error)
- (error "Illegal character."))
+ (error "Illegal character"))
;; integer
((eq token 'integer)
(setq ebnf-iso-lex (ebnf-buffer-substring "0-9"))
(ebnf-trim-right
(ebnf-buffer-substring " 0-9A-Za-z\240-\377"))))
(and ebnf-no-meta-identifier
- (error "Exception sequence should not contain a meta identifier."))
+ (error "Exception sequence should not contain a meta identifier"))
'non-terminal)
;; begin optional, begin list or begin group
((eq token 'left-parenthesis)
(while (> pair 0)
(skip-chars-forward ebnf-iso-comment-chars ebnf-limit)
(cond ((>= (point) ebnf-limit)
- (error "Missing end of comment: `*)'."))
+ (error "Missing end of comment: `*)'"))
((= (following-char) ?*)
(skip-chars-forward "*" ebnf-limit)
(when (= (following-char) ?\))
(forward-char)
(setq pair (1+ pair))))
(t
- (error "Illegal character."))
+ (error "Illegal character"))
))))
-;;; ebnf-otz --- Syntatic chart OpTimiZer
+;;; ebnf-otz.el --- syntatic chart OpTimiZer
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Keywords: wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 14:54:41 vinicius>
+;; Time-stamp: <2001-07-15 01:03:33 pavel>
;; Version: 1.0
;; This file is part of GNU Emacs.
;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; code:
+;;; Code:
(require 'ebnf2ps)
-;;; ebnf-yac --- Parser for Yacc/Bison
+;;; ebnf-yac.el --- parser for Yacc/Bison
;; Copyright (C) 1999, 2000 Free Sofware Foundation, Inc.
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Keywords: wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 15:47:23 vinicius>
+;; Time-stamp: <2001-07-15 01:04:02 pavel>
;; Version: 1.1
;; This file is part of GNU Emacs.
;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; code:
+;;; Code:
(require 'ebnf-otz)
(goto-char start)
(setq token (ebnf-yac-lex))
(and (eq token 'end-of-input)
- (error "Invalid Yacc/Bison file format."))
+ (error "Invalid Yacc/Bison file format"))
(or (eq (ebnf-yac-definitions token) 'yac-separator)
- (error "Missing `%%%%'."))
+ (error "Missing `%%%%'"))
(setq token (ebnf-yac-lex))
(while (not (memq token '(end-of-input yac-separator)))
(ebnf-message-float
(setq token (ebnf-yac-lex))
(when (eq token 'open-angle)
(or (eq (ebnf-yac-lex) 'non-terminal)
- (error "Missing type name."))
+ (error "Missing type name"))
(or (eq (ebnf-yac-lex) 'close-angle)
- (error "Missing `>'."))
+ (error "Missing `>'"))
(setq token (ebnf-yac-lex)))
(setq token (ebnf-yac-name-list token)
ebnf-yac-token-list (nconc (cdr token)
body)
(setq ebnf-action nil)
(or (eq token 'non-terminal)
- (error "Invalid rule name."))
+ (error "Invalid rule name"))
(or (eq (ebnf-yac-lex) 'colon)
- (error "Invalid rule: missing `:'."))
+ (error "Invalid rule: missing `:'"))
(setq body (ebnf-yac-alternative))
(or (eq (car body) 'period)
- (error "Invalid rule: missing `;'."))
+ (error "Invalid rule: missing `;'"))
(setq body (cdr body))
(ebnf-eps-add-production header)
(cons (ebnf-yac-lex)
token (ebnf-yac-lex))
(eq token 'comma))
(or (eq (ebnf-yac-lex) 'non-terminal)
- (error "Missing token name."))))
+ (error "Missing token name"))))
(cons token names)))
\f
'end-of-input)
;; error
((eq token 'error)
- (error "Illegal character."))
+ (error "Illegal character"))
;; "string"
((eq token 'string)
(setq ebnf-yac-lex (ebnf-get-string))
((= (following-char) ?\')
(ebnf-string " -&(-~" ?\' "character"))
(t
- (error "Illegal character."))
+ (error "Illegal character"))
)))
(ebnf-yac-skip-spaces))
(while not-end
(skip-chars-forward ebnf-yac-comment-chars ebnf-limit)
(cond ((>= (point) ebnf-limit)
- (error "Missing end of comment: `*/'."))
+ (error "Missing end of comment: `*/'"))
((= (following-char) ?*)
(skip-chars-forward "*" ebnf-limit)
(when (= (following-char) ?/)
(forward-char)
(setq not-end nil)))
(t
- (error "Illegal character."))
+ (error "Illegal character"))
))))
-;;; ebnf2ps --- Translate an EBNF to a syntatic chart on PostScript
+;;; ebnf2ps.el --- translate an EBNF to a syntatic chart on PostScript
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Keywords: wp, ebnf, PostScript
-;; Time-stamp: <2001/02/02 15:23:39 vinicius>
+;; Time-stamp: <2001-07-15 01:05:00 pavel>
;; Version: 3.5
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/Emacs.html
;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; code:
+;;; Code:
(require 'ps-print)
;;(skip-chars-forward (concat chars "\240-\377") ebnf-limit)
(skip-chars-forward (concat chars ebnf-8-bit-chars) ebnf-limit)
(if (or (eobp) (/= (following-char) eos-char))
- (error "Illegal %s: missing `%c'." kind eos-char)
+ (error "Illegal %s: missing `%c'" kind eos-char)
(forward-char)
(1- (point))))))
(goto-char (+ (point) n 1))))
(if (= (preceding-char) ?\")
(1- (point))
- (error "Missing `\"'.")))
+ (error "Missing `\"'")))
(defun ebnf-trim-right (str)
(provide 'ebnf2ps)
-
;;; ebnf2ps.el ends here
(provide 'executable)
-;; executable.el ends here
+;;; executable.el ends here
(other-window 1)
(switch-to-buffer " fortran-window-extra" t)
(select-window (previous-window))))
- (error (message "No room for Fortran window.")
+ (error (message "No room for Fortran window")
'error)))
(defun fortran-window-create-momentarily (&optional arg)
-;;; idlw-shell.el --- Run IDL or WAVE as an inferior process of Emacs.
+;;; idlw-shell.el --- run IDL or WAVE as an inferior process of Emacs
;; Copyright (c) 1999, 2000 Free Software Foundation
;; Author: Chris Chase <chase@att.com>
;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl>
;; Version: 4.7
-;; Date: $Date: 2000/12/11 12:44:44 $
+;; Date: $Date: 2000/12/19 11:13:34 $
;; Keywords: processes
;; This file is part of GNU Emacs.
-;;; idlw-toolbar.el --- A debugging toolbar for IDLWAVE
+;;; idlw-toolbar.el --- a debugging toolbar for IDLWAVE
;; Copyright (c) 1999, 2000 Free Software Foundation
;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl>
;; Version: 4.7
-;; Date: $Date: 2000/12/11 12:44:44 $
+;; Date: $Date: 2000/12/19 11:14:24 $
;; Keywords: processes
;; This file is part of GNU Emacs.
(provide 'idlwave-toolbar)
;;; idlw-toolbar.el ends here
-
-
;; Author: Chris Chase <chase@att.com>
;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl>
;; Version: 4.7
-;; Date: $Date: 2000/12/11 12:44:44 $
+;; Date: $Date: 2000/12/19 11:12:40 $
;; Keywords: languages
-;; This file is part of the 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
(file-name-directory idlwave-libinfo-file))
(not (string= "" (file-name-nondirectory
idlwave-libinfo-file))))
- (error "`idlwave-libinfo-file' does not point to file in accessible directory."))
+ (error "`idlwave-libinfo-file' does not point to file in accessible directory"))
(cond
((and arg idlwave-path-alist
(let* ((class (nth 2 (idlwave-current-routine))))
;; Check if we are in a class routine
(unless class
- (error "Not in a method procedure or function."))
+ (error "Not in a method procedure or function"))
;; Check if we need to update the "current" class
(if (not (equal class idlwave-current-tags-class))
(idlwave-prepare-class-tag-completion class))
(if idlwave-help-is-loaded
t ;; everything is OK.
(let* ((dir (or (idlwave-help-directory)
- (error "Online Help is not installed (idlwave-help-directory is unknown).")))
+ (error "Online Help is not installed (idlwave-help-directory is unknown)")))
(lfile1 (expand-file-name "idlw-help.elc" dir))
(lfile2 (expand-file-name "idlw-help.el" dir))
(hfile (expand-file-name "idlw-help.txt" dir)))
(if (car module)
(apply 'idlwave-display-calling-sequence
(idlwave-fix-module-if-obj_new module))
- (error "Don't know which calling sequence to show.")))))
+ (error "Don't know which calling sequence to show")))))
(defun idlwave-resolve (&optional arg)
"Call RESOLVE on the module name at point.
((null entry)
(error "Nothing known about a module %s" name2))
((eq (car source) 'system)
- (error "Source code for system routine %s is not available."
+ (error "Source code for system routine %s is not available"
name2))
((equal (cdr source) "")
- (error "Source code for routine %s is not available."
+ (error "Source code for routine %s is not available"
name2))
((memq (car source) '(buffer lib compiled))
(setq buf1
(error "No %s %s known %s" type name
(if initial-class (concat "in class " initial-class) "")))
((or (null name) (equal name ""))
- (error "No function or procedure call at point."))
+ (error "No function or procedure call at point"))
((null calling-seq)
(error "Calling sequence of %s %s is not available" type name))
(t
(not (idlwave-shell-is-running)))
(error "Shell is not running"))
((null idlwave-compiled-routines)
- (error "No compiled routines. Maybe you need to update with `C-c C-i'."))
+ (error "No compiled routines. Maybe you need to update with `C-c C-i'"))
(t
(idlwave-list-load-path-shadows nil idlwave-compiled-routines
"in the shell"))))
(provide 'idlwave)
;;; idlwave.el ends here
-
-
;;; "m4_syscmd" "m4_sysval" "m4_traceoff" "m4_traceon" "m4_translit"
;;; "m4_m4_undefine" "m4_undivert"))
-;;; m4.el ends here
+;;; m4-mode.el ends here
-;;; mantemp.el --- Create manual template instantiations from g++ 2.7.2 output.
+;;; mantemp.el --- create manual template instantiations from g++ 2.7.2 output
;; Copyright (C) 1996 Free Software Foundation, Inc.
-;;; meta-mode.el --- major mode for editing Metafont or MetaPost sources.
+;;; meta-mode.el --- major mode for editing Metafont or MetaPost sources
;; Copyright (C) 1997 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(require 'octave-mod)
-;;; ps-mode.el --- PostScript mode for GNU Emacs.
+;;; ps-mode.el --- PostScript mode for GNU Emacs
;; Copyright (C) 1999 Free Software Foundation, Inc.
-;;; scheme.el --- Scheme (and DSSSL) editing mode.
+;;; scheme.el --- Scheme (and DSSSL) editing mode
;; Copyright (C) 1986, 87, 88, 97, 1998 Free Software Foundation, Inc.
(match-beginning 2)
(match-end 2)))))
(if (not (and major minor))
- (error "Cannot figure out the major and minor version numbers."))
+ (error "Cannot figure out the major and minor version numbers"))
;; calculate the major version
(cond
((= major 18) (setq major 'v18)) ;Emacs 18
-;; tcl.el --- Tcl code editing commands for Emacs
+;;; tcl.el --- Tcl code editing commands for Emacs
;; Copyright (C) 1994, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
;; Author: Tom Tromey <tromey@busco.lanl.gov>
;; Chris Lindblad <cjl@lcs.mit.edu>
;; Keywords: languages tcl modes
-;; Version: $Revision: 1.61 $
+;; Version: $Revision: 1.62 $
;; This file is part of GNU Emacs.
(require 'imenu))
()))
-(defconst tcl-version "$Revision: 1.61 $")
+(defconst tcl-version "$Revision: 1.62 $")
(defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>")
;;
-;;; ps-bdf.el --- BDF font file handler for ps-print.
+;;; ps-bdf.el --- BDF font file handler for ps-print
;; Copyright (C) 1998,99,2001 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
;; Keywords: wp, BDF, font, PostScript
-;; Maintainer: Kenichi Handa <handa@etl.go.jp>
-;; Time-stamp: <2001/03/05 09:04:32 vinicius>
+;; Maintainer: Kenichi Handa <handa@etl.go.jp>
+;; Time-stamp: <2001-07-15 12:25:51 pavel>
;; This file is part of GNU Emacs.
-;;; ps-mule.el --- Provide multi-byte character facility to ps-print.
+;;; ps-mule.el --- provide multi-byte character facility to ps-print
;; Copyright (C) 1998,99,00,2001 Free Software Foundation, Inc.
-;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
-;; Author: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
+;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
+;; Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
-;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
-;; Keywords: wp, print, PostScript, multibyte, mule
-;; Time-stamp: <2001/03/16 18:50:59 Handa>
+;; Vinicius Jose Latorre <vinicius@cpqd.com.br>
+;; Keywords: wp, print, PostScript, multibyte, mule
+;; Time-stamp: <2001/03/16 18:50:59 Handa>
;; This file is part of GNU Emacs.
((fboundp 'x-color-values)
(ps-e-x-color-values x-color))
(t
- (error "No available function to determine X color values."))))
+ (error "No available function to determine X color values"))))
(defalias 'ps-face-foreground-name 'face-foreground)
(defalias 'ps-face-background-name 'face-background)
x-color
(ps-x-make-color-instance color))))
(t
- (error "No available function to determine X color values.")))))
+ (error "No available function to determine X color values")))))
(defun ps-face-foreground-name (face)
(ps-xemacs-color-name (face-foreground face)))
(with-temp-buffer
(insert-file-contents filename)
(buffer-string))
- (error "ps-print PostScript prologue `%s' file was not found."
+ (error "ps-print PostScript prologue `%s' file was not found"
filename))))
-;; recentf.el --- setup a menu of recently opened files
+;;; recentf.el --- setup a menu of recently opened files
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
-;;; rect.el --- rectangle functions for GNU Emacs.
+;;; rect.el --- rectangle functions for GNU Emacs
;; Copyright (C) 1985, 1999, 2000, 2001 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
\f
\f
(provide 'regi)
+
;;; regi.el ends here
;; Maintainer: Noah Friedman <friedman@splode.com>
;; Keywords: minibuffer, window, frame, display
-;; $Id: rsz-mini.el,v 1.27 1999/09/13 20:49:05 gerd Exp $
+;; $Id: rsz-mini.el,v 1.28 2000/12/06 19:36:57 fx Exp $
;; This file is part of GNU Emacs.
(provide 'rsz-mini)
-;; rsz-mini.el ends here
+;;; rsz-mini.el ends here
-;;; s-region.el --- set region using shift key.
+;;; s-region.el --- set region using shift key
;; Copyright (C) 1994, 1995 Free Software Foundation, Inc.
(provide 's-region)
-;; s-region.el ends here.
+;;; s-region.el ends here
-;;; scroll-all.el -- scroll all buffers together minor mode
+;;; scroll-all.el --- scroll all buffers together minor mode
;; Copyright (C) 1997 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;; Commentary
+;;; Commentary:
;; This mode allows multiple buffers to be 'locked' so that scrolling
;; up or down lines in any buffer causes all the buffers to mirror
;; the scrolling. It hooks into the post-command-hook to check for
;; Rick Macdonald <rickm@vsl.com>
;; Anders Lindgren <andersl@csd.uu.se>
+;;; Code:
+
(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
;;;###autoload
(provide 'scroll-all)
-;; scroll-all.el ends here
+;;; scroll-all.el ends here
(provide 'shadowfile)
;;; shadowfile.el ends here
-
-;;; speedbar --- quick access to files and tags in a frame
+;;; speedbar.el --- quick access to files and tags in a frame
;;; Copyright (C) 1996, 97, 98, 99, 2000, 01 Free Software Foundation
(def-edebug-spec speedbar-with-writable def-body)))
(provide 'speedbar)
-;;; speedbar ends here
;; run load-time hooks
(run-hooks 'speedbar-load-hook)
+
+;;; speedbar.el ends here
;; The terminal initialization should already have set up some keys
(setq AT386-keypad-map (lookup-key function-key-map "\e["))
(if (not (keymapp AT386-keypad-map))
- (error "What? Your AT386 termcap/terminfo has no keycaps in it."))
+ (error "What? Your AT386 termcap/terminfo has no keycaps in it"))
;; Equivalents of these are set up automatically by termcap/terminfo
;; (define-key AT386-keypad-map "A" [up])
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
;; ---------------------------------------------------------------------------
(standard-display-8bit 127 255)
;;; internal.el ends here
-
-;; term/iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps
+;;; iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps
;; Copyright (C) 1997 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
+;;; Code:
+
(define-key function-key-map "\e[120q" [S-escape])
(define-key function-key-map "\e[121q" [C-escape])
(define-key function-key-map "\e[196q" [C-delete])
(define-key function-key-map "\e[197q" [M-delete])
-;;; term/iris-ansi.el ends here
+;;; iris-ansi.el ends here
-;;; mac-win.el --- support for "Macintosh windows".
+;;; mac-win.el --- support for "Macintosh windows"
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
;; ---------------------------------------------------------------------------
XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp")
;;; mac-win.el ends here
-
(tvi970-set-keypad-mode 1)
-;;; tv970 ends here
+;;; tvi970.el ends here
;; Don't hesitate to ask me any questions.
-;; artist.el ends here
+;;; artist.el ends here
-;;; flyspell.el --- On-the-fly spell checker
+;;; flyspell.el --- on-the-fly spell checker
;; Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc.
;; Author: Manuel Serrano <Manuel.Serrano@unice.fr>
;; Keywords: convenience
-;;; 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
(set (abbrev-symbol old table) new))
(provide 'flyspell)
+
;;; flyspell.el ends here
-;;; ispell.el --- Interface to International Ispell Versions 3.1 and 3.2
+;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2
;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
-;; Author: Ken Stevens <k.stevens@ieee.org>
-;; Maintainer: Ken Stevens <k.stevens@ieee.org>
+;; Author: Ken Stevens <k.stevens@ieee.org>
+;; Maintainer: Ken Stevens <k.stevens@ieee.org>
;; Stevens Mod Date: Fri Aug 4 09:41:50 PDT 2000
;; Stevens Revision: 3.4
;; Status : Release with 3.1.12+ and 3.2.0+ ispell.
(setq ispell-filter (cdr ispell-filter)) ; remove extra \n
(if (and ispell-filter (listp ispell-filter))
(if (> (length ispell-filter) 1)
- (error "Ispell and its process have different character maps.")
+ (error "Ispell and its process have different character maps")
(setq poss (ispell-parse-output (car ispell-filter)))))
(cond ((eq poss t)
(or quietly
(progn
(setq pages-buffer nil
pages-pos-list nil)
- (error "Buffer in which pages were found is deleted.")))
+ (error "Buffer in which pages were found is deleted")))
(beginning-of-line)
(let* ((pages-number (1- (count-lines (point-min) (point))))
(pos (nth pages-number pages-pos-list))
;;; Place `provide' at end of file.
(provide 'page-ext)
-;;;;;;;;;;;;;;;; end of page-ext.el ;;;;;;;;;;;;;;;;
-
+;;; page-ext.el ends here
-;;; refer.el --- look up references in bibliography files.
+;;; refer.el --- look up references in bibliography files
;; Copyright (C) 1992, 1996 Free Software Foundation, Inc.
(if (looking-at
"[ \t\n]*@\\s-*[a-zA-Z][a-zA-Z0-9]*\\s-*{\\s-*\\([^ \t\n,]+\\)\\s-*,")
(buffer-substring (match-beginning 1) (match-end 1))
- (error "Cannot find key for entry in file %s."
+ (error "Cannot find key for entry in file %s"
(car refer-saved-state))))))
(if (not (= (point) old-point))
(set-mark old-point))))
files))
;;; refer.el ends here
-
-;;; texinfmt.el --- format Texinfo files into Info files.
+;;; texinfmt.el --- format Texinfo files into Info files
;; Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993,
;; 1994, 1995, 1996, 1997, 1998, 2000, 2001
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
;;; Emacs lisp functions to convert Texinfo files to Info files.
(save-excursion
(goto-char (point-min))
(or (search-forward "@setfilename" nil t)
- (error "Texinfo file needs an `@setfilename FILENAME' line."))
+ (error "Texinfo file needs an `@setfilename FILENAME' line"))
(setq texinfo-command-end (point))
(setq outfile (texinfo-parse-line-arg)))
(goto-char texinfo-command-end)
(skip-chars-forward " \t")
(or (eolp)
- (error "Extraneous text at end of command line."))
+ (error "Extraneous text at end of command line"))
(goto-char texinfo-command-start)
(or (bolp)
- (error "Extraneous text at beginning of command line."))
+ (error "Extraneous text at beginning of command line"))
(delete-region (point) (progn (forward-line 1) (point))))
(defun texinfo-discard-line-with-args ()
(texinfo-discard-line)
(let ((next (1+ (car (cdr (car texinfo-stack))))))
(if (> next ?z)
- (error "More than 26 items in @alphaenumerate; get a bigger alphabet."))
+ (error "More than 26 items in @alphaenumerate; get a bigger alphabet"))
(setcar (cdr (car texinfo-stack)) next)
(insert "\b " next ". \n"))
(forward-line -1))
(texinfo-discard-line)
(let ((next (1+ (car (cdr (car texinfo-stack))))))
(if (> next ?Z)
- (error "More than 26 items in @capsenumerate; get a bigger alphabet."))
+ (error "More than 26 items in @capsenumerate; get a bigger alphabet"))
(setcar (cdr (car texinfo-stack)) next)
(insert "\b " next ". \n"))
(forward-line -1))
(while (search-forward "@tab" nil t)
(setq tab-number (1+ tab-number)))
(if (/= tab-number (length table-widths))
- (error "Wrong number of @tab's in a @multitable row.")))
+ (error "Wrong number of @tab's in a @multitable row")))
(goto-char (point-min))
;; 2. Format each cell, and copy to a rectangle
;; buffer looks like this: A1 @tab A2 @tab A3
For example, invoke
\"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"."
(if (not noninteractive)
- (error "batch-texinfo-format may only be used -batch."))
+ (error "batch-texinfo-format may only be used -batch"))
(let ((version-control t)
(auto-save-default nil)
(find-file-run-dired nil)
;;; Place `provide' at end of file.
(provide 'texinfmt)
-;;; texinfmt.el ends here.
+;;; texinfmt.el ends here
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(or (fboundp 'defgroup)
(save-excursion
(if (re-search-forward "^@end menu" nil t)
(point)
- (error "Menu does not have an end."))))
+ (error "Menu does not have an end"))))
(defun texinfo-delete-old-menu (beginning first)
"Delete the old menu. Point must be in or after menu.
;; "Double colon" entry line; menu entry and node name are the same,
((search-forward "::" (save-excursion (end-of-line) (point)) t)
(if (looking-at "[ \t]*[^ \t\n]+")
- (error "Descriptive text already exists."))
+ (error "Descriptive text already exists"))
(skip-chars-backward ": \t")
(setq node-name (buffer-substring beginning (point))))
(save-excursion (forward-line 1) (point)) t)
(progn
(if (looking-at "[ \t]*[^ \t\n]+")
- (error "Descriptive text already exists."))
+ (error "Descriptive text already exists"))
(skip-chars-backward "., \t")
(setq node-name (buffer-substring beginning (point))))
;; Menu entry line ends in a return.
(skip-chars-backward " \t\n")
(setq node-name (buffer-substring beginning (point)))
(if (= 0 (length node-name))
- (error "No node name on this line.")
+ (error "No node name on this line")
(insert "."))))
- (t (error "No node name on this line.")))
+ (t (error "No node name on this line")))
;; Search for node that matches node name, and copy the section title.
(if (re-search-forward
(concat
(progn (end-of-line)
(skip-chars-backward " \t")
(point)))))
- (error "Cannot find node to match node name in menu entry.")))
+ (error "Cannot find node to match node name in menu entry")))
;; Return point to the menu and insert the title.
(end-of-line)
(delete-region
(goto-char end-of-menu)
;; handle multi-line description
(if (not (re-search-backward "^\\* " nil t))
- (error "No entries in menu."))
+ (error "No entries in menu"))
(point))))
(while (< (point) last-entry)
(if (re-search-forward "^\\* " end-of-menu t)
;; update a single node
(let ((auto-fill-function nil) (auto-fill-hook nil))
(if (not (re-search-backward "^@node" (point-min) t))
- (error "Node line not found before this position."))
+ (error "Node line not found before this position"))
(texinfo-sequentially-update-the-node)
(message
"Done...sequentially updated the node . You may save the buffer."))
;; Author: Daniel Pfeiffer <occitan@esperanto.org>
;; Adapted-By: ESR, Daniel Pfeiffer
+;; This file is part of GNU Emacs.
+
;; Esperanto: English:
;; ^Ci dosiero estas ero de GNU Emacs. This file is part of GNU Emacs.
;; Free Software Foundation, 59 Temple Place - Suite 330
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
;;; Komentario: Commentary:
(kill-local-variable '2C-mode)
(kill-local-variable 'mode-line-format)
nil)))
- (if req (error "You must first set two-column minor mode."))))
+ (if req (error "You must first set two-column minor mode"))))
(set-buffer b2)
(and (2C-other)
(not (eq b1 (2C-other)))
- (error "Buffer already associated with buffer `%s'."
+ (error "Buffer already associated with buffer `%s'"
(buffer-name (2C-other))))
(setq b1 (and (assq '2C-window-width (buffer-local-variables))
2C-window-width)))
;; Copyright 1989, 1993, 1994, 1995, 1997, 2000, 2001
;;; Free Software Foundation, Inc.
-;; Maintainer's Time-stamp: <2000-12-04 16:06:50 gildea>
+;; This file is part of GNU Emacs.
+
+;; Maintainer's Time-stamp: <2001-07-15 12:35:58 pavel>
;; Maintainer: Stephen Gildea <gildea@alum.mit.edu>
;; Keywords: tools
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(defvar timezone-world-timezones
-;;; tool-bar.el --- Setting up the tool bar
+;;; tool-bar.el --- setting up the tool bar
;;
;; Copyright (C) 2000 Free Software Foundation, Inc.
;;
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
-;; $Id: vc-rcs.el,v 1.18 2001/02/01 17:42:03 fx Exp $
+;; $Id: vc-rcs.el,v 1.19 2001/03/10 10:50:16 spiegel Exp $
;; This file is part of GNU Emacs.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;;; Commentary: see vc.el
+;;; Commentary:
+
+;; See vc.el
;;; Code:
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
-;; $Id: vc-sccs.el,v 1.10 2001/03/10 10:51:22 spiegel Exp $
+;; $Id: vc-sccs.el,v 1.11 2001/03/29 11:49:22 spiegel Exp $
;; This file is part of GNU Emacs.
(provide 'vc-sccs)
;;; vc-sccs.el ends here
-
-
-
-;;; view.el --- peruse file or buffer without editing.
+;;; view.el --- peruse file or buffer without editing
;; Copyright (C) 1985, 1989, 1994, 1995, 1997, 2000
;; Free Software Foundation, Inc.
-;;; w32-fns.el --- Lisp routines for Windows NT.
+;;; w32-fns.el --- Lisp routines for Windows NT
;; Copyright (C) 1994 Free Software Foundation, Inc.
-;;; which-func.el --- Print current function in mode line
+;;; which-func.el --- print current function in mode line
;; Copyright (C) 1994, 1997, 1998, 2001 Free Software Foundation, Inc.
(provide 'which-func)
-;; which-func.el ends here
+;;; which-func.el ends here
-;;; whitespace.el --- Warn about and clean bogus whitespaces in the file.
+;;; whitespace.el --- warn about and clean bogus whitespaces in the file
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
;; Author: Rajesh Vaidheeswarran <rv@gnu.org>
;; Keywords: convenience
-;; $Id: $
+;; $Id: whitespace.el,v 1.15 2001/03/22 21:31:51 rv Exp $
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
-;;; wid-browse.el --- Functions for browsing widgets.
+;;; wid-browse.el --- functions for browsing widgets
;;
;; Copyright (C) 1997 Free Software Foundation, Inc.
;;
(get widget 'widget-type)
(and (consp widget)
(get (widget-type widget) 'widget-type)))
- (error "Not a widget."))
+ (error "Not a widget"))
;; Create the buffer.
(if (symbolp widget)
(let ((buffer (format "*Browse %s Widget*" widget)))
(provide 'wid-browse)
-;; wid-browse.el ends here
+;;; wid-browse.el ends here
-;;; widget.el --- a library of user interface components.
+;;; widget.el --- a library of user interface components
;;
;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
;;
(provide 'widget)
-;; widget.el ends here
+;;; widget.el ends here
-;;; windmove.el --- directional window-selection routines.
+;;; windmove.el --- directional window-selection routines
;;
;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
;;
;; Copyright (C) 2000 Free Software Foundation, Inc.
-;; Author: Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk>
-;; Maintainer: Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk>
-;; Keywords: help, man, UN*X, manual
-;; Adapted-By: Eli Zaretskii <eliz@is.elta.co.il>
-;; Version: see `woman-version'
-;; URL: http://centaur.maths.qmw.ac.uk/Emacs/WoMan/
+;; Author: Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk>
+;; Maintainer: Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk>
+;; Keywords: help, man, UN*X, manual
+;; Adapted-By: Eli Zaretskii <eliz@is.elta.co.il>
+;; Version: see `woman-version'
+;; URL: http://centaur.maths.qmw.ac.uk/Emacs/WoMan/
;; This file is part of GNU Emacs.
-;;; xt-mouse.el --- Support the mouse when emacs run in an xterm.
+;;; xt-mouse.el --- support the mouse when emacs run in an xterm
;; Copyright (C) 1994, 2000 Free Software Foundation
HCoop / bpt / emacs.git / commitdiff