SCM Repository
[smlnj] Annotation of /sml/trunk/sml-mode/sml-compat.el
Annotation of /sml/trunk/sml-mode/sml-compat.el
Parent Directory
| 
Revision Log
Revision 332 -
(view)
(download)
| 1 : |
monnier |
319 |
;;; sml-compat.el
|
| 2 : |
|
|
|
| 3 : |
|
|
(defconst rcsid-sml-compat "@(#)$Name$:$Id$")
|
| 4 : |
|
|
|
| 5 : |
|
|
;; Copyright (C) 1999-1999 Stefan Monnier <monnier@cs.yale.edu>
|
| 6 : |
|
|
;;
|
| 7 : |
|
|
;; This program is free software; you can redistribute it and/or modify
|
| 8 : |
|
|
;; it under the terms of the GNU General Public License as published by
|
| 9 : |
|
|
;; the Free Software Foundation; either version 2 of the License, or
|
| 10 : |
|
|
;; (at your option) any later version.
|
| 11 : |
|
|
;;
|
| 12 : |
|
|
;; This program is distributed in the hope that it will be useful,
|
| 13 : |
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
| 14 : |
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
| 15 : |
|
|
;; GNU General Public License for more details.
|
| 16 : |
|
|
;;
|
| 17 : |
|
|
;; You should have received a copy of the GNU General Public License
|
| 18 : |
|
|
;; along with this program; if not, write to the Free Software
|
| 19 : |
|
|
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
| 20 : |
|
|
|
| 21 : |
|
|
;;
|
| 22 : |
|
|
|
| 23 : |
|
|
(unless (fboundp 'set-keymap-parents)
|
| 24 : |
|
|
(defun set-keymap-parents (m parents)
|
| 25 : |
|
|
(set-keymap-parent
|
| 26 : |
monnier |
332 |
m
|
| 27 : |
|
|
(if (cdr parents)
|
| 28 : |
|
|
(reduce (lambda (m1 m2)
|
| 29 : |
|
|
(let ((m (copy-keymap m1)))
|
| 30 : |
|
|
(set-keymap-parent m m2) m))
|
| 31 : |
|
|
parents
|
| 32 : |
|
|
:from-end t)
|
| 33 : |
|
|
(car parents)))))
|
| 34 : |
monnier |
319 |
|
| 35 : |
|
|
;;
|
| 36 : |
|
|
(provide 'sml-compat)
|
