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 536 - (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 : monnier 535 (if (keymapp parents) (setq parents (list parents)))
26 : monnier 319 (set-keymap-parent
27 : monnier 332 m
28 :     (if (cdr parents)
29 :     (reduce (lambda (m1 m2)
30 :     (let ((m (copy-keymap m1)))
31 :     (set-keymap-parent m m2) m))
32 :     parents
33 :     :from-end t)
34 :     (car parents)))))
35 : monnier 319
36 : monnier 535 ;; for XEmacs
37 :     (when (and (not (boundp 'temporary-file-directory)) (fboundp 'temp-directory))
38 :     (defvar temporary-file-directory (temp-directory)))
39 :    
40 :     (unless (fboundp 'make-temp-file)
41 :     ;; Copied from Emacs-21's subr.el
42 :     (defun make-temp-file (prefix &optional dir-flag)
43 :     "Create a temporary file.
44 :     The returned file name (created by appending some random characters at the end
45 :     of PREFIX, and expanding against `temporary-file-directory' if necessary,
46 :     is guaranteed to point to a newly created empty file.
47 :     You can then use `write-region' to write new data into the file.
48 :    
49 :     If DIR-FLAG is non-nil, create a new empty directory instead of a file."
50 :     (let (file)
51 :     (while (condition-case ()
52 :     (progn
53 :     (setq file
54 :     (make-temp-name
55 :     (expand-file-name prefix temporary-file-directory)))
56 :     (if dir-flag
57 :     (make-directory file)
58 :     (write-region "" nil file nil 'silent nil 'excl))
59 :     nil)
60 :     (file-already-exists t))
61 :     ;; the file was somehow created by someone else between
62 :     ;; `make-temp-name' and `write-region', let's try again.
63 :     nil)
64 : monnier 536 file)))
65 : monnier 535
66 :    
67 : monnier 319 ;;
68 :     (provide 'sml-compat)

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