From: Wolfgang Jenkner <wjenkner@inode.at>
Date: Mon, 29 Jun 2015 12:26:29 +0000 (+0200)
Subject: * lisp/calc-store.el (calc-insert-permanent-variable): Heed case.
X-Git-Tag: emacs-25.0.90~1613
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59f1e8a02d22c31168986f11debc740272eb459c;p=emacs.git

* 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)
---

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)