[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 59f1e8a: * lisp/calc-store.el (calc-insert-permanen
From: |
Wolfgang Jenkner |
Subject: |
[Emacs-diffs] master 59f1e8a: * lisp/calc-store.el (calc-insert-permanent-variable): Heed case. |
Date: |
Mon, 29 Jun 2015 12:51:40 +0000 |
branch: master
commit 59f1e8a02d22c31168986f11debc740272eb459c
Author: Wolfgang Jenkner <address@hidden>
Commit: Wolfgang Jenkner <address@hidden>
* 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 files changed, 2 insertions(+), 1 deletions(-)
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 59f1e8a: * lisp/calc-store.el (calc-insert-permanent-variable): Heed case.,
Wolfgang Jenkner <=