HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
lisp/*.el: Lexical-binding cleanup.
[bpt/emacs.git]
/
lisp
/
forms.el
diff --git
a/lisp/forms.el
b/lisp/forms.el
index
9ae8241
..
ef6d9b0
100644
(file)
--- a/
lisp/forms.el
+++ b/
lisp/forms.el
@@
-845,7
+845,7
@@
Commands: Equivalent keys in read-only mode:
(defvar forms--iif-properties nil
"Original properties of the character being overridden.")
(defvar forms--iif-properties nil
"Original properties of the character being overridden.")
-(defun forms--iif-hook (
begin
end)
+(defun forms--iif-hook (
_begin _
end)
"`insert-in-front-hooks' function for read-only segments."
;; Note start location. By making it a marker that points one
"`insert-in-front-hooks' function for read-only segments."
;; Note start location. By making it a marker that points one
@@
-1197,6
+1197,8
@@
Commands: Equivalent keys in read-only mode:
(setq forms--field nil)))
))
\f
(setq forms--field nil)))
))
\f
+(defvar read-file-filter) ; bound in forms--intuit-from-file
+
(defun forms--intuit-from-file ()
"Get number of fields and a default form using the data file."
(defun forms--intuit-from-file ()
"Get number of fields and a default form using the data file."
@@
-1919,7
+1921,7
@@
after writing out the data."
(forms-jump-record cur))
t)
(forms-jump-record cur))
t)
-(defun forms--revert-buffer (&optional arg noconfirm)
+(defun forms--revert-buffer (&optional
_
arg noconfirm)
"Reverts current form to un-modified."
(interactive "P")
(if (or noconfirm
"Reverts current form to un-modified."
(interactive "P")
(if (or noconfirm