From 00be23c2af4aa1bb09afc6404c5ef68997dc18f5 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 17 May 2020 16:50:49 -0700 Subject: =?UTF-8?q?Don=E2=80=99t=20attempt=20to=20modify=20constant=20stri?= =?UTF-8?q?ngs?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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. --- lisp/org/org-agenda.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/org') diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index 5fe140d00ef..689d134627e 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el @@ -2995,7 +2995,8 @@ Agenda views are separated by `org-agenda-block-separator'." (erase-buffer) (insert (eval-when-compile (let ((header - "Press key for an agenda command: + (copy-sequence + "Press key for an agenda command: -------------------------------- < Buffer, subtree/region restriction a Agenda for current week or day > Remove restriction t List of all TODO entries e Export agenda views @@ -3004,7 +3005,7 @@ s Search for keywords M Like m, but only TODO entries / Multi-occur S Like s, but only TODO entries ? Find :FLAGGED: entries C Configure custom agenda commands * Toggle sticky agenda views # List stuck projects (!=configure) -") +")) (start 0)) (while (string-match "\\(^\\| \\|(\\)\\(\\S-\\)\\( \\|=\\)" -- cgit v1.2.1