From 3f73b29875dcfcc9b22d8346f8965f3fb31f4fb4 Mon Sep 17 00:00:00 2001 From: Visuwesh Date: Sun, 13 Apr 2025 14:28:09 +0530 Subject: [PATCH] Don't warn about lexbind cookies when loading calc settings * lisp/calc/calc-mode.el (calc-settings-file-name): * lisp/calc/calc.el (calc-mode): Bind 'warning-inhibit-types' to avoid lexbind cookie missing warning. --- lisp/calc/calc-mode.el | 3 ++- lisp/calc/calc.el | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/calc/calc-mode.el b/lisp/calc/calc-mode.el index 6f31d6af040..d68daee1e48 100644 --- a/lisp/calc/calc-mode.el +++ b/lisp/calc/calc-mode.el @@ -326,7 +326,8 @@ (equal user-init-file calc-settings-file) (> arg 0)) (< arg 0) - (load name t) + (let ((warning-inhibit-types '((files missing-lexbind-cookie)))) + (load name t)) (message "New file"))))) (defun math-get-modes-vec () diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 80559c1657c..a7bd671998e 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -1347,7 +1347,8 @@ Notations: 3.14e6 3.14 * 10^6 (equal calc-settings-file user-init-file) (progn (setq calc-loaded-settings-file t) - (load (file-name-sans-extension calc-settings-file) t))) ; t = missing-ok + (let ((warning-inhibit-types '((files missing-lexbind-cookie)))) + (load (file-name-sans-extension calc-settings-file) t)))) ; t = missing-ok (let ((p command-line-args)) (while p (and (equal (car p) "-f")