Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
emacs
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
emacs
emacs
Commits
3afbc435
Commit
3afbc435
authored
Jul 16, 2001
by
Pavel Janík
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Some fixes to follow coding conventions.
parent
5d3d1e32
Changes
60
Hide whitespace changes
Inline
Side-by-side
Showing
60 changed files
with
224 additions
and
96 deletions
+224
-96
lisp/ChangeLog
lisp/ChangeLog
+28
-0
lisp/calendar/cal-china.el
lisp/calendar/cal-china.el
+1
-1
lisp/calendar/cal-coptic.el
lisp/calendar/cal-coptic.el
+1
-1
lisp/calendar/cal-dst.el
lisp/calendar/cal-dst.el
+1
-1
lisp/calendar/cal-french.el
lisp/calendar/cal-french.el
+1
-1
lisp/calendar/cal-hebrew.el
lisp/calendar/cal-hebrew.el
+1
-1
lisp/calendar/cal-islam.el
lisp/calendar/cal-islam.el
+1
-1
lisp/calendar/cal-iso.el
lisp/calendar/cal-iso.el
+1
-1
lisp/calendar/cal-julian.el
lisp/calendar/cal-julian.el
+1
-1
lisp/calendar/cal-mayan.el
lisp/calendar/cal-mayan.el
+1
-1
lisp/calendar/cal-persia.el
lisp/calendar/cal-persia.el
+1
-1
lisp/calendar/cal-tex.el
lisp/calendar/cal-tex.el
+1
-1
lisp/calendar/calendar.el
lisp/calendar/calendar.el
+3
-3
lisp/calendar/diary-lib.el
lisp/calendar/diary-lib.el
+1
-1
lisp/calendar/lunar.el
lisp/calendar/lunar.el
+2
-2
lisp/calendar/solar.el
lisp/calendar/solar.el
+2
-2
lisp/ediff-diff.el
lisp/ediff-diff.el
+3
-1
lisp/ediff-help.el
lisp/ediff-help.el
+2
-0
lisp/ediff-hook.el
lisp/ediff-hook.el
+2
-1
lisp/ediff-init.el
lisp/ediff-init.el
+4
-3
lisp/ediff-merg.el
lisp/ediff-merg.el
+3
-1
lisp/ediff-ptch.el
lisp/ediff-ptch.el
+1
-0
lisp/ediff-util.el
lisp/ediff-util.el
+3
-1
lisp/ediff-vers.el
lisp/ediff-vers.el
+1
-0
lisp/ediff-wind.el
lisp/ediff-wind.el
+2
-0
lisp/emulation/viper.el
lisp/emulation/viper.el
+1
-1
lisp/net/eudc-bob.el
lisp/net/eudc-bob.el
+2
-0
lisp/net/eudc-export.el
lisp/net/eudc-export.el
+1
-1
lisp/net/eudc-hotlist.el
lisp/net/eudc-hotlist.el
+1
-1
lisp/net/eudc-vars.el
lisp/net/eudc-vars.el
+2
-0
lisp/net/ldap.el
lisp/net/ldap.el
+1
-1
lisp/pcvs-defs.el
lisp/pcvs-defs.el
+2
-2
lisp/pcvs-info.el
lisp/pcvs-info.el
+3
-3
lisp/pcvs-parse.el
lisp/pcvs-parse.el
+3
-3
lisp/pcvs-util.el
lisp/pcvs-util.el
+4
-4
lisp/pcvs.el
lisp/pcvs.el
+8
-8
lisp/progmodes/ada-mode.el
lisp/progmodes/ada-mode.el
+4
-4
lisp/progmodes/ada-prj.el
lisp/progmodes/ada-prj.el
+7
-4
lisp/progmodes/ada-stmt.el
lisp/progmodes/ada-stmt.el
+4
-2
lisp/progmodes/ada-xref.el
lisp/progmodes/ada-xref.el
+4
-2
lisp/progmodes/cc-align.el
lisp/progmodes/cc-align.el
+5
-0
lisp/progmodes/cc-bytecomp.el
lisp/progmodes/cc-bytecomp.el
+5
-1
lisp/progmodes/cc-cmds.el
lisp/progmodes/cc-cmds.el
+5
-0
lisp/progmodes/cc-defs.el
lisp/progmodes/cc-defs.el
+5
-0
lisp/progmodes/cc-engine.el
lisp/progmodes/cc-engine.el
+5
-0
lisp/progmodes/cc-langs.el
lisp/progmodes/cc-langs.el
+5
-0
lisp/progmodes/cc-menus.el
lisp/progmodes/cc-menus.el
+5
-0
lisp/progmodes/cc-styles.el
lisp/progmodes/cc-styles.el
+5
-0
lisp/progmodes/cc-vars.el
lisp/progmodes/cc-vars.el
+5
-0
lisp/textmodes/reftex-auc.el
lisp/textmodes/reftex-auc.el
+6
-3
lisp/textmodes/reftex-cite.el
lisp/textmodes/reftex-cite.el
+6
-3
lisp/textmodes/reftex-dcr.el
lisp/textmodes/reftex-dcr.el
+6
-2
lisp/textmodes/reftex-global.el
lisp/textmodes/reftex-global.el
+6
-3
lisp/textmodes/reftex-index.el
lisp/textmodes/reftex-index.el
+6
-3
lisp/textmodes/reftex-parse.el
lisp/textmodes/reftex-parse.el
+6
-2
lisp/textmodes/reftex-ref.el
lisp/textmodes/reftex-ref.el
+6
-3
lisp/textmodes/reftex-sel.el
lisp/textmodes/reftex-sel.el
+6
-3
lisp/textmodes/reftex-toc.el
lisp/textmodes/reftex-toc.el
+6
-3
lisp/textmodes/reftex-vars.el
lisp/textmodes/reftex-vars.el
+6
-3
lisp/textmodes/reftex.el
lisp/textmodes/reftex.el
+4
-5
No files found.
lisp/ChangeLog
View file @
3afbc435
...
...
@@ -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,
...
...
lisp/calendar/cal-china.el
View file @
3afbc435
;;; 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.
...
...
lisp/calendar/cal-coptic.el
View file @
3afbc435
;;; 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.
...
...
lisp/calendar/cal-dst.el
View file @
3afbc435
;;; 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.
...
...
lisp/calendar/cal-french.el
View file @
3afbc435
;;; 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.
...
...
lisp/calendar/cal-hebrew.el
View file @
3afbc435
;;; 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.
...
...
lisp/calendar/cal-islam.el
View file @
3afbc435
;;; 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.
...
...
lisp/calendar/cal-iso.el
View file @
3afbc435
;;; 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.
...
...
lisp/calendar/cal-julian.el
View file @
3afbc435
;;; 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.
...
...
lisp/calendar/cal-mayan.el
View file @
3afbc435
;;; 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.
...
...
lisp/calendar/cal-persia.el
View file @
3afbc435
;;; 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.
...
...
lisp/calendar/cal-tex.el
View file @
3afbc435
;;; 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.
...
...
lisp/calendar/calendar.el
View file @
3afbc435
;;; 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
)))))))
...
...
lisp/calendar/diary-lib.el
View file @
3afbc435
;;; diary-lib.el --- diary functions
.
;;; diary-lib.el --- diary functions
;; Copyright (C) 1989, 1990, 1992, 1993, 1994, 1995 Free Software
;; Foundation, Inc.
...
...
lisp/calendar/lunar.el
View file @
3afbc435
;;; 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
)
...
...
lisp/calendar/solar.el
View file @
3afbc435
;;; 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
)
...
...
lisp/ediff-diff.el
View file @
3afbc435
...
...
@@ -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
lisp/ediff-help.el
View file @
3afbc435
...
...
@@ -21,6 +21,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
(
provide
'ediff-help
)
...
...
lisp/ediff-hook.el
View file @
3afbc435
...
...
@@ -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
lisp/ediff-init.el
View file @
3afbc435
;;; ediff-init.el ---
M
acros, variables, and defsubsts used by Ediff
;;; ediff-init.el ---
m
acros, 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
lisp/ediff-merg.el
View file @
3afbc435
...
...
@@ -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
lisp/ediff-ptch.el
View file @
3afbc435
...
...
@@ -21,6 +21,7 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
...
...
lisp/ediff-util.el
View file @
3afbc435
...
...
@@ -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
)
...
...
lisp/ediff-vers.el
View file @
3afbc435
...
...
@@ -21,6 +21,7 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
...
...
lisp/ediff-wind.el
View file @
3afbc435
...
...
@@ -21,6 +21,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
(
provide
'ediff-wind
)
...
...
lisp/emulation/viper.el
View file @
3afbc435
...
...
@@ -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
...
...
lisp/net/eudc-bob.el
View file @
3afbc435
...
...
@@ -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
...
...
lisp/net/eudc-export.el
View file @
3afbc435
;;; eudc-export.el ---
Functions to export EUDC qe
uery results
;;; eudc-export.el ---
functions to export EUDC q
uery results
;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
...
...
lisp/net/eudc-hotlist.el
View file @
3afbc435
;;; eudc-hotlist.el ---
Hotlist M
anagement for EUDC
;;; eudc-hotlist.el ---
hotlist m
anagement for EUDC
;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
...
...
lisp/net/eudc-vars.el
View file @
3afbc435
...
...
@@ -23,6 +23,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
(
require
'custom
)
...
...
lisp/net/ldap.el
View file @
3afbc435
;;; ldap.el ---
C
lient interface to LDAP for Emacs
;;; ldap.el ---
c
lient interface to LDAP for Emacs
;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
...
...
lisp/pcvs-defs.el
View file @
3afbc435
...
...
@@ -4,7 +4,7 @@
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: pcl-cvs
;; Revision: $Id: pcvs-defs.el,v 1.1
3 2001/05/11 20:50:37 monnier
Exp $
;; Revision: $Id: pcvs-defs.el,v 1.1
4 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
)
;;; pc
l-c
vs-defs.el ends here
;;; pcvs-defs.el ends here
lisp/pcvs-info.el
View file @
3afbc435
;;; pcvs-info.el ---
I
nternal representation of a fileinfo entry
;;; pcvs-info.el ---
i
nternal 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
)
;;; pc
l-c
vs-info.el ends here
;;; pcvs-info.el ends here
lisp/pcvs-parse.el
View file @
3afbc435
;;; pcvs-parse.el ---
T
he CVS output parser
;;; pcvs-parse.el ---
t
he 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
)
;;; pc
l-c
vs-parse.el ends here
;;; pcvs-parse.el ends here
lisp/pcvs-util.el
View file @
3afbc435
;;; pcvs-util.el ---
U
tility functions for PCL-CVS -*- byte-compile-dynamic: t -*-
;;; pcvs-util.el ---
u
tility 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.1
1 2001/03/20 20:26:13 johnw
Exp $
;; Revision: $Id: pcvs-util.el,v 1.1
2 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
)
;;; pc
l-c
vs-util.el ends here
;;; pcvs-util.el ends here
lisp/pcvs.el
View file @
3afbc435
;;; 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.2
6 2001/03/07 00:20:30
monnier Exp $
;; Revision: $Id: pcvs.el,v 1.2
7 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))
...
...
lisp/progmodes/ada-mode.el
View file @
3afbc435
;;
@(#) 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.4
0
$
;; Ada Core Technologies's version: $Revision: 1.4
1
$
;; 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
)
...
...
lisp/progmodes/ada-prj.el
View file @
3afbc435
;;;
@(#) ada-prj.el --- E
asy editing of project files for the ada-mode
;;;
ada-prj.el --- e
asy 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
lisp/progmodes/ada-stmt.el
View file @
3afbc435
;;; 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>
...
...
lisp/progmodes/ada-xref.el
View file @
3afbc435
;;
@(#)
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
)
...
...
lisp/progmodes/cc-align.el
View file @
3afbc435
...
...
@@ -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
lisp/progmodes/cc-bytecomp.el
View file @
3afbc435
;;; cc-bytecomp.el ---
C
ompile time setup for proper compilation
;;; cc-bytecomp.el ---
c
ompile 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
lisp/progmodes/cc-cmds.el
View file @
3afbc435
...
...
@@ -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
lisp/progmodes/cc-defs.el
View file @
3afbc435
...
...
@@ -29,6 +29,10 @@
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
(
eval-when-compile