* bug#20916: 25.0.50; [PATCH] Calc `s p' glitch
@ 2015-06-28 13:57 Wolfgang Jenkner
2015-06-29 12:54 ` Wolfgang Jenkner
0 siblings, 1 reply; 2+ messages in thread
From: Wolfgang Jenkner @ 2015-06-28 13:57 UTC (permalink / raw)
To: 20916
May I push the following patch?
-- >8 --
From 4c78b6aa26675f980d37fca7c0924f5219a4edb6 Mon Sep 17 00:00:00 2001
From: Wolfgang Jenkner <wjenkner@inode.at>
Date: Sun, 28 Jun 2015 15:46:57 +0200
Subject: [PATCH] * lisp/calc-store.el (calc-insert-permanent-variable): Heed
case.
Otherwise `s p' of f and F will stomp on each other's value.
---
lisp/calc/calc-store.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el
index 11bf964..91b927a 100644
--- a/lisp/calc/calc-store.el
+++ b/lisp/calc/calc-store.el
@@ -609,7 +609,8 @@
(defun calc-insert-permanent-variable (var)
(goto-char (point-min))
- (if (search-forward (concat "(setq " (symbol-name var) " '") nil t)
+ (if (let (case-fold-search)
+ (search-forward (concat "(setq " (symbol-name var) " '") nil t))
(progn
(setq calc-pv-pos (point-marker))
(forward-line -1)
--
2.4.2
^ permalink raw reply related [flat|nested] 2+ messages in thread
end of thread, other threads:[~2015-06-29 12:54 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2015-06-28 13:57 bug#20916: 25.0.50; [PATCH] Calc `s p' glitch Wolfgang Jenkner
2015-06-29 12:54 ` Wolfgang Jenkner
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.