/[emacs]/emacs/lisp/progmodes/pascal.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/pascal.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by lute, Mon Jul 4 16:59:19 2005 UTC revision 1.45 by rms, Sat Jul 16 18:45:25 2005 UTC
# Line 1493  The default is a name found in the buffe Line 1493  The default is a name found in the buffe
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)
# Line 1533  Pascal Outline mode provides some additi Line 1533  Pascal Outline mode provides some additi
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

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26