Mercurial > emacs
changeset 38422:7a94f1c588c4
Some fixes to follow coding conventions.
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/ChangeLog Mon Jul 16 07:46:48 2001 +0000 @@ -11,6 +11,34 @@ 2001-07-15 Pavel Jan,Bm(Bk <Pavel@Janik.cz> + * calendar/cal-china.el, calendar/cal-coptic.el, + calendar/cal-dst.el, calendar/cal-french.el, + calendar/cal-hebrew.el, calendar/cal-islam.el, + calendar/cal-iso.el, calendar/cal-julian.el, + calendar/cal-mayan.el, calendar/cal-persia.el, + calendar/cal-tex.el, calendar/calendar.el, calendar/diary-lib.el, + calendar/lunar.el, calendar/solar.el, ediff-diff.el, + ediff-help.el, ediff-hook.el, ediff-init.el, ediff-merg.el, + ediff-ptch.el, ediff-util.el, ediff-vers.el, ediff-wind.el, + net/eudc-bob.el, net/eudc-export.el, net/eudc-hotlist.el, + net/eudc-vars.el, net/ldap.el, pcvs-defs.el, pcvs-info.el, + pcvs-parse.el, pcvs-util.el, pcvs.el, progmodes/ada-mode.el, + progmodes/ada-prj.el, progmodes/ada-stmt.el, + progmodes/ada-xref.el, progmodes/cc-align.el, + progmodes/cc-bytecomp.el, progmodes/cc-cmds.el, + progmodes/cc-defs.el, progmodes/cc-engine.el, + progmodes/cc-langs.el, progmodes/cc-menus.el, + progmodes/cc-styles.el, progmodes/cc-vars.el, + textmodes/reftex-auc.el, textmodes/reftex-cite.el, + textmodes/reftex-dcr.el, textmodes/reftex-global.el, + textmodes/reftex-index.el, textmodes/reftex-parse.el, + textmodes/reftex-ref.el, textmodes/reftex-sel.el, + textmodes/reftex-toc.el, textmodes/reftex-vars.el, + textmodes/reftex.el: Some fixes to follow coding + conventions in Eshell files with known maintainers. + + * emulation/viper.el: A fix to follow coding conventions. + * eshell/em-alias.el, eshell/em-banner.el, eshell/em-basic.el, eshell/em-cmpl.el, eshell/em-dirs.el, eshell/em-glob.el, eshell/em-hist.el, eshell/em-ls.el, eshell/em-pred.el,
--- a/lisp/calendar/cal-china.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/cal-china.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; cal-china.el --- calendar functions for the Chinese calendar. +;;; cal-china.el --- calendar functions for the Chinese calendar ;; Copyright (C) 1995, 1997 Free Software Foundation, Inc.
--- a/lisp/calendar/cal-coptic.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/cal-coptic.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; cal-coptic.el --- calendar functions for the Coptic/Ethiopic calendars. +;;; cal-coptic.el --- calendar functions for the Coptic/Ethiopic calendars ;; Copyright (C) 1995, 1997 Free Software Foundation, Inc.
--- a/lisp/calendar/cal-dst.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/cal-dst.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; cal-dst.el --- calendar functions for daylight savings rules. +;;; cal-dst.el --- calendar functions for daylight savings rules ;; Copyright (C) 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
--- a/lisp/calendar/cal-french.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/cal-french.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; cal-french.el --- calendar functions for the French Revolutionary calendar. +;;; cal-french.el --- calendar functions for the French Revolutionary calendar ;; Copyright (C) 1988, 89, 92, 94, 95, 1997 Free Software Foundation, Inc.
--- a/lisp/calendar/cal-hebrew.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/cal-hebrew.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; cal-hebrew.el --- calendar functions for the Hebrew calendar. +;;; cal-hebrew.el --- calendar functions for the Hebrew calendar ;; Copyright (C) 1995, 1997 Free Software Foundation, Inc.
--- a/lisp/calendar/cal-islam.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/cal-islam.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; cal-islam.el --- calendar functions for the Islamic calendar. +;;; cal-islam.el --- calendar functions for the Islamic calendar ;; Copyright (C) 1995, 1997, 2001 Free Software Foundation, Inc.
--- a/lisp/calendar/cal-iso.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/cal-iso.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; cal-iso.el --- calendar functions for the ISO calendar. +;;; cal-iso.el --- calendar functions for the ISO calendar ;; Copyright (C) 1995, 1997 Free Software Foundation, Inc.
--- a/lisp/calendar/cal-julian.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/cal-julian.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; cal-julian.el --- calendar functions for the Julian calendar. +;;; cal-julian.el --- calendar functions for the Julian calendar ;; Copyright (C) 1995, 1997 Free Software Foundation, Inc.
--- a/lisp/calendar/cal-mayan.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/cal-mayan.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; cal-mayan.el --- calendar functions for the Mayan calendars. +;;; cal-mayan.el --- calendar functions for the Mayan calendars ;; Copyright (C) 1992, 1993, 1995, 1997 Free Software Foundation, Inc.
--- a/lisp/calendar/cal-persia.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/cal-persia.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; cal-persia.el --- calendar functions for the Persian calendar. +;;; cal-persia.el --- calendar functions for the Persian calendar ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
--- a/lisp/calendar/cal-tex.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/cal-tex.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; cal-tex.el --- calendar functions for printing calendars with LaTeX. +;;; cal-tex.el --- calendar functions for printing calendars with LaTeX ;; Copyright (C) 1995 Free Software Foundation, Inc.
--- a/lisp/calendar/calendar.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/calendar.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; calendar.el --- Calendar functions. +;;; calendar.el --- calendar functions ;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 2000 ;; Free Software Foundation, Inc. @@ -1813,7 +1813,7 @@ (defun generate-calendar (month year) "Generate a three-month Gregorian calendar centered around MONTH, YEAR." (if (< (+ month (* 12 (1- year))) 2) - (error "Months before February, 1 AD are not available.")) + (error "Months before February, 1 AD are not available")) (setq displayed-month month) (setq displayed-year year) (erase-buffer) @@ -2073,7 +2073,7 @@ (let ((where (save-window-excursion (Info-find-emacs-command-nodes 'calendar)))) (if (not where) - (error "Couldn't find documentation for the calendar.") + (error "Couldn't find documentation for the calendar") (let (same-window-buffer-names) (info)) (Info-find-node (car (car where)) (car (cdr (car where)))))))
--- a/lisp/calendar/diary-lib.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/diary-lib.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; diary-lib.el --- diary functions. +;;; diary-lib.el --- diary functions ;; Copyright (C) 1989, 1990, 1992, 1993, 1994, 1995 Free Software ;; Foundation, Inc.
--- a/lisp/calendar/lunar.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/lunar.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; lunar.el --- calendar functions for phases of the moon. +;;; lunar.el --- calendar functions for phases of the moon ;; Copyright (C) 1992, 1993, 1995, 1997 Free Software Foundation, Inc. @@ -51,7 +51,7 @@ (if (fboundp 'atan) (require 'lisp-float-type) - (error "Lunar calculations impossible since floating point is unavailable.")) + (error "Lunar calculations impossible since floating point is unavailable")) (require 'solar)
--- a/lisp/calendar/solar.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/calendar/solar.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; solar.el --- calendar functions for solar events. +;;; solar.el --- calendar functions for solar events ;; Copyright (C) 1992, 1993, 1995, 1997 Free Software Foundation, Inc. @@ -61,7 +61,7 @@ (if (fboundp 'atan) (require 'lisp-float-type) - (error "Solar/lunar calculations impossible since floating point is unavailable.")) + (error "Solar/lunar calculations impossible since floating point is unavailable")) (require 'cal-dst) (require 'cal-julian)
--- a/lisp/ediff-diff.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/ediff-diff.el Mon Jul 16 07:46:48 2001 +0000 @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (provide 'ediff-diff) @@ -1336,4 +1338,4 @@ ;;; End: -;; ediff-diff.el ends here +;;; ediff-diff.el ends here
--- a/lisp/ediff-help.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/ediff-help.el Mon Jul 16 07:46:48 2001 +0000 @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (provide 'ediff-help)
--- a/lisp/ediff-hook.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/ediff-hook.el Mon Jul 16 07:46:48 2001 +0000 @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;; These must be placed in menu-bar.el in Emacs @@ -355,5 +357,4 @@ (provide 'ediff-hook) - ;;; ediff-hook.el ends here
--- a/lisp/ediff-init.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/ediff-init.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; ediff-init.el --- Macros, variables, and defsubsts used by Ediff +;;; ediff-init.el --- macros, variables, and defsubsts used by Ediff ;; Copyright (C) 1994, 1995, 1996, 1997, 2000 Free Software Foundation, Inc. @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; Start compiler pacifier @@ -1780,5 +1782,4 @@ (provide 'ediff-init) - -;;; ediff-init.el ends here +;;; ediff-init.el ends here
--- a/lisp/ediff-merg.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/ediff-merg.el Mon Jul 16 07:46:48 2001 +0000 @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (provide 'ediff-merg) @@ -385,4 +387,4 @@ ;;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body)) ;;; End: -;; ediff-merg.el ends here +;;; ediff-merg.el ends here
--- a/lisp/ediff-ptch.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/ediff-ptch.el Mon Jul 16 07:46:48 2001 +0000 @@ -21,6 +21,7 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: ;;; Code:
--- a/lisp/ediff-util.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/ediff-util.el Mon Jul 16 07:46:48 2001 +0000 @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (provide 'ediff-util) @@ -269,7 +271,7 @@ (expand-file-name merge-buffer-file))) ;; check the directory exists (or (file-exists-p (file-name-directory merge-buffer-file)) - (error "Directory %s given as place to save the merge doesn't exist." + (error "Directory %s given as place to save the merge doesn't exist" (abbreviate-file-name (file-name-directory merge-buffer-file)))) (if (and (file-exists-p merge-buffer-file)
--- a/lisp/ediff-vers.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/ediff-vers.el Mon Jul 16 07:46:48 2001 +0000 @@ -21,6 +21,7 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: ;;; Code:
--- a/lisp/ediff-wind.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/ediff-wind.el Mon Jul 16 07:46:48 2001 +0000 @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (provide 'ediff-wind)
--- a/lisp/emulation/viper.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/emulation/viper.el Mon Jul 16 07:46:48 2001 +0000 @@ -39,7 +39,7 @@ ;; of minor modes and it is designed to provide full access to all Emacs ;; major and minor modes. ;; -;;; History +;;; History: ;; ;; Viper is a new name for a package formerly known as VIP-19, ;; which was a successor of VIP version 3.5 by Masahiko Sato
--- a/lisp/net/eudc-bob.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/net/eudc-bob.el Mon Jul 16 07:46:48 2001 +0000 @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Usage: ;; See the corresponding info file
--- a/lisp/net/eudc-export.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/net/eudc-export.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; eudc-export.el --- Functions to export EUDC qeuery results +;;; eudc-export.el --- functions to export EUDC query results ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
--- a/lisp/net/eudc-hotlist.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/net/eudc-hotlist.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; eudc-hotlist.el --- Hotlist Management for EUDC +;;; eudc-hotlist.el --- hotlist management for EUDC ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
--- a/lisp/net/eudc-vars.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/net/eudc-vars.el Mon Jul 16 07:46:48 2001 +0000 @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'custom)
--- a/lisp/net/ldap.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/net/ldap.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; ldap.el --- Client interface to LDAP for Emacs +;;; ldap.el --- client interface to LDAP for Emacs ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
--- a/lisp/pcvs-defs.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/pcvs-defs.el Mon Jul 16 07:46:48 2001 +0000 @@ -4,7 +4,7 @@ ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs -;; Revision: $Id: pcvs-defs.el,v 1.13 2001/05/11 20:50:37 monnier Exp $ +;; Revision: $Id: pcvs-defs.el,v 1.14 2001/05/18 16:59:52 sds Exp $ ;; This file is part of GNU Emacs. @@ -502,4 +502,4 @@ ;; (provide 'pcvs-defs) -;;; pcl-cvs-defs.el ends here +;;; pcvs-defs.el ends here
--- a/lisp/pcvs-info.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/pcvs-info.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,10 +1,10 @@ -;;; pcvs-info.el --- Internal representation of a fileinfo entry +;;; pcvs-info.el --- internal representation of a fileinfo entry ;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs -;; Revision: $Id: pcvs-info.el,v 1.5 2000/12/06 19:52:13 fx Exp $ +;; Revision: $Id: pcvs-info.el,v 1.6 2000/12/18 03:17:31 monnier Exp $ ;; This file is part of GNU Emacs. @@ -477,4 +477,4 @@ (provide 'pcvs-info) -;;; pcl-cvs-info.el ends here +;;; pcvs-info.el ends here
--- a/lisp/pcvs-parse.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/pcvs-parse.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,10 +1,10 @@ -;;; pcvs-parse.el --- The CVS output parser +;;; pcvs-parse.el --- the CVS output parser ;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs -;; Revision: $Id: pcvs-parse.el,v 1.6 2001/03/07 00:17:53 monnier Exp $ +;; Revision: $Id: pcvs-parse.el,v 1.7 2001/04/13 14:55:48 monnier Exp $ ;; This file is part of GNU Emacs. @@ -497,4 +497,4 @@ (provide 'pcvs-parse) -;;; pcl-cvs-parse.el ends here +;;; pcvs-parse.el ends here
--- a/lisp/pcvs-util.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/pcvs-util.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,11 +1,11 @@ -;;; pcvs-util.el --- Utility functions for PCL-CVS -*- byte-compile-dynamic: t -*- +;;; pcvs-util.el --- utility functions for PCL-CVS -*- byte-compile-dynamic: t -*- ;; Copyright (C) 1991,92,93,94,95,96,97,98,99,2000, 2001 ;; Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs -;; Revision: $Id: pcvs-util.el,v 1.11 2001/03/20 20:26:13 johnw Exp $ +;; Revision: $Id: pcvs-util.el,v 1.12 2001/04/13 14:56:10 monnier Exp $ ;; This file is part of GNU Emacs. @@ -321,7 +321,7 @@ ;; sanity check (unless (< (abs numarg) (length defaults)) - (error "There is no %sth default." (abs numarg))) + (error "There is no %sth default" (abs numarg))) (if permstr (let* ((prompt (format "%s%s: " desc permstr)) @@ -411,4 +411,4 @@ (provide 'pcvs-util) -;;; pcl-cvs-util.el ends here +;;; pcvs-util.el ends here
--- a/lisp/pcvs.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/pcvs.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; pcvs.el -- A Front-end to CVS. +;;; pcvs.el --- a front-end to CVS ;; Copyright (C) 1991,92,93,94,95,95,97,98,99,2000 Free Software Foundation, Inc. @@ -13,7 +13,7 @@ ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu ;; Keywords: CVS, version control, release management -;; Revision: $Id: pcvs.el,v 1.26 2001/03/07 00:20:30 monnier Exp $ +;; Revision: $Id: pcvs.el,v 1.27 2001/04/13 15:18:11 monnier Exp $ ;; This file is part of GNU Emacs. @@ -250,7 +250,7 @@ (cvsbuf (cond ((cvs-buffer-p) (current-buffer)) ((and cvs-buffer (cvs-buffer-p cvs-buffer)) cvs-buffer) (-cvs-mode!-noerror (current-buffer)) - (t (error "can't find the *cvs* buffer.")))) + (t (error "can't find the *cvs* buffer")))) (-cvs-mode!-wrapper cvs-minor-wrap-function) (-cvs-mode!-cont (lambda () (save-current-buffer @@ -1438,7 +1438,7 @@ This command can be used on files that are marked with \"Merged\" or \"Conflict\" in the *cvs* buffer." (interactive (list (cvs-flags-query 'cvs-diff-flags "diff flags"))) - (unless (listp flags) (error "flags should be a list of strings.")) + (unless (listp flags) (error "flags should be a list of strings")) (save-some-buffers) (let* ((filter 'diff) (marked (cvs-get-marked (cvs-ignore-marks-p "diff"))) @@ -1460,7 +1460,7 @@ Signal an error if there is no backup file." (let ((backup-file (cvs-fileinfo->backup-file fileinfo))) (unless backup-file - (error "%s has no backup file." (cvs-fileinfo->full-path fileinfo))) + (error "%s has no backup file" (cvs-fileinfo->full-path fileinfo))) (list backup-file (cvs-fileinfo->full-path fileinfo)))) ;; @@ -1586,7 +1586,7 @@ (rev2 (and rev1 (cvs-prefix-get 'cvs-secondary-branch-prefix))) (fis (cvs-mode-marked 'diff "idiff" :file t))) (when (> (length fis) 2) - (error "idiff-other cannot be applied to more than 2 files at a time.")) + (error "idiff-other cannot be applied to more than 2 files at a time")) (let* ((fi1 (car fis)) (rev1-buf (if rev1 (cvs-retrieve-revision fi1 rev1) (find-file-noselect (cvs-fileinfo->full-path fi1)))) @@ -1596,7 +1596,7 @@ (setq rev2-buf (if rev2 (cvs-retrieve-revision fi2 rev2) (find-file-noselect (cvs-fileinfo->full-path fi2))))) - (error "idiff-other doesn't know what other file/buffer to use.")) + (error "idiff-other doesn't know what other file/buffer to use")) (let* (;; this binding is used by cvs-ediff-startup-hook (cvs-transient-buffers (list rev1-buf rev2-buf))) (funcall (car cvs-idiff-imerge-handlers) @@ -1857,7 +1857,7 @@ (let* ((default-directory (cvs-expand-dir-name cvs-lock-file)) (locks (directory-files default-directory nil cvs-lock-file-regexp))) (cond - ((not locks) (error "No lock files found.")) + ((not locks) (error "No lock files found")) ((yes-or-no-p (concat "Really delete locks in " cvs-lock-file "? ")) (dolist (lock locks) (cond ((file-directory-p lock) (delete-directory lock))
--- a/lisp/progmodes/ada-mode.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/progmodes/ada-mode.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;; @(#) ada-mode.el --- major-mode for editing Ada source. +;;; ada-mode.el --- major-mode for editing Ada sources ;; Copyright (C) 1994, 95, 97, 98, 99, 2000, 2001 ;; Free Software Foundation, Inc. @@ -7,10 +7,10 @@ ;; Markus Heritsch <Markus.Heritsch@studbox.uni-stuttgart.de> ;; Emmanuel Briot <briot@gnat.com> ;; Maintainer: Emmanuel Briot <briot@gnat.com> -;; Ada Core Technologies's version: $Revision: 1.40 $ +;; Ada Core Technologies's version: $Revision: 1.41 $ ;; Keywords: languages ada -;; 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 @@ -4668,7 +4668,7 @@ (setq body-file (ada-get-body-name)) (if body-file (find-file body-file) - (error "No body found for the package. Create it first.")) + (error "No body found for the package. Create it first")) (save-restriction (widen)
--- a/lisp/progmodes/ada-prj.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/progmodes/ada-prj.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,9 +1,9 @@ -;;; @(#) ada-prj.el --- Easy editing of project files for the ada-mode +;;; ada-prj.el --- easy editing of project files for the ada-mode ;; Copyright (C) 1998, 1999 Free Software Foundation, Inc. ;; Author: Emmanuel Briot <briot@gnat.com> -;; Ada Core Technologies's version: $Revision: 1.5 $ +;; Ada Core Technologies's version: $Revision: 1.6 $ ;; Keywords: languages, ada, project file ;; This file is part of GNU Emacs. @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; This package provides a set of functions to easily edit the project ;;; files used by the ada-mode. ;;; The only function publicly available here is `ada-customize'. @@ -31,7 +33,7 @@ ;;; Internally, a project file is represented as a property list, with each ;;; field of the project file matching one property of the list. -;; Code: +;;; Code: ;; ----- Requirements ----------------------------------------------------- @@ -644,4 +646,5 @@ (ada-prj-add-ada-menu) (provide 'ada-prj) -;;; package ada-prj.el ends here + +;;; ada-prj.el ends here
--- a/lisp/progmodes/ada-stmt.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/progmodes/ada-stmt.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,9 +1,11 @@ -;;; ada-stmt.el --- An extension to Ada mode for inserting statement templates. +;;; ada-stmt.el --- an extension to Ada mode for inserting statement templates ;; Copyright(C) 1987, 1993, 1994, 1996, 1997, 1998, 1999 ;; Free Software Foundation, Inc. -;; Ada Core Technologies's version: $Revision: 1.8 $ +;; Ada Core Technologies's version: $Revision: 1.9 $ + +;; This file is part of GNU Emacs. ;; Authors: Daniel Pfeiffer, Markus Heritsch, Rolf Ebert <ebert@waporo.muc.de> ;; Maintainer: Emmanuel Briot <briot@gnat.com>
--- a/lisp/progmodes/ada-xref.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/progmodes/ada-xref.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;; @(#) ada-xref.el --- for lookup and completion in Ada mode +;;; ada-xref.el --- for lookup and completion in Ada mode ;; Copyright (C) 1994, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc. @@ -6,7 +6,7 @@ ;; Rolf Ebert <ebert@inf.enst.fr> ;; Emmanuel Briot <briot@gnat.com> ;; Maintainer: Emmanuel Briot <briot@gnat.com> -;; Ada Core Technologies's version: $Revision: 1.5 $ +;; Ada Core Technologies's version: $Revision: 1.6 $ ;; Keywords: languages ada xref ;; This file is part of GNU Emacs. @@ -58,6 +58,8 @@ ;;; You need Emacs >= 20.2 to run this package +;;; Code: + ;; ----- Requirements ----------------------------------------------------- (require 'compile)
--- a/lisp/progmodes/cc-align.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/progmodes/cc-align.el Mon Jul 16 07:46:48 2001 +0000 @@ -29,6 +29,10 @@ ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (let ((load-path (if (and (boundp 'byte-compile-dest-file) @@ -719,4 +723,5 @@ (cc-provide 'cc-align) + ;;; cc-align.el ends here
--- a/lisp/progmodes/cc-bytecomp.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/progmodes/cc-bytecomp.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,4 +1,4 @@ -;;; cc-bytecomp.el --- Compile time setup for proper compilation +;;; cc-bytecomp.el --- compile time setup for proper compilation ;; Copyright (C) 2000, 01 Free Software Foundation, Inc. @@ -33,6 +33,8 @@ ;; features to defeat the compiler warnings for selected symbols. +;;; Code: + (defvar cc-bytecomp-unbound-variables nil) (defvar cc-bytecomp-original-functions nil) (defvar cc-bytecomp-original-properties nil) @@ -290,3 +292,5 @@ (provide 'cc-bytecomp) + +;;; cc-bytecomp.el ends here
--- a/lisp/progmodes/cc-cmds.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/progmodes/cc-cmds.el Mon Jul 16 07:46:48 2001 +0000 @@ -29,6 +29,10 @@ ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (let ((load-path (if (and (boundp 'byte-compile-dest-file) @@ -2566,4 +2570,5 @@ (cc-provide 'cc-cmds) + ;;; cc-cmds.el ends here
--- a/lisp/progmodes/cc-defs.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/progmodes/cc-defs.el Mon Jul 16 07:46:48 2001 +0000 @@ -29,6 +29,10 @@ ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (let ((load-path (if (and (boundp 'byte-compile-dest-file) @@ -346,4 +350,5 @@ (cc-provide 'cc-defs) + ;;; cc-defs.el ends here
--- a/lisp/progmodes/cc-engine.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/progmodes/cc-engine.el Mon Jul 16 07:46:48 2001 +0000 @@ -29,6 +29,10 @@ ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (let ((load-path (if (and (boundp 'byte-compile-dest-file) @@ -2790,4 +2794,5 @@ (cc-provide 'cc-engine) + ;;; cc-engine.el ends here
--- a/lisp/progmodes/cc-langs.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/progmodes/cc-langs.el Mon Jul 16 07:46:48 2001 +0000 @@ -29,6 +29,10 @@ ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (let ((load-path (if (and (boundp 'byte-compile-dest-file) @@ -539,4 +543,5 @@ (cc-provide 'cc-langs) + ;;; cc-langs.el ends here
--- a/lisp/progmodes/cc-menus.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/progmodes/cc-menus.el Mon Jul 16 07:46:48 2001 +0000 @@ -29,6 +29,10 @@ ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (let ((load-path (if (and (boundp 'byte-compile-dest-file) @@ -411,4 +415,5 @@ (cc-provide 'cc-menus) + ;;; cc-menus.el ends here
--- a/lisp/progmodes/cc-styles.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/progmodes/cc-styles.el Mon Jul 16 07:46:48 2001 +0000 @@ -29,6 +29,10 @@ ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (let ((load-path (if (and (boundp 'byte-compile-dest-file) @@ -501,4 +505,5 @@ (cc-provide 'cc-styles) + ;;; cc-styles.el ends here
--- a/lisp/progmodes/cc-vars.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/progmodes/cc-vars.el Mon Jul 16 07:46:48 2001 +0000 @@ -29,6 +29,10 @@ ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (let ((load-path (if (and (boundp 'byte-compile-dest-file) @@ -1114,4 +1118,5 @@ (cc-provide 'cc-vars) + ;;; cc-vars.el ends here
--- a/lisp/textmodes/reftex-auc.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/textmodes/reftex-auc.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,9 +1,8 @@ -;;; reftex-auc.el - RefTeX's interface to AUC TeX +;;; reftex-auc.el --- RefTeX's interface to AUC TeX ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. -;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> +;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> ;; Version: 4.16 -;; ;; This file is part of GNU Emacs. @@ -22,6 +21,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (require 'cl)) (provide 'reftex-auc) (require 'reftex)
--- a/lisp/textmodes/reftex-cite.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/textmodes/reftex-cite.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,9 +1,8 @@ -;;; reftex-cite.el - Creating citations with RefTeX +;;; reftex-cite.el --- creating citations with RefTeX ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. -;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> +;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> ;; Version: 4.16 -;; ;; This file is part of GNU Emacs. @@ -22,6 +21,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (require 'cl)) (provide 'reftex-cite) (require 'reftex)
--- a/lisp/textmodes/reftex-dcr.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/textmodes/reftex-dcr.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,7 +1,7 @@ -;;; reftex-dcr.el - Viewing cross references and citations with RefTeX +;;; reftex-dcr.el --- viewing cross references and citations with RefTeX ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. -;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> +;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> ;; Version: 4.16 ;; @@ -22,6 +22,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (require 'cl)) (provide 'reftex-dcr) (provide 'reftex-vcr)
--- a/lisp/textmodes/reftex-global.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/textmodes/reftex-global.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,9 +1,8 @@ -;;; reftex-global.el - Operations on entire documents with RefTeX +;;; reftex-global.el --- operations on entire documents with RefTeX ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. -;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> +;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> ;; Version: 4.16 -;; ;; This file is part of GNU Emacs. @@ -22,6 +21,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (require 'cl)) (provide 'reftex-global) (require 'reftex)
--- a/lisp/textmodes/reftex-index.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/textmodes/reftex-index.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,9 +1,8 @@ -;;; reftex-index.el - Index support with RefTeX +;;; reftex-index.el --- index support with RefTeX ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. -;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> +;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> ;; Version: 4.16 -;; ;; This file is part of GNU Emacs. @@ -22,6 +21,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (require 'cl)) (provide 'reftex-index) (require 'reftex)
--- a/lisp/textmodes/reftex-parse.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/textmodes/reftex-parse.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,7 +1,7 @@ -;;; reftex-parse.el - Parser Functions for RefTeX +;;; reftex-parse.el --- parser functions for RefTeX ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. -;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> +;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> ;; Version: 4.16 ;; @@ -22,6 +22,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (require 'cl)) (provide 'reftex-parse) (require 'reftex)
--- a/lisp/textmodes/reftex-ref.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/textmodes/reftex-ref.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,9 +1,8 @@ -;;; reftex-ref.el - Code to create labels and references with RefTeX +;;; reftex-ref.el --- code to create labels and references with RefTeX ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. -;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> +;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> ;; Version: 4.16 -;; ;; This file is part of GNU Emacs. @@ -22,6 +21,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (require 'cl)) (provide 'reftex-ref) (require 'reftex)
--- a/lisp/textmodes/reftex-sel.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/textmodes/reftex-sel.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,9 +1,8 @@ -;;; reftex-sel.el - The selection modes for RefTeX +;;; reftex-sel.el --- the selection modes for RefTeX ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. -;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> +;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> ;; Version: 4.16 -;; ;; This file is part of GNU Emacs. @@ -22,6 +21,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (require 'cl)) (provide 'reftex-sel) (require 'reftex)
--- a/lisp/textmodes/reftex-toc.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/textmodes/reftex-toc.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,9 +1,8 @@ -;;; reftex-toc.el - RefTeX's table of contents mode +;;; reftex-toc.el --- RefTeX's table of contents mode ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. -;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> +;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> ;; Version: 4.16 -;; ;; This file is part of GNU Emacs. @@ -22,6 +21,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (require 'cl)) (provide 'reftex-toc) (require 'reftex)
--- a/lisp/textmodes/reftex-vars.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/textmodes/reftex-vars.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,9 +1,8 @@ -;;; reftex-vars.el - Configuration variables for RefTeX +;;; reftex-vars.el --- configuration variables for RefTeX ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. -;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> +;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> ;; Version: 4.16 -;; ;; This file is part of GNU Emacs. @@ -22,6 +21,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (eval-when-compile (require 'cl)) (provide 'reftex-vars)
--- a/lisp/textmodes/reftex.el Mon Jul 16 03:35:36 2001 +0000 +++ b/lisp/textmodes/reftex.el Mon Jul 16 07:46:48 2001 +0000 @@ -1,9 +1,9 @@ -;;; reftex.el --- Minor mode for doing \label, \ref, \cite, \index in LaTeX +;;; reftex.el --- minor mode for doing \label, \ref, \cite, \index in LaTeX ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. -;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> -;; Version: 4.16 -;; Keywords: tex +;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> +;; Version: 4.16 +;; Keywords: tex ;; This file is part of GNU Emacs. @@ -2524,4 +2524,3 @@ ;;;============================================================================ ;;; reftex.el ends here -