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

SCM Repository

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

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

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

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