From 59f1e8a02d22c31168986f11debc740272eb459c Mon Sep 17 00:00:00 2001 From: Wolfgang Jenkner Date: Mon, 29 Jun 2015 14:26:29 +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. (Bug#20916) --- 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 11bf96455b7..91b927aad61 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.39.5