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

Parent Directory | Revision Log | 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)

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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