(if ntotal
(if total
(unless (eq total ntotal)
- (error "The numbers of total are different"))
+ (error "The numbers of total are different"))
(setq total ntotal)))
(unless (< nn n)
(unless (eq nn n)
(condition-case nil
;; This is only valid on XEmacs.
(mapcar (lambda (prop)
- (remove-specifier
- (face-property 'default prop) (current-buffer)))
+ (remove-specifier
+ (face-property 'default prop) (current-buffer)))
'(background background-pixmap foreground))
(error nil))
(delete-region ,(point-min-marker) ,(point-max-marker))))))))))