Function: char-fold-update-table

char-fold-update-table is a byte-compiled function defined in char-fold.el.gz.

Signature

(char-fold-update-table)

Documentation

Update char-fold-table only when one of the options changes its value.

Source Code

;; Defined in /usr/src/emacs/lisp/char-fold.el.gz
(defun char-fold-update-table ()
  "Update char-fold-table only when one of the options changes its value."
  (let ((new (list (or (bound-and-true-p char-fold-override)
                       char-fold--default-override)
                   (or (bound-and-true-p char-fold-include)
                       char-fold--default-include)
                   (or (bound-and-true-p char-fold-exclude)
                       char-fold--default-exclude)
                   (or (bound-and-true-p char-fold-symmetric)
                       char-fold--default-symmetric))))
    (unless (equal char-fold--previous new)
      (setq char-fold-table (char-fold--make-table)
            char-fold--previous new))))