;;; pascal.el --- major mode for editing pascal source in Emacs
-;; Copyright (C) 1993, 94, 95, 96, 97, 98, 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
+;; 2003, 2004, 2005 Free Software Foundation, Inc.
;; Author: Espen Skoglund <esk@gnu.org>
;; Keywords: languages
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
;;; Code:
(defgroup pascal nil
- "Major mode for editing Pascal source in Emacs"
+ "Major mode for editing Pascal source in Emacs."
:group 'languages)
(defvar pascal-mode-abbrev-table nil
(make-local-variable 'imenu-generic-expression)
(setq imenu-generic-expression pascal-imenu-generic-expression)
(setq imenu-case-fold-search t)
- (run-hooks 'pascal-mode-hook))
+ (run-mode-hooks 'pascal-mode-hook))
\f
(if pascal-outline-map
nil
- (if (boundp 'set-keymap-name)
+ (if (fboundp 'set-keymap-name)
(set-keymap-name pascal-outline-map 'pascal-outline-map))
- (if (not (boundp 'set-keymap-parent))
- (setq pascal-outline-map (copy-keymap pascal-mode-map))
- (setq pascal-outline-map (make-sparse-keymap))
- (set-keymap-parent pascal-outline-map pascal-mode-map))
+ (if (fboundp 'set-keymap-parent)
+ (set-keymap-parent (setq pascal-outline-map (make-sparse-keymap))
+ pascal-mode-map)
+ (setq pascal-outline-map (copy-keymap pascal-mode-map)))
(define-key pascal-outline-map "\M-\C-a" 'pascal-outline-prev-defun)
(define-key pascal-outline-map "\M-\C-e" 'pascal-outline-next-defun)
(define-key pascal-outline-map "\C-c\C-d" 'pascal-outline-goto-defun)
(interactive "P")
(setq pascal-outline-mode
(if (null arg) (not pascal-outline-mode) t))
- (if (boundp 'redraw-mode-line)
+ (if (fboundp 'redraw-mode-line)
(redraw-mode-line))
(if pascal-outline-mode
(progn