Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/sml-mode/sml-compat.el
ViewVC logotype

Diff of /sml/trunk/sml-mode/sml-compat.el

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

revision 319, Mon Jun 7 22:47:00 1999 UTC revision 332, Tue Jun 15 00:51:38 1999 UTC
# Line 23  Line 23 
23  (unless (fboundp 'set-keymap-parents)  (unless (fboundp 'set-keymap-parents)
24    (defun set-keymap-parents (m parents)    (defun set-keymap-parents (m parents)
25      (set-keymap-parent      (set-keymap-parent
26       m (reduce (lambda (m1 m2)       m
27         (if (cdr parents)
28             (reduce (lambda (m1 m2)
29                   (let ((m (copy-keymap m1)))                   (let ((m (copy-keymap m1)))
30                     (set-keymap-parent m m2) m))                     (set-keymap-parent m m2) m))
31                 parents))))                   parents
32                     :from-end t)
33           (car parents)))))
34    
35  ;;  ;;
36  (provide 'sml-compat)  (provide 'sml-compat)

Legend:
Removed from v.319  
changed lines
  Added in v.332

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0