Re: annotations problem?

[Richard Stallman]

The doc string of format-annotate-region was wrong.
The function handle-face-property needs to be defined like this:

(defun handle-face-property (old new)
  (let ((param (prin1-to-string (or old new))))
    (if (null old)
        (cons nil (list (list "x-face" param)))
      (cons (list (list "x-face" param)) nil))))