793 |
(setq l (cdr l))))) |
(setq l (cdr l))))) |
794 |
|
|
795 |
(defun format-annotate-value (old new) |
(defun format-annotate-value (old new) |
796 |
"Return OLD and NEW as a \(close . open) annotation pair. |
"Return OLD and NEW as a \(CLOSE . OPEN) annotation pair. |
797 |
Useful as a default function for TRANSLATIONS alist when the value of the text |
Useful as a default function for TRANSLATIONS alist when the value of the text |
798 |
property is the name of the annotation that you want to use, as it is for the |
property is the name of the annotation that you want to use, as it is for the |
799 |
`unknown' text property." |
`unknown' text property." |