(enriched-make-annotation): Fix the change from 2002-01-05.

(enriched-handle-display-prop): Return proper values.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ba740b93546e163fc27df744640727fee0ee8e2..7b55a7eb46b015c1784fd3b1d633e781713010c7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2002-01-06  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
+       * enriched.el (enriched-make-annotation): Fix the change from
+       2002-01-05.
+       (enriched-handle-display-prop): Return proper values.
+
        * net/eudcb-ldap.el (eudc-attribute-display-method-alist): Use
        proper attribute name labeledUri instead of deprecated labeledUrl.
 

diff --git a/lisp/enriched.el b/lisp/enriched.el
index d3bd7084d15440130134cf81c2a3d27772b3c433..74258e60941bd1662b883bf0697cd8e4c7c5de74 100644 (file)
--- a/lisp/enriched.el
+++ b/lisp/enriched.el
@@ -315,16 +315,16 @@ the region, and the START and END of each region."
 INTERNAL-ANN may be a string, for a flag, or a list of the form (PARAM VALUE).
 If POSITIVE is non-nil, this is the opening annotation;
 if nil, the matching close."
-  (cond ((stringp name)
-        (format enriched-annotation-format (if positive "" "/") name))
+  (cond ((stringp internal-ann)
+        (format enriched-annotation-format (if positive "" "/") internal-ann))
        ;; Otherwise it is an annotation with parameters, represented as a list
        (positive
-        (let ((item (car name))
-              (params (cdr name)))
+        (let ((item (car internal-ann))
+              (params (cdr internal-ann)))
           (concat (format enriched-annotation-format "" item)
                   (mapconcat (lambda (i) (concat "<param>" i "</param>"))
                              params ""))))
-       (t (format enriched-annotation-format "/" (car name)))))
+       (t (format enriched-annotation-format "/" (car internal-ann)))))
 
 (defun enriched-encode-other-face (old new)
   "Generate annotations for random face change.
@@ -465,9 +465,8 @@ has the form `(ANNOTATION PARAM ...)'."
   (let ((annotation "x-display")
        (param (prin1-to-string (or old new))))
     (if (null old)
-       (list nil (list annotation param))
-      (list (list annotation param)))))
-
+        (cons nil (list (list annotation param)))
+      (cons (list (list annotation param)) nil))))
 
 (defun enriched-decode-display-prop (start end &optional param)
   "Decode a `display' property for text between START and END.