1493 |
|
|
1494 |
(if pascal-outline-map |
(if pascal-outline-map |
1495 |
nil |
nil |
1496 |
(if (boundp 'set-keymap-name) |
(if (fboundp 'set-keymap-name) |
1497 |
(set-keymap-name pascal-outline-map 'pascal-outline-map)) |
(set-keymap-name pascal-outline-map 'pascal-outline-map)) |
1498 |
(if (not (boundp 'set-keymap-parent)) |
(if (fboundp 'set-keymap-parent) |
1499 |
(setq pascal-outline-map (copy-keymap pascal-mode-map)) |
(set-keymap-parent (setq pascal-outline-map (make-sparse-keymap)) |
1500 |
(setq pascal-outline-map (make-sparse-keymap)) |
pascal-mode-map) |
1501 |
(set-keymap-parent pascal-outline-map pascal-mode-map)) |
(setq pascal-outline-map (copy-keymap pascal-mode-map))) |
1502 |
(define-key pascal-outline-map "\M-\C-a" 'pascal-outline-prev-defun) |
(define-key pascal-outline-map "\M-\C-a" 'pascal-outline-prev-defun) |
1503 |
(define-key pascal-outline-map "\M-\C-e" 'pascal-outline-next-defun) |
(define-key pascal-outline-map "\M-\C-e" 'pascal-outline-next-defun) |
1504 |
(define-key pascal-outline-map "\C-c\C-d" 'pascal-outline-goto-defun) |
(define-key pascal-outline-map "\C-c\C-d" 'pascal-outline-goto-defun) |
1533 |
(interactive "P") |
(interactive "P") |
1534 |
(setq pascal-outline-mode |
(setq pascal-outline-mode |
1535 |
(if (null arg) (not pascal-outline-mode) t)) |
(if (null arg) (not pascal-outline-mode) t)) |
1536 |
(if (boundp 'redraw-mode-line) |
(if (fboundp 'redraw-mode-line) |
1537 |
(redraw-mode-line)) |
(redraw-mode-line)) |
1538 |
(if pascal-outline-mode |
(if pascal-outline-mode |
1539 |
(progn |
(progn |