Function: set-upcase-syntax

set-upcase-syntax is a byte-compiled function defined in case-table.el.gz.

Signature

(set-upcase-syntax UC LC TABLE)

Documentation

Make character UC an upcase of character LC.

It also modifies standard-syntax-table to give them the syntax of word constituents.

Source Code

;; Defined in /usr/src/emacs/lisp/case-table.el.gz
(defun set-upcase-syntax (uc lc table)
  "Make character UC an upcase of character LC.
It also modifies `standard-syntax-table' to give them the syntax of
word constituents."
  (aset table lc lc)
  (let ((up (case-table-get-table table 'up)))
    (aset up uc uc)
    (aset up lc uc))
  ;; Clear out the extra slots so that they will be
  ;; recomputed from the main (downcase) table and upcase table.
  (set-char-table-extra-slot table 1 nil)
  (set-char-table-extra-slot table 2 nil)
  (modify-syntax-entry lc "w   " (standard-syntax-table))
  (modify-syntax-entry uc "w   " (standard-syntax-table)))