mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00
Code Issues Projects Releases Wiki Activity

Don’t attempt to modify constant strings

Browse source 
These attempts were found by ‘make compile-always’.
* lisp/language/tibet-util.el (tibetan-obsolete-glyphs):
* lisp/org/org-agenda.el (org-agenda-get-restriction-and-command):
Don’t try to modify string constants.
This commit is contained in:
Paul Eggert 2020-05-17 16:50:49 -07:00
parent abec255c02
commit 00be23c2af
2 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/language/tibet-util.el
View file

@ -43,13 +43,17 @@
("་" . "་")
("༔" . "༔")
;; Yes these are dirty. But ...
("༎ ༎" . ,(compose-string "༎ ༎" 0 3 [?༎ (Br . Bl) ? (Br . Bl) ?༎]))
("༎ ༎" . ,(compose-string (copy-sequence "༎ ༎")
0 3 [?༎ (Br . Bl) ? (Br . Bl) ?༎]))
("༄༅༅" . ,(compose-string
"࿁࿂࿂࿂" 0 4
(copy-sequence "࿁࿂࿂࿂") 0 4
[?࿁ (Br . Bl) ?࿂ (Br . Bl) ?࿂ (Br . Bl) ?࿂]))
("༄༅" . ,(compose-string "࿁࿂࿂" 0 3 [?࿁ (Br . Bl) ?࿂ (Br . Bl) ?࿂]))
("༆" . ,(compose-string "࿁࿂༙" 0 3 [?࿁ (Br . Bl) ?࿂ (br . tr) ?༙]))
("༄" . ,(compose-string "࿁࿂" 0 2 [?࿁ (Br . Bl) ?࿂]))))
("༄༅" . ,(compose-string (copy-sequence "࿁࿂࿂")
0 3 [?࿁ (Br . Bl) ?࿂ (Br . Bl) ?࿂]))
("༆" . ,(compose-string (copy-sequence "࿁࿂༙")
0 3 [?࿁ (Br . Bl) ?࿂ (br . tr) ?༙]))
("༄" . ,(compose-string (copy-sequence "࿁࿂")
0 2 [?࿁ (Br . Bl) ?࿂]))))
;;;###autoload
(defun tibetan-char-p (ch)