diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-11 06:18:17 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-11 06:18:17 +0000 |
| commit | 62591911330d5def728774a7ae3345204967810e (patch) | |
| tree | 61365afa1190bc9306143def559d8fe10fc2f00c /lisp/international/ccl.el | |
| parent | 8b908da69e0eaab847c6982d939e23caa606a27d (diff) | |
| download | emacs-62591911330d5def728774a7ae3345204967810e.tar.gz | |
(define-ccl-program): Purecopy the docstring.
Diffstat (limited to 'lisp/international/ccl.el')
| -rw-r--r-- | lisp/international/ccl.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el index c5088c8c9e5..bb67e17d039 100644 --- a/lisp/international/ccl.el +++ b/lisp/international/ccl.el @@ -1523,7 +1523,7 @@ MAP-ID := integer (fset 'charset-id 'charset-id-internal) (ccl-compile (eval ccl-program))) (fmakunbound 'charset-id)))) - (defconst ,name prog ,doc) + (defconst ,name prog (purecopy ,doc)) (put ',name 'ccl-program-idx (register-ccl-program ',name prog)) nil)) |