1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
;;; help-nomule.el --- Help functions when not in Mule
;; Copyright (C) 1997 by Free Software Foundation, Inc.
;; Maintainer: XEmacs Development Team
;; Keywords: help, internal, dumped
;; This file is part of XEmacs.
;; XEmacs is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; XEmacs is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with XEmacs; see the file COPYING. If not, write to the Free
;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
;; 02111-1307, USA.
;;; Synched up with: Not in FSF
;;; Commentary:
;; This file is dumped with XEmacs.
;;; Code:
(defconst tutorial-supported-languages
'(
("Croatian" hr iso-8859-2)
("French" fr iso-8859-1)
("German" de iso-8859-1)
("Norwegian" no iso-8859-1)
("Polish" pl iso-8859-2)
("Romanian" ro iso-8859-2)
("Swedish" se iso-8859-1)
)
"Alist of supported languages in TUTORIAL files.
Add languages here, as more are translated.")
;; TUTORIAL arg is XEmacs addition
(defun help-with-tutorial (&optional tutorial language)
"Select the XEmacs learn-by-doing tutorial.
Optional arg TUTORIAL specifies the tutorial file; default is \"TUTORIAL\".
With a prefix argument, choose the language."
(interactive "i\nP")
(or tutorial
(setq tutorial "TUTORIAL"))
(when (and language (consp language))
(let ((completion-ignore-case t))
(setq language (assoc (completing-read "Language: "
tutorial-supported-languages
nil t)
tutorial-supported-languages))))
(when language
(setq tutorial (format "%s.%s" tutorial (cadr language))))
(let ((file (expand-file-name tutorial "~")))
(delete-other-windows)
(let ((buffer (or (get-file-buffer file)
(create-file-buffer file)))
(window-configuration (current-window-configuration)))
(condition-case error-data
(progn
(switch-to-buffer buffer)
(setq buffer-file-name file)
(setq default-directory (expand-file-name "~/"))
(setq buffer-auto-save-file-name nil)
;; Because of non-Mule users, TUTORIALs are not coded
;; independently, so we must guess the coding according to
;; the language.
(let ((coding-system-for-read (nth 2 language)))
(insert-file-contents (locate-data-file tutorial)))
(goto-char (point-min))
;; The 'didactic' blank lines: possibly insert blank lines
;; around <<nya nya nya>> and replace << >> with [ ].
(if (re-search-forward "^<<.+>>")
(let ((n (- (window-height (selected-window))
(count-lines (point-min) (point-at-bol))
6)))
(if (< n 12)
(progn (beginning-of-line) (kill-line))
;; Some people get confused by the large gap
(delete-backward-char 2)
(insert "]")
(beginning-of-line)
(save-excursion
(delete-char 2)
(insert "["))
(newline (/ n 2))
(next-line 1)
(newline (- n (/ n 2))))))
(goto-char (point-min))
(set-buffer-modified-p nil))
;; TUTORIAL was not found: kill the buffer and restore the
;; window configuration.
(file-error (kill-buffer buffer)
(set-window-configuration window-configuration)
;; Now, signal the error
(signal (car error-data) (cdr error-data)))))))
;; General Mule-compatibility stuffs
(define-function 'string-width 'length)
;; The following was originally in subr.el
(defun make-char (charset &optional arg1 arg2)
"Make a character from CHARSET and octets ARG1 and ARG2.
This function is available for compatibility with Mule-enabled XEmacsen.
When CHARSET is `ascii', return (int-char ARG1). Otherwise, return
that value with the high bit set. ARG2 is always ignored."
(int-char (if (eq charset 'ascii)
arg1
(logior arg1 #x80))))
(provide 'help-nomule)
;;; help-nomule.el ends here
|
