; Fix compilation warning in string-edit.el

* lisp/textmodes/string-edit.el (string-edit): Avoid shadowing the
global 'major-mode'.

(cherry picked from commit 191b4cd9a76aa31ff9711370842394f37955c06a)

diff --git a/lisp/textmodes/string-edit.el b/lisp/textmodes/string-edit.el
index c8fdffe5f4c06ae167616c8e81653ad7286d35e5..dda70437f78b532cf28bd0119d7c10ea7692dd88 100644 (file)
--- a/lisp/textmodes/string-edit.el
+++ b/lisp/textmodes/string-edit.el
@@ -37,10 +37,10 @@
 
 ;;;###autoload
 (cl-defun string-edit (prompt string success-callback
-                              &key abort-callback major-mode read)
+                              &key abort-callback major-mode-sym read)
   "Switch to a new buffer to edit STRING.
 
-Call MAJOR-MODE (defaulting to `string-edit-mode') to set up the new
+Call MAJOR-MODE-SYM (defaulting to `string-edit-mode') to set up the new
 buffer, and insert PROMPT (defaulting to nothing) at the start of the
 buffer.
 
@@ -79,7 +79,7 @@ Also see `read-string-from-buffer'."
 
     (set-buffer-modified-p nil)
     (setq buffer-undo-list nil)
-    (funcall (or major-mode #'string-edit-mode))
+    (funcall (or major-mode-sym #'string-edit-mode))
     (string-edit-minor-mode)
     (setq-local string-edit--success-callback success-callback)
     (setq-local string-edit--abort-callback abort-callback)