diff options
Diffstat (limited to 'lisp/forms.el')
| -rw-r--r-- | lisp/forms.el | 6 |
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 |