summaryrefslogtreecommitdiff
path: root/lisp/language
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/language')
-rw-r--r--lisp/language/burmese.el3
-rw-r--r--lisp/language/cham.el2
-rw-r--r--lisp/language/china-util.el2
-rw-r--r--lisp/language/chinese.el2
-rw-r--r--lisp/language/cyril-util.el2
-rw-r--r--lisp/language/cyrillic.el2
-rw-r--r--lisp/language/czech.el2
-rw-r--r--lisp/language/english.el2
-rw-r--r--lisp/language/ethio-util.el2
-rw-r--r--lisp/language/ethiopic.el2
-rw-r--r--lisp/language/european.el2
-rw-r--r--lisp/language/georgian.el2
-rw-r--r--lisp/language/greek.el2
-rw-r--r--lisp/language/hanja-util.el2
-rw-r--r--lisp/language/hebrew.el2
-rw-r--r--lisp/language/ind-util.el2
-rw-r--r--lisp/language/indian.el8
-rw-r--r--lisp/language/japan-util.el2
-rw-r--r--lisp/language/japanese.el10
-rw-r--r--lisp/language/khmer.el2
-rw-r--r--lisp/language/korea-util.el2
-rw-r--r--lisp/language/korean.el2
-rw-r--r--lisp/language/lao-util.el2
-rw-r--r--lisp/language/lao.el2
-rw-r--r--lisp/language/misc-lang.el67
-rw-r--r--lisp/language/romanian.el2
-rw-r--r--lisp/language/sinhala.el4
-rw-r--r--lisp/language/slovak.el2
-rw-r--r--lisp/language/tai-viet.el2
-rw-r--r--lisp/language/thai-util.el2
-rw-r--r--lisp/language/thai-word.el2
-rw-r--r--lisp/language/thai.el2
-rw-r--r--lisp/language/tibet-util.el2
-rw-r--r--lisp/language/tibetan.el2
-rw-r--r--lisp/language/tv-util.el5
-rw-r--r--lisp/language/utf-8-lang.el2
-rw-r--r--lisp/language/viet-util.el2
-rw-r--r--lisp/language/vietnamese.el2
38 files changed, 109 insertions, 52 deletions
diff --git a/lisp/language/burmese.el b/lisp/language/burmese.el
index 420e8d74919..25425ec4858 100644
--- a/lisp/language/burmese.el
+++ b/lisp/language/burmese.el
@@ -19,7 +19,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
@@ -56,4 +56,3 @@
(vector "." 0 'font-shape-gstring))))
(set-char-table-range composition-function-table '(#x1000 . #x107F) elt)
(set-char-table-range composition-function-table '(#xAA60 . #xAA7B) elt))
-
diff --git a/lisp/language/cham.el b/lisp/language/cham.el
index a025ff0d209..4749f2e8db4 100644
--- a/lisp/language/cham.el
+++ b/lisp/language/cham.el
@@ -19,7 +19,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el
index 955c2999b8c..f5174fb5e93 100644
--- a/lisp/language/china-util.el
+++ b/lisp/language/china-util.el
@@ -24,7 +24,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el
index a412838af73..9ba178d7239 100644
--- a/lisp/language/chinese.el
+++ b/lisp/language/chinese.el
@@ -24,7 +24,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index a96f2fb0475..7644064c5a0 100644
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -17,7 +17,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index 1e47057e9b5..ba985a4754f 100644
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -25,7 +25,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/czech.el b/lisp/language/czech.el
index 0ebf2cb7bde..21213c65fd5 100644
--- a/lisp/language/czech.el
+++ b/lisp/language/czech.el
@@ -19,7 +19,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/english.el b/lisp/language/english.el
index fefb24171a0..3e8f3123c3f 100644
--- a/lisp/language/english.el
+++ b/lisp/language/english.el
@@ -24,7 +24,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index 4d7ccd12692..cdf41ba909e 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -24,7 +24,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el
index 3e71d437bdd..f0bb049fdbb 100644
--- a/lisp/language/ethiopic.el
+++ b/lisp/language/ethiopic.el
@@ -21,7 +21,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
diff --git a/lisp/language/european.el b/lisp/language/european.el
index 6c0232efd3b..d9ce05c24ae 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -24,7 +24,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/georgian.el b/lisp/language/georgian.el
index 14e35108445..43718092959 100644
--- a/lisp/language/georgian.el
+++ b/lisp/language/georgian.el
@@ -18,7 +18,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 357f0633a69..1a401480642 100644
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -25,7 +25,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/hanja-util.el b/lisp/language/hanja-util.el
index 200ae896b05..6af47982bae 100644
--- a/lisp/language/hanja-util.el
+++ b/lisp/language/hanja-util.el
@@ -18,7 +18,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index 4e33fb63bca..9e049de8b5f 100644
--- a/lisp/language/hebrew.el
+++ b/lisp/language/hebrew.el
@@ -25,7 +25,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/ind-util.el b/lisp/language/ind-util.el
index 930cba1bd91..fc8f4c9d983 100644
--- a/lisp/language/ind-util.el
+++ b/lisp/language/ind-util.el
@@ -18,7 +18,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/indian.el b/lisp/language/indian.el
index c84c8fede6c..0bb123e1899 100644
--- a/lisp/language/indian.el
+++ b/lisp/language/indian.el
@@ -22,7 +22,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
@@ -116,7 +116,7 @@ South Indian Language Telugu is supported in this language environment."))
(sample-text . "Kannada (ಕನ್ನಡ) ನಮಸ್ಕಾರ")
(documentation . "\
Kannada language and script is supported in this language
-environment."))
+environment."))
'("Indian"))
(set-language-info-alist
@@ -140,7 +140,7 @@ South Indian language Malayalam is supported in this language environment."))
(defconst devanagari-composable-pattern
(let ((table
'(("a" . "[\u0900-\u0902]") ; vowel modifier (above)
- ("A" . "\u0903") ; vowel modifier (post)
+ ("A" . "\u0903") ; vowel modifier (post)
("V" . "[\u0904-\u0914\u0960-\u0961\u0972]") ; independent vowel
("C" . "[\u0915-\u0939\u0958-\u095F\u0979-\u097F]") ; consonant
("R" . "\u0930") ; RA
@@ -347,7 +347,7 @@ South Indian language Malayalam is supported in this language environment."))
(let ((table
'(("A" . "[\u0D02-\u0D03]") ; SIGN ANUSVARA .. VISARGA
("V" . "[\u0D05-\u0D14\u0D60-\u0D61]") ; independent vowel
- ("C" . "[\u0D15-\u0D39]") ; consonant
+ ("C" . "[\u0D15-\u0D39]") ; consonant
("Y" . "[\u0D2F-\u0D30\u0D32\u0D35]") ; YA, RA, LA, VA
("v" . "[\u0D3E-\u0D4C\u0D57\u0D62-\u0D63]") ; postbase matra
("H" . "\u0D4D") ; SIGN VIRAMA
diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index 01cdd8bef9e..988b925409e 100644
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -21,7 +21,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el
index 4203c4cc940..57147f62e33 100644
--- a/lisp/language/japanese.el
+++ b/lisp/language/japanese.el
@@ -24,7 +24,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
@@ -185,7 +185,7 @@ eucJP-ms is defined in <http://www.opengroup.or.jp/jvc/cde/appendix.html>."
"Shift_JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS-2004)"
:coding-type 'shift-jis
:mnemonic ?S
- :charset-list '(ascii katakana-jisx0201
+ :charset-list '(ascii katakana-jisx0201
japanese-jisx0213.2004-1 japanese-jisx0213-2))
(define-coding-system-alias 'shift_jis-2004 'japanese-shift-jis-2004)
@@ -197,15 +197,15 @@ eucJP-ms is defined in <http://www.opengroup.or.jp/jvc/cde/appendix.html>."
(tutorial . "TUTORIAL.ja")
(charset japanese-jisx0208
japanese-jisx0212 latin-jisx0201 katakana-jisx0201
- japanese-jisx0213.2004-1 japanese-jisx0213-1
+ japanese-jisx0213.2004-1 japanese-jisx0213-1
japanese-jisx0213-2 japanese-jisx0208-1978)
(coding-system iso-2022-jp japanese-iso-8bit
japanese-shift-jis japanese-iso-7bit-1978-irv
iso-2022-jp-2004 japanese-shift-jis-2004
euc-jis-2004)
(coding-priority iso-2022-jp japanese-iso-8bit
- japanese-shift-jis
- iso-2022-jp-2004 euc-jis-2004
+ japanese-shift-jis
+ iso-2022-jp-2004 euc-jis-2004
japanese-shift-jis-2004
iso-2022-jp-2)
(input-method . "japanese")
diff --git a/lisp/language/khmer.el b/lisp/language/khmer.el
index 8663ff22ca0..4a070321961 100644
--- a/lisp/language/khmer.el
+++ b/lisp/language/khmer.el
@@ -19,7 +19,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Code:
diff --git a/lisp/language/korea-util.el b/lisp/language/korea-util.el
index 12bb1e10bd3..c49e627ea9b 100644
--- a/lisp/language/korea-util.el
+++ b/lisp/language/korea-util.el
@@ -21,7 +21,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index a8a30110c79..52560d6fb4d 100644
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -24,7 +24,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index 28b2043ed51..94504ff9ba6 100644
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -24,7 +24,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/lao.el b/lisp/language/lao.el
index 03519c9beec..266c3c634f7 100644
--- a/lisp/language/lao.el
+++ b/lisp/language/lao.el
@@ -24,7 +24,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index c03fd429fe9..c1aa79cae45 100644
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -20,7 +20,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
@@ -75,12 +75,71 @@ and Italian.")))
(sample-text . "Persian فارسی")
(documentation . "Bidirectional editing is supported.")))
+(defcustom arabic-shaper-ZWNJ-handling nil
+ "How to handle ZWMJ in Arabic text rendering.
+This variable controls the way to handle a glyph for ZWNJ
+returned by the underling shaping engine.
+
+The default value is nil, which means that the ZWNJ glyph is
+displayed as is.
+
+If the value is `absorb', ZWNJ is absorbed into the previous
+grapheme cluster, and not displayed.
+
+If the value is `as-space', the glyph is displayed by a
+thin (i.e. 1-dot width) space."
+ :group 'mule
+ :version "26.1"
+ :type '(choice
+ (const :tag "default" nil)
+ (const :tag "as space" as-space)
+ (const :tag "absorb" absorb))
+ :set (lambda (sym val)
+ (set-default sym val)
+ (clear-composition-cache)))
+
+;; Record error in arabic-change-gstring.
+(defvar arabic-shape-log nil)
+
+(defun arabic-shape-gstring (gstring)
+ (setq gstring (font-shape-gstring gstring))
+ (condition-case err
+ (when arabic-shaper-ZWNJ-handling
+ (let ((font (lgstring-font gstring))
+ (i 1)
+ (len (lgstring-glyph-len gstring))
+ (modified nil))
+ (while (< i len)
+ (let ((glyph (lgstring-glyph gstring i)))
+ (when (eq (lglyph-char glyph) #x200c)
+ (cond
+ ((eq arabic-shaper-ZWNJ-handling 'as-space)
+ (if (> (- (lglyph-rbearing glyph) (lglyph-lbearing glyph)) 0)
+ (let ((space-glyph (aref (font-get-glyphs font 0 1 " ") 0)))
+ (when space-glyph
+ (lglyph-set-code glyph (aref space-glyph 3))
+ (lglyph-set-width glyph (aref space-glyph 4)))))
+ (lglyph-set-adjustment glyph 0 0 1)
+ (setq modified t))
+ ((eq arabic-shaper-ZWNJ-handling 'absorb)
+ (let ((prev (lgstring-glyph gstring (1- i))))
+ (lglyph-set-from-to prev (lglyph-from prev) (lglyph-to glyph))
+ (setq gstring (lgstring-remove-glyph gstring i))
+ (setq len (1- len)))
+ (setq modified t)))))
+ (setq i (1+ i)))
+ (if modified
+ (lgstring-set-id gstring nil))))
+ (error (push err arabic-shape-log)))
+ gstring)
+
(set-char-table-range
composition-function-table
'(#x600 . #x74F)
- (list (vector "[\u0600-\u074F\u200C\u200D]+" 0 'font-shape-gstring)
- (vector "[\u200C\u200D][\u0600-\u074F\u200C\u200D]+"
- 1 'font-shape-gstring)))
+ (list (vector "[\u0600-\u074F\u200C\u200D]+" 0
+ 'arabic-shape-gstring)
+ (vector "[\u200C\u200D][\u0600-\u074F\u200C\u200D]+" 1
+ 'arabic-shape-gstring)))
(provide 'misc-lang)
diff --git a/lisp/language/romanian.el b/lisp/language/romanian.el
index 421ddcdd1ac..00deb698848 100644
--- a/lisp/language/romanian.el
+++ b/lisp/language/romanian.el
@@ -18,7 +18,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/sinhala.el b/lisp/language/sinhala.el
index 037d753f52a..efd8aacc5ac 100644
--- a/lisp/language/sinhala.el
+++ b/lisp/language/sinhala.el
@@ -19,7 +19,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Code:
@@ -30,7 +30,7 @@
(sample-text . "Sinhala (සිංහල) ආයුබෝවන්")
(documentation . t)))
-(set-char-table-range
+(set-char-table-range
composition-function-table
'(#xD80 . #xDFF)
(list (vector
diff --git a/lisp/language/slovak.el b/lisp/language/slovak.el
index 6c729424d2f..9682722e6ee 100644
--- a/lisp/language/slovak.el
+++ b/lisp/language/slovak.el
@@ -20,7 +20,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/tai-viet.el b/lisp/language/tai-viet.el
index f4074ae2714..3c589106254 100644
--- a/lisp/language/tai-viet.el
+++ b/lisp/language/tai-viet.el
@@ -20,7 +20,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index db421ebd5a6..c8c844fbe25 100644
--- a/lisp/language/thai-util.el
+++ b/lisp/language/thai-util.el
@@ -21,7 +21,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/thai-word.el b/lisp/language/thai-word.el
index d3c00f9ac36..e67dd093430 100644
--- a/lisp/language/thai-word.el
+++ b/lisp/language/thai-word.el
@@ -21,7 +21,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;; The used Thai word list has been taken from IBM's ICU4J project
;; (file `thai6.ucs', version 1.4, converted to TIS encoding, with
diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index 4d199842bcd..945ea31c8d7 100644
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -24,7 +24,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index 624da5c6d2c..f3648c9b204 100644
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -23,7 +23,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; History:
;; 1997.03.13 Modification in treatment of text properties;
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index f24e3b373fc..962dd2bee5b 100644
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -26,7 +26,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; History:
diff --git a/lisp/language/tv-util.el b/lisp/language/tv-util.el
index ba1ee668825..a667956a060 100644
--- a/lisp/language/tv-util.el
+++ b/lisp/language/tv-util.el
@@ -19,7 +19,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Code
@@ -72,7 +72,7 @@
(tone-rule '(tr . bl))
(prev-viet nil)
ch info pos components overhang)
- (while (< from to)
+ (while (< from to)
(or ch
(setq ch (char-after from)
info (aref tai-viet-glyph-info ch)))
@@ -138,4 +138,3 @@
;;
(provide 'tai-viet-util)
-
diff --git a/lisp/language/utf-8-lang.el b/lisp/language/utf-8-lang.el
index 40aec43d7eb..4156bf5766b 100644
--- a/lisp/language/utf-8-lang.el
+++ b/lisp/language/utf-8-lang.el
@@ -18,7 +18,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/viet-util.el b/lisp/language/viet-util.el
index ca670d80ff0..f1946f6b69f 100644
--- a/lisp/language/viet-util.el
+++ b/lisp/language/viet-util.el
@@ -24,7 +24,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index cd36580d768..c170216062d 100644
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -24,7 +24,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary: