blob: 0947c647cba6c6839ef022e654a8aec01d4c3a87 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
$NetBSD: patch-ab,v 1.1 2003/04/16 23:20:50 kei Exp $
--- lisp/mucs-ccl.el.orig Thu Apr 17 01:50:50 2003
+++ lisp/mucs-ccl.el Thu Apr 17 01:52:12 2003
@@ -639,10 +639,9 @@
(mucs-notify-embedment 'mucs-ccl-required name)
(setq ccl-pgm-list (cdr ccl-pgm-list)))
; (message "MCCLREGFIN:%S" result)
- `(progn
- (setq mucs-ccl-facility-alist
- (quote ,mucs-ccl-facility-alist))
- ,@result)))
+ `((setq mucs-ccl-facility-alist
+ (quote ,mucs-ccl-facility-alist))
+ ,@result)))
;;; Add hook for embedding translation informations to a package.
(add-hook 'mucs-package-definition-end-hook
|
