Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/forms.el (forms-mode): Prefer setq-local.

Browse source
This commit is contained in:
Stefan Kangas 2022-11-21 11:30:58 +01:00
parent f7ba92287d
commit 0fa916c7dd
1 changed files with 11 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
lisp/forms.el
View file

@ -487,17 +487,11 @@ Commands: Equivalent keys in read-only mode:
(make-local-variable 'forms-insert-after)
(make-local-variable 'forms-use-text-properties)
;; Filter functions.
(make-local-variable 'forms-read-file-filter)
(make-local-variable 'forms-write-file-filter)
(make-local-variable 'forms-new-record-filter)
(make-local-variable 'forms-modified-record-filter)
;; Make sure no filters exist.
(setq forms-read-file-filter nil)
(setq forms-write-file-filter nil)
(setq forms-new-record-filter nil)
(setq forms-modified-record-filter nil)
;; Make sure no filters exist.
(setq-local forms-read-file-filter nil)
(setq-local forms-write-file-filter nil)
(setq-local forms-new-record-filter nil)
(setq-local forms-modified-record-filter nil)
;; Setup faces to show read-only and read-write fields.
(make-local-variable 'forms-ro-face)
@ -615,10 +609,10 @@ Commands: Equivalent keys in read-only mode:
(make-local-variable 'forms--the-record-list)
(make-local-variable 'forms--search-regexp)
; The keymaps are global, so multiple forms mode buffers can share them.
;(make-local-variable 'forms-mode-map)
;(make-local-variable 'forms-mode-ro-map)
;(make-local-variable 'forms-mode-edit-map)
;; The keymaps are global, so multiple forms mode buffers can share them.
;;(make-local-variable 'forms-mode-map)
;;(make-local-variable 'forms-mode-ro-map)
;;(make-local-variable 'forms-mode-edit-map)
(if forms-mode-map ; already defined
nil
;;(message "forms: building keymap...")
@ -715,8 +709,8 @@ Commands: Equivalent keys in read-only mode:
;;(message "forms: setting up... done.")
;; be helpful
(forms--help)
)
(forms--help))
(defun forms--process-format-list ()
;; Validate `forms-format-list' and set some global variables.