mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 23:21:22 -08:00
Code Issues Projects Releases Wiki Activity

(pascal-outline-map): Use fboundp, not boundp. Correctly avoid warnings.

Browse source 
(pascal-outline): Likewise.
This commit is contained in:
Richard M. Stallman 2005-07-16 18:45:25 +00:00
parent 2c94857186
commit ca73a5b441
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/progmodes/pascal.el
View file

@ -1493,12 +1493,12 @@ The default is a name found in the buffer around point."
(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 @@ Pascal Outline mode provides some additional commands.
(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