mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/calc-store.el (calc-insert-permanent-variable): Heed case.

Browse source 
Otherwise `s p' of f and F will stomp on each other's value.  (Bug#20916)
This commit is contained in:
Wolfgang Jenkner 2015-06-29 14:26:29 +02:00
parent 23d00d4cdd
commit 59f1e8a02d
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/calc/calc-store.el
View file

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