aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/forms.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/forms.el')
-rw-r--r--lisp/forms.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/forms.el b/lisp/forms.el
index 9ae824131ec..ef6d9b023b4 100644
--- a/lisp/forms.el
+++ b/lisp/forms.el
@@ -845,7 +845,7 @@ Commands: Equivalent keys in read-only mode:
845(defvar forms--iif-properties nil 845(defvar forms--iif-properties nil
846 "Original properties of the character being overridden.") 846 "Original properties of the character being overridden.")
847 847
848(defun forms--iif-hook (begin end) 848(defun forms--iif-hook (_begin _end)
849 "`insert-in-front-hooks' function for read-only segments." 849 "`insert-in-front-hooks' function for read-only segments."
850 850
851 ;; Note start location. By making it a marker that points one 851 ;; Note start location. By making it a marker that points one
@@ -1197,6 +1197,8 @@ Commands: Equivalent keys in read-only mode:
1197 (setq forms--field nil))) 1197 (setq forms--field nil)))
1198 )) 1198 ))
1199 1199
1200(defvar read-file-filter) ; bound in forms--intuit-from-file
1201
1200(defun forms--intuit-from-file () 1202(defun forms--intuit-from-file ()
1201 "Get number of fields and a default form using the data file." 1203 "Get number of fields and a default form using the data file."
1202 1204
@@ -1919,7 +1921,7 @@ after writing out the data."
1919 (forms-jump-record cur)) 1921 (forms-jump-record cur))
1920 t) 1922 t)
1921 1923
1922(defun forms--revert-buffer (&optional arg noconfirm) 1924(defun forms--revert-buffer (&optional _arg noconfirm)
1923 "Reverts current form to un-modified." 1925 "Reverts current form to un-modified."
1924 (interactive "P") 1926 (interactive "P")
1925 (if (or noconfirm 1927 (if (or noconfirm