diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-09-25 16:15:16 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-09-25 16:15:16 -0400 |
| commit | 650c20f1ca4e07591a727e1cfcc74b3363d15985 (patch) | |
| tree | 85d11f6437cde22f410c25e0e5f71a3131ebd07d /lisp/case-table.el | |
| parent | 8869332684c2302b5ba1ead4568bbc7ba1c0183e (diff) | |
| parent | 4b85ae6a24380fb67a3315eaec9233f17a872473 (diff) | |
| download | emacs-650c20f1ca4e07591a727e1cfcc74b3363d15985.tar.gz emacs-650c20f1ca4e07591a727e1cfcc74b3363d15985.tar.bz2 emacs-650c20f1ca4e07591a727e1cfcc74b3363d15985.zip | |
Merge 'master' into noverlay
Diffstat (limited to 'lisp/case-table.el')
| -rw-r--r-- | lisp/case-table.el | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/lisp/case-table.el b/lisp/case-table.el index 174e3f0afc0..f6f6851dd33 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el @@ -1,6 +1,6 @@ ;;; case-table.el --- code to extend the character set and support case tables -*- lexical-binding: t -*- -;; Copyright (C) 1988, 1994, 2001-2017 Free Software Foundation, Inc. +;; Copyright (C) 1988, 1994, 2001-2022 Free Software Foundation, Inc. ;; Author: Howard Gayle ;; Maintainer: emacs-devel@gnu.org @@ -38,26 +38,26 @@ (interactive) (let ((description (make-char-table 'case-table))) (map-char-table - (function (lambda (key value) - (if (not (natnump value)) - (if (consp key) - (set-char-table-range description key "case-invariant") - (aset description key "case-invariant")) - (let (from to) - (if (consp key) - (setq from (car key) to (cdr key)) - (setq from (setq to key))) - (while (<= from to) - (aset - description from - (cond ((/= from (downcase from)) - (concat "uppercase, matches " - (char-to-string (downcase from)))) - ((/= from (upcase from)) - (concat "lowercase, matches " - (char-to-string (upcase from)))) - (t "case-invariant"))) - (setq from (1+ from))))))) + (lambda (key value) + (if (not (natnump value)) + (if (consp key) + (set-char-table-range description key "case-invariant") + (aset description key "case-invariant")) + (let (from to) + (if (consp key) + (setq from (car key) to (cdr key)) + (setq from (setq to key))) + (while (<= from to) + (aset + description from + (cond ((/= from (downcase from)) + (concat "uppercase, matches " + (char-to-string (downcase from)))) + ((/= from (upcase from)) + (concat "lowercase, matches " + (char-to-string (upcase from)))) + (t "case-invariant"))) + (setq from (1+ from)))))) (current-case-table)) (save-excursion (with-output-to-temp-buffer "*Help*" |