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
a20b3848
Commit
a20b3848
authored
Feb 08, 2006
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add 2006 to copyright years.
parent
c96ec15a
Changes
25
Hide whitespace changes
Inline
Side-by-side
Showing
25 changed files
with
74 additions
and
37 deletions
+74
-37
lisp/calendar/appt.el
lisp/calendar/appt.el
+2
-2
lisp/calendar/cal-bahai.el
lisp/calendar/cal-bahai.el
+2
-1
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
+2
-2
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
+2
-2
lisp/calendar/cal-move.el
lisp/calendar/cal-move.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/cal-x.el
lisp/calendar/cal-x.el
+1
-1
lisp/calendar/diary-lib.el
lisp/calendar/diary-lib.el
+1
-1
lisp/calendar/holidays.el
lisp/calendar/holidays.el
+1
-1
lisp/calendar/icalendar.el
lisp/calendar/icalendar.el
+1
-1
lisp/calendar/lunar.el
lisp/calendar/lunar.el
+2
-2
lisp/calendar/parse-time.el
lisp/calendar/parse-time.el
+1
-1
lisp/calendar/solar.el
lisp/calendar/solar.el
+2
-2
lisp/calendar/time-date.el
lisp/calendar/time-date.el
+1
-1
lisp/calendar/timeclock.el
lisp/calendar/timeclock.el
+1
-1
lisp/calendar/todo-mode.el
lisp/calendar/todo-mode.el
+1
-1
lisp/progmodes/f90.el
lisp/progmodes/f90.el
+44
-8
No files found.
lisp/calendar/appt.el
View file @
a20b3848
;;; appt.el --- appointment notification functions
;; Copyright (C) 1989, 1990, 1994, 1998, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation, Inc.
;; Copyright (C) 1989, 1990, 1994, 1998, 2001, 2002, 2003, 2004, 2005
,
;;
2006
Free Software Foundation, Inc.
;; Author: Neil Mager <neilm@juliet.ll.mit.edu>
;; Maintainer: Glenn Morris <rgm@gnu.org>
...
...
lisp/calendar/cal-bahai.el
View file @
a20b3848
;;; cal-bahai.el --- calendar functions for the Baha'i calendar.
;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
;; Free Software Foundation, Inc.
;; Author: John Wiegley <johnw@gnu.org>
;; Keywords: calendar
...
...
lisp/calendar/cal-china.el
View file @
a20b3848
;;; cal-china.el --- calendar functions for the Chinese calendar
;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
...
...
lisp/calendar/cal-coptic.el
View file @
a20b3848
;;; cal-coptic.el --- calendar functions for the Coptic/Ethiopic calendars
;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
...
...
lisp/calendar/cal-dst.el
View file @
a20b3848
;;; cal-dst.el --- calendar functions for daylight savings rules
;; Copyright (C) 1993, 1994, 1995, 1996, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation, Inc.
;; Copyright (C) 1993, 1994, 1995, 1996, 2001, 2002, 2003, 2004, 2005
,
;;
2006
Free Software Foundation, Inc.
;; Author: Paul Eggert <eggert@twinsun.com>
;; Edward M. Reingold <reingold@cs.uiuc.edu>
...
...
lisp/calendar/cal-french.el
View file @
a20b3848
;;; cal-french.el --- calendar functions for the French Revolutionary calendar
;; Copyright (C) 1988, 1989, 1992, 1994, 1995, 1997, 2001, 2002, 2003,
;; 2004, 2005 Free Software Foundation, Inc.
;; 2004, 2005
, 2006
Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
;; Maintainer: Glenn Morris <rgm@gnu.org>
...
...
lisp/calendar/cal-hebrew.el
View file @
a20b3848
;;; cal-hebrew.el --- calendar functions for the Hebrew calendar
;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: Nachum Dershowitz <nachum@cs.uiuc.edu>
...
...
lisp/calendar/cal-islam.el
View file @
a20b3848
;;; cal-islam.el --- calendar functions for the Islamic calendar
;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
...
...
lisp/calendar/cal-iso.el
View file @
a20b3848
;;; cal-iso.el --- calendar functions for the ISO calendar
;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
...
...
lisp/calendar/cal-julian.el
View file @
a20b3848
;;; cal-julian.el --- calendar functions for the Julian calendar
;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
...
...
lisp/calendar/cal-mayan.el
View file @
a20b3848
;;; cal-mayan.el --- calendar functions for the Mayan calendars
;; Copyright (C) 1992, 1993, 1995, 1997, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation, Inc.
;; Copyright (C) 1992, 1993, 1995, 1997, 2001, 2002, 2003, 2004, 2005
,
;;
2006
Free Software Foundation, Inc.
;; Author: Stewart M. Clamen <clamen@cs.cmu.edu>
;; Edward M. Reingold <reingold@cs.uiuc.edu>
...
...
lisp/calendar/cal-move.el
View file @
a20b3848
;;; cal-move.el --- calendar functions for movement in the calendar
;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
...
...
lisp/calendar/cal-persia.el
View file @
a20b3848
;;; cal-persia.el --- calendar functions for the Persian calendar
;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
...
...
lisp/calendar/cal-tex.el
View file @
a20b3848
;;; cal-tex.el --- calendar functions for printing calendars with LaTeX
;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: Steve Fisk <fisk@bowdoin.edu>
...
...
lisp/calendar/cal-x.el
View file @
a20b3848
;;; cal-x.el --- calendar windows in dedicated frames in X
;; Copyright (C) 1994, 1995, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1994, 1995, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: Michael Kifer <kifer@cs.sunysb.edu>
...
...
lisp/calendar/diary-lib.el
View file @
a20b3848
;;; diary-lib.el --- diary functions
;; Copyright (C) 1989, 1990, 1992, 1993, 1994, 1995, 2001, 2002, 2003,
;; 2004, 2005 Free Software Foundation, Inc.
;; 2004, 2005
, 2006
Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
;; Maintainer: Glenn Morris <rgm@gnu.org>
...
...
lisp/calendar/holidays.el
View file @
a20b3848
;;; holidays.el --- holiday functions for the calendar package
;; Copyright (C) 1989, 1990, 1992, 1993, 1994, 1997, 2001, 2002, 2003,
;; 2004, 2005 Free Software Foundation, Inc.
;; 2004, 2005
, 2006
Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
;; Maintainer: Glenn Morris <rgm@gnu.org>
...
...
lisp/calendar/icalendar.el
View file @
a20b3848
;;; icalendar.el --- iCalendar implementation -*-coding: utf-8 -*-
;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
;; Copyright (C) 2002, 2003, 2004, 2005
, 2006
Free Software Foundation, Inc.
;; Author: Ulf Jasper <ulf.jasper@web.de>
;; Created: August 2002
...
...
lisp/calendar/lunar.el
View file @
a20b3848
;;; lunar.el --- calendar functions for phases of the moon
;; Copyright (C) 1992, 1993, 1995, 1997, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation, Inc.
;; Copyright (C) 1992, 1993, 1995, 1997, 2001, 2002, 2003, 2004, 2005
,
;;
2006
Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
;; Maintainer: Glenn Morris <rgm@gnu.org>
...
...
lisp/calendar/parse-time.el
View file @
a20b3848
;;; parse-time.el --- parsing time strings
;; Copyright (C) 1996, 2000, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1996, 2000, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: Erik Naggum <erik@naggum.no>
...
...
lisp/calendar/solar.el
View file @
a20b3848
;;; solar.el --- calendar functions for solar events
;; Copyright (C) 1992, 1993, 1995, 1997, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation, Inc.
;; Copyright (C) 1992, 1993, 1995, 1997, 2001, 2002, 2003, 2004, 2005
,
;;
2006
Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
;; Denis B. Roegel <Denis.Roegel@loria.fr>
...
...
lisp/calendar/time-date.el
View file @
a20b3848
;;; time-date.el --- Date and time handling functions
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
...
...
lisp/calendar/timeclock.el
View file @
a20b3848
;;; timeclock.el --- mode for keeping track of how much you work
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: John Wiegley <johnw@gnu.org>
...
...
lisp/calendar/todo-mode.el
View file @
a20b3848
;;; todo-mode.el --- major mode for editing TODO list files
;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, 2005
;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, 2005
, 2006
;; Free Software Foundation, Inc.
;; Author: Oliver Seidel <os10000@seidel-space.de>
...
...
lisp/progmodes/f90.el
View file @
a20b3848
;;; f90.el --- Fortran-90 mode (free format)
;; Copyright (C) 1995, 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2005
,
;;
2006
Free Software Foundation, Inc.
;; Author: Torbj\"orn Einarsson <Torbjorn.Einarsson@era.ericsson.se>
;; Maintainer: Glenn Morris <rgm@gnu.org>
...
...
@@ -991,6 +991,16 @@ NAME is non-nil only for type."
"?\\([ \t]+\\(\\sw+\\)\\)?\\>"))
(list (match-string 1) (match-string 3))))
(defsubst f90-looking-at-else-like ()
"Return KIND if an ELSE or CASE statement starts after point.
Returns \"selectcase\", \"elseif\", \"elsewhere\", \"else\", or nil."
(when (looking-at f90-else-like-re)
(cond ((looking-at "case[ \t]*\\(default\\|\(\\
)
")
"
selectcase
")
((or (looking-at "
else[
\t]*\\
(
if\\
)
\\>
")
(looking-at "
else\\
(
where\\
)
?\\>
"))
(concat "
else
" (match-string 1))))))
(defsubst f90-comment-indent ()
"
Return
the
indentation
to
be
used
for
a
comment
starting
at
point.
Used
for
`
comment-indent-function
'
by
F90
mode.
...
...
@@ -1430,7 +1440,7 @@ after indenting."
(skip-chars-forward "
\t
"))
(if (looking-at "
!
")
(setq indent (f90-comment-indent))
(and f90-smart-end (looking-at
"end"
)
(and f90-smart-end (looking-at
(concat "
end\\|" f90-else-like-re)
)
(f90-match-end))
(setq indent (f90-calculate-indent)))
(or (= indent (current-column))
...
...
@@ -1719,6 +1729,29 @@ Leave point at the end of line."
(replace-match ""))))
(or (looking-at "
[
\t]*!
") (delete-horizontal-space))))
(defun f90-else-like-match (beg-block else-block)
"
Match
else-struct
with
beg-struct
and
complete
else-struct
if
possible.
BEG-BLOCK
is
the
type
of
block
as
indicated
at
the
start
(
e.g.,
if
)
.
ELSE-BLOCK
is
the
type
of
block
as
indicated
at
the
else
(
may
be
nil
)
.
"
(if (not (member beg-block '("
if
" "
where
" "
select
")))
(if beg-block
(message "
%s
block
cannot
have
a
%s.
" beg-block else-block)
(message "
No
beginning
for
%s.
" else-block))
(let ((else-type (cond
((string-equal else-block "
selectcase
") "
select
")
((string-match "
else\\
(
if\\|where\\)" else-block)
(match-string 1 else-block)))))
(unless (f90-equal-symbols beg-block else-type)
(if (or else-type
(f90-equal-symbols beg-block "select"))
(progn
(message "%s does not match %s." else-block beg-block)
(end-of-line))
(cond ((string-equal beg-block "where")
(message "Inserting %s." beg-block)
(search-forward "else" (line-end-position))
(insert beg-block))))))))
(defun f90-match-end ()
"From an end block statement, find the corresponding block and name."
(interactive)
...
...
@@ -1726,11 +1759,11 @@ Leave point at the end of line."
(top-of-window (window-start))
(end-point (point))
(case-fold-search t)
matching-beg beg-name
end-name beg-block end-block end
-struct)
matching-beg beg-name
beg-block end-struct else
-struct)
(when (save-excursion (beginning-of-line) (skip-chars-forward " \t0-9")
(
setq end-struct (f90-looking-at-program-block-end)))
(setq end-block (car end-struct
)
end-name (car (cdr end-struct
)))
(
or (setq end-struct
(f90-looking-at-program-block-end)
)
(setq else-struct (f90-looking-at-else-like)
)))
(save-excursion
(beginning-of-line)
(while (and (> count 0)
...
...
@@ -1773,7 +1806,10 @@ Leave point at the end of line."
beg-name (car (cdr matching-beg)))
(goto-char end-point)
(beginning-of-line)
(f90-block-match beg-block beg-name end-block end-name))))))
(if else-struct
(f90-else-like-match beg-block else-struct)
(f90-block-match beg-block beg-name
(car end-struct) (cadr end-struct))))))))
(defun f90-insert-end ()
"Insert a complete end statement matching beginning of present block."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment