# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1121539525 0
# Node ID 52c5faa47a882dbf1acfea6d4a5e01210d34ee20
# Parent  16a2152f8d11c52c98048f6b0ef504984dffd3a2
(pascal-outline-map): Use fboundp, not boundp.  Correctly avoid warnings.
(pascal-outline): Likewise.

diff -r 16a2152f8d11 -r 52c5faa47a88 lisp/progmodes/pascal.el
--- a/lisp/progmodes/pascal.el	Sat Jul 16 18:42:26 2005 +0000
+++ b/lisp/progmodes/pascal.el	Sat Jul 16 18:45:25 2005 +0000
@@ -1493,12 +1493,12 @@
 
 (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)
@@ -1533,7 +1533,7 @@
   (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