Some fixes to follow coding conventions.
This commit is contained in:
parent
5d3d1e3209
commit
3afbc435ac
60 changed files with 224 additions and 96 deletions
|
@ -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,
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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 @@ Or, for optional MON, YR."
|
|||
(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 @@ the inserted text. Value is always t."
|
|||
(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)))))))
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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 @@ arguments to `skip-chars-forward'."
|
|||
;;; End:
|
||||
|
||||
|
||||
;; ediff-diff.el ends here
|
||||
;;; ediff-diff.el ends here
|
||||
|
|
|
@ -21,6 +21,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(provide 'ediff-help)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 @@ Unless optional argument INPLACE is non-nil, return a new string."
|
|||
|
||||
(provide 'ediff-init)
|
||||
|
||||
|
||||
;;; ediff-init.el ends here
|
||||
;;; ediff-init.el ends here
|
||||
|
|
|
@ -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 @@ Combining is done according to the specifications in variable
|
|||
;;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body))
|
||||
;;; End:
|
||||
|
||||
;; ediff-merg.el ends here
|
||||
;;; ediff-merg.el ends here
|
||||
|
|
|
@ -21,6 +21,7 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
|
|
@ -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 @@ to invocation.")
|
|||
(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)
|
||||
|
|
|
@ -21,6 +21,7 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
|
|
@ -21,6 +21,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(provide 'ediff-wind)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -23,6 +23,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'custom)
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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 @@ message and replace it with a message tell you to change this variable.")
|
|||
;;
|
||||
(provide 'pcvs-defs)
|
||||
|
||||
;;; pcl-cvs-defs.el ends here
|
||||
;;; pcvs-defs.el ends here
|
||||
|
|
|
@ -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 @@ DIR can also be a file."
|
|||
|
||||
(provide 'pcvs-info)
|
||||
|
||||
;;; pcl-cvs-info.el ends here
|
||||
;;; pcvs-info.el ends here
|
||||
|
|
|
@ -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 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'."
|
|||
|
||||
(provide 'pcvs-parse)
|
||||
|
||||
;;; pcl-cvs-parse.el ends here
|
||||
;;; pcvs-parse.el ends here
|
||||
|
|
|
@ -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 @@ If it is \\[universal-argument] \\[universal-argument], behave just
|
|||
|
||||
;; 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 @@ and reset it unless READ-ONLY is non-nil."
|
|||
|
||||
(provide 'pcvs-util)
|
||||
|
||||
;;; pcl-cvs-util.el ends here
|
||||
;;; pcvs-util.el ends here
|
||||
|
|
16
lisp/pcvs.el
16
lisp/pcvs.el
|
@ -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 @@ If -CVS-MODE!-NOERROR is non-nil, then failure to find a *cvs* buffer does
|
|||
(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 @@ See ``cvs-mode-diff'' for more info."
|
|||
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 @@ or \"Conflict\" in the *cvs* buffer."
|
|||
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 @@ Signal an error if there is no backup file."
|
|||
(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 @@ Signal an error if there is no backup file."
|
|||
(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 @@ if you are convinced that the process that created the lock is dead."
|
|||
(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))
|
||||
|
|
|
@ -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 @@ This function typically is to be hooked into `ff-file-created-hooks'."
|
|||
(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)
|
||||
|
|
|
@ -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 @@ AFTER-TEXT is inserted just after the widget."
|
|||
(ada-prj-add-ada-menu)
|
||||
|
||||
(provide 'ada-prj)
|
||||
;;; package ada-prj.el ends here
|
||||
|
||||
;;; ada-prj.el ends here
|
||||
|
|
|
@ -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>
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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 @@ For other semicolon contexts, no determination is made."
|
|||
|
||||
|
||||
(cc-provide 'cc-align)
|
||||
|
||||
;;; cc-align.el ends here
|
||||
|
|
|
@ -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 @@ Don't use within `eval-when-compile'."
|
|||
|
||||
|
||||
(provide 'cc-bytecomp)
|
||||
|
||||
;;; cc-bytecomp.el ends here
|
||||
|
|
|
@ -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 @@ C++-style line comment doesn't count as inside the comment, though."
|
|||
|
||||
|
||||
(cc-provide 'cc-cmds)
|
||||
|
||||
;;; cc-cmds.el ends here
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 @@ With universal argument, inserts the analysis as a comment on that line."
|
|||
|
||||
|
||||
(cc-provide 'cc-engine)
|
||||
|
||||
;;; cc-engine.el ends here
|
||||
|
|
|
@ -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 @@ are parsed.")
|
|||
|
||||
|
||||
(cc-provide 'cc-langs)
|
||||
|
||||
;;; cc-langs.el ends here
|
||||
|
|
|
@ -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 @@ Example:
|
|||
|
||||
|
||||
(cc-provide 'cc-menus)
|
||||
|
||||
;;; cc-menus.el ends here
|
||||
|
|
|
@ -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 @@ instead of `make-variable-buffer-local'."
|
|||
|
||||
|
||||
(cc-provide 'cc-styles)
|
||||
|
||||
;;; cc-styles.el ends here
|
||||
|
|
|
@ -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 @@ Infodock (based on XEmacs) has an additional symbol on this list:
|
|||
|
||||
|
||||
(cc-provide 'cc-vars)
|
||||
|
||||
;;; cc-vars.el ends here
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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 @@ With optional NODE, go directly to that node."
|
|||
;;;============================================================================
|
||||
|
||||
;;; reftex.el ends here
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue