release ada-mode 5.1.7, wisi 1.1.0; minor format changes in ada-ref-man (take 2)

[gnu-emacs-elpa] / packages / markchars / markchars.el

diff --git a/packages/markchars/markchars.el b/packages/markchars/markchars.el
index cfaa6f7d4e8788c00178a85ddc92c52ed15b576d..974456a4442e6a9e01013e238575c307e68774c9 100644 (file)
--- a/packages/markchars/markchars.el
+++ b/packages/markchars/markchars.el
@@ -156,8 +156,8 @@ By default it matches nonascii-chars."
   "Assign markchars confusable properties between BEG and END."
   (let* ((text (buffer-substring-no-properties beg end))
          (scripts (mapcar
-                  '(lambda (c) (aref char-script-table c))
-                  (string-to-list text)))
+                   (lambda (c) (aref char-script-table c))
+                   (string-to-list text)))
          ;; `scripts-extra' is not nil is there was more than one script
          (scripts-extra (delq (car scripts) scripts)))
     (when scripts-extra
@@ -191,7 +191,8 @@ The default is to mark nonascii chars with a magenta underline."
           (add-to-list props 'markchars))
         (font-lock-add-keywords nil markchars-used-keywords))
     (font-lock-remove-keywords nil markchars-used-keywords))
-  (font-lock-fontify-buffer))
+  (if (fboundp 'font-lock-flush)
+      (font-lock-flush) (font-lock-fontify-buffer)))
 
 ;;;###autoload
 (define-globalized-minor-mode markchars-global-mode markchars-mode