[Emacs-diffs] Changes to emacs/lisp/progmodes/pascal.el

[Richard M . Stallman]

Index: emacs/lisp/progmodes/pascal.el
diff -c emacs/lisp/progmodes/pascal.el:1.44 emacs/lisp/progmodes/pascal.el:1.45
*** emacs/lisp/progmodes/pascal.el:1.44 Mon Jul  4 16:59:19 2005
--- emacs/lisp/progmodes/pascal.el      Sat Jul 16 18:45:25 2005
***************
*** 1493,1504 ****
  
  (if pascal-outline-map
      nil
!   (if (boundp '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))
    (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)
--- 1493,1504 ----
  
  (if pascal-outline-map
      nil
!   (if (fboundp 'set-keymap-name)
        (set-keymap-name pascal-outline-map 'pascal-outline-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,1539 ****
    (interactive "P")
    (setq pascal-outline-mode
        (if (null arg) (not pascal-outline-mode) t))
!   (if (boundp 'redraw-mode-line)
        (redraw-mode-line))
    (if pascal-outline-mode
        (progn
--- 1533,1539 ----
    (interactive "P")
    (setq pascal-outline-mode
        (if (null arg) (not pascal-outline-mode) t))
!   (if (fboundp 'redraw-mode-line)
        (redraw-mode-line))
    (if pascal-outline-mode
        (progn