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
|
From: SAKAI Kiyotaka <ksakai@netwk.ntt-at.co.jp>
Newsgroups: fj.editor.emacs
Subject: Re: EDB
Date: 09 Dec 1998 11:32:52 +0900
Organization: NTT Advanced Technology Corp.
Lines: 54
Message-ID: <19981209113252U.ksakai@netwk.ntt-at.co.jp>
References: <sqlww4af8ar.fsf@etla3434.etl.go.jp> <747nih$51f$1@sakyu.tottori-u.ac.jp> <19981208161702Z.ksakai@netwk.ntt-at.co.jp>
NNTP-Posting-Host: kso.netwk.ntt-at.co.jp
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
X-Trace: kso.netwk.ntt-at.co.jp 913170773 12896 192.168.9.2 (9 Dec 1998 02:32:53 GMT)
X-Complaints-To: news@kso.netwk.ntt-at.co.jp
NNTP-Posting-Date: 9 Dec 1998 02:32:53 GMT
In-Reply-To: <19981208161702Z.ksakai@netwk.ntt-at.co.jp>
X-Mailer: Mew version 1.94b2 on Emacs 20.3 / Mule 4.0 (HANANOEN)
X-Dispatcher: imput version 981124(IM104)
>> In article <19981208161702Z.ksakai@netwk.ntt-at.co.jp>, SAKAI Kiyotaka <ksakai@netwk.ntt-at.co.jp> writes:
> $B$3$N(B EDB $B$H$$$&$N$O$I$3$+$i<j$KF~$k$N$G$7$g$&$+!)(B
$B$"$kJ}$+$i8D?ME*$K(B
ftp://theory.lcs.mit.edu/pub/emacs/edb/
$B$+$i<j$KF~$k$H65$($F$b$i$$$^$7$?!#(B
$B$=$l$G!"5$$K$J$C$?$N$GF0:n$r$5$;$F$_$?$H$3$m!"(B
(defun db-copy-buffer-local-variables (buffer)
"Copy the values of all of BUFFER's local variables into the current buffer."
(let ((blv (in-buffer-simple buffer (buffer-local-variables)))
pair symbol)
(while (consp blv)
(setq pair (car blv)
symbol (car pair)
blv (cdr blv))
;; nil and 0 can be bogus local variables; never copy buffer-undo-list
(if (not (memq symbol '(0 nil buffer-undo-list)))
(progn
(if (not (symbolp symbol))
(error "\"%s\" should be a symbol with value \"%s\""
symbol (cdr pair)))
(make-local-variable symbol)
(set symbol (cdr pair)))))))
$B$H$$$&%3!<%I$,$"$C$F!"$9$Y$F$N(B buffer local $BJQ?t$r(B make-local-variable
$B$r<B9T$7$F$+$i%3%T!<$9$k$H$$$&%3!<%I$G(B enable-multibyte-characters $B$K(B
$BBP$7$F$b(B make-local-variable $B$r<B9T$7$F$$$k$?$a$K0z$C$+$+$C$F$$$k$3$H(B
$B$,J,$+$j$^$7$?!#(B
$B$G$9$N$G!"0J2<$N$h$&$K=$@5$9$l$P$$$$$+$H;W$$$^$9!#(B
===================================================================
RCS file: RCS/db-util.el,v
retrieving revision 1.1
diff -u -r1.1 db-util.el
--- db-util.el 1998/12/09 02:26:58 1.1
+++ db-util.el 1998/12/09 02:27:39
@@ -557,7 +557,7 @@
symbol (car pair)
blv (cdr blv))
;; nil and 0 can be bogus local variables; never copy buffer-undo-list
- (if (not (memq symbol '(0 nil buffer-undo-list)))
+ (if (not (memq symbol '(0 nil buffer-undo-list enable-multibyte-characters)))
(progn
(if (not (symbolp symbol))
(error "\"%s\" should be a symbol with value \"%s\""
--
$B<r0f(B $B@6N4(B (E-mail: ksakai@netwk.ntt-at.co.jp)
*** db-interfa.el.orig Sun Jan 10 20:50:33 1999
--- db-interfa.el Sun Jan 10 20:51:41 1999
***************
*** 434,439 ****
--- 434,440 ----
(define-key database-edit-mode-map [mouse1] 'db-lucid-mouse-jump-to-point)
(define-key database-edit-mode-map [mouse3] 'database-edit-mode-menu)
+ (load "db-summary")
(define-key database-summary-mode-map [mouse1] 'db-lucid-mouse-jump-to-point)
(defun db-lucid-mouse-jump-to-point (e)
|
