mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
* lisp/textmodes: Use lexical-binding
* lisp/textmodes/enriched.el: Use lexical-binding. (enriched-mode): Use `delete-dups` to avoid `add-to-list` on a local variable. * lisp/textmodes/makeinfo.el: Use lexical-binding. (makeinfo-region): Remove unused var `filename-or-header`. * lisp/textmodes/refbib.el: Use lexical-binding. (r2b-put-field): Remove unused var `multi-line`. (r2b-barf-output): Remove unused var `match`. * lisp/textmodes/refer.el: Use lexical-binding. (refer-find-entry-internal): Remove unused vars `old-buffer` and `found`. * lisp/textmodes/reftex-auc.el: Use lexical-binding. (LaTeX-add-bibitems): Declare function. (reftex-plug-into-AUCTeX): Use `add-function` and `advice-add` so we can properly unplug. * lisp/textmodes/reftex-cite.el: Use lexical-binding. (reftex-create-bibtex-file): Remove unused var `file`. (reftex--found-list): Declare var. (reftex-offer-bib-menu): Rename local var to `reftex--found-list`. * lisp/textmodes/reftex-dcr.el: Use lexical-binding. (reftex-use-itimer-in-xemacs): Delete XEmacs-only var. (reftex-toggle-auto-view-crossref): Delete XEmacs-only code. (reftex-start-itimer-once): Delete XEmacs-only function. * lisp/textmodes/reftex-global.el: Use lexical-binding. (reftex-isearch-push-state-function): Use a closure instead of `(lambda). * lisp/textmodes/reftex-index.el: Use lexical-binding. (mark-active, transient-mark-mode): Delete var declarations. (reftex-index-mode-map): Remove XEmacs-only code. Use `mapc` so we can use closures instead of hand-built lambdas. (reftex-index-next, reftex-index-previous): Tweak interactive spec to remove unused prefix arg and mark it as a motion command. (reftex-index-phrases-font-lock-keywords) (reftex-index-phrases-font-lock-keywords): Move initialization into declaration. (reftex-index-initialize-phrases-buffer, reftex-index-phrases-mode) reftex-index-phrases-apply-to-region: Remove XEmacs-only code. (TeX-master): Remove redundant declaration. (reftex--chars-first): Rename dynvar from `chars-first`. Adjust all uses. * lisp/textmodes/reftex-parse.el: Use lexical-binding. * lisp/textmodes/reftex-ref.el: Use lexical-binding. (reftex-label): Remove always-nil var `text`. (reftex-refstyle): Declare before first use. (<toplevel>): Use closures rather than `eval` when building commands from `reftex-ref-style-alist`. * lisp/textmodes/reftex-sel.el: Use lexical-binding. (reftex-select-label-mode-map, reftex-select-bib-mode-map): Use `mapc` so we can use closures instead of hand-built lambdas. (reftex-select-label-mode, reftex-select-bib-mode): Remove XEmacs-only code. (reftex-select-data, reftex-select-prompt, reftex-refstyle): Move declaration before first use. (reftex--found-list, reftex--cb-flag, reftex--last-data) (reftex--call-back, reftex--help-string): Move declaration before use, and rename by adding `reftext--` prefix. Adjust all uses in this file. For `reftex--found-list` adjust corresponding uses in `reftex-cite.el`. (reftex-select-item): Explicitly let-bind them. Remove XEmacs-only code. * lisp/textmodes/reftex-toc.el: Use lexical-binding. (reftex-toc-mode-map, reftex-toc-mode, reftex-toc-restore-region) (reftex-toc-next, reftex-toc-previous, reftex-toc-next-heading) (reftex-toc-previous-heading, reftex-toggle-auto-toc-recenter (reftex-make-separate-toc-frame): Remove XEmacs-only code. * lisp/textmodes/reftex-vars.el: Use lexical-binding. * lisp/textmodes/reftex.el: Use lexical-binding. (reftex-mode-map, reftex-mode, reftex-fontify-select-label-buffer) (reftex-verified-face): Remove XEmacs-only code. (reftex-region-active-p, reftex-overlay-put, reftex-move-overlay) (reftex-make-overlay, reftex-get-buffer-visiting, reftex-delete-overlay): Redefine as obsolete aliases. Replace all callers. (current-message): Remove XEmacs-only definition. * lisp/textmodes/remember.el: Use lexical-binding. * lisp/textmodes/table.el (<toplevel>): Use closures rather than `(lambda) to build commands. * lisp/textmodes/texinfmt.el: Use lexical-binding. (texinfo-example-start): Declare var. (texinfo-format-region, texinfo-format-buffer-1): Remove unused var `last-input-buffer`. (texinfo-format-scan): Use `dlet` to bind `whitespace-silent`. (texinfo-optional-braces-discard, texinfo-format-parse-line-args) (texinfo-format-parse-args): Remove unused var `start`. (texinfo-multitable-widths): Remove unused var `start-of-templates`. (texinfo-multitable-item): Strength-reduce `eval` to `symbol-value`. (texinfo-alias): Remove unused vars `start` and `args`. (texinfo-defun-type symbol-property): Change the car to help the type symbol rather than an expression returning it. (texinfo-format-deffn): Remove corresponding `eval`. (texinfo-clear): Remove unused var `value`. (texinfo-format-ifeq): Remove unused var `end`. * lisp/textmodes/texinfo.el: Use lexical-binding. (tex-show-print-queue): Declare function. * lisp/textmodes/texnfo-upd.el: Use lexical-binding. (texinfo-start-menu-description): Remove unused var `end`. (texinfo-insert-node-lines): Remove unused var `beginning-marker`. (texinfo-multiple-files-update): Remove unused vars `next-node-name` and `previous-node-name`. * lisp/textmodes/two-column.el: Use lexical-binding.
This commit is contained in:
parent
c28ba11778
commit
485622bbd1
33 changed files with 805 additions and 900 deletions
|
|
@ -1,4 +1,4 @@
|
|||
;;; two-column.el --- minor mode for editing of two-column text
|
||||
;;; two-column.el --- minor mode for editing of two-column text -*- lexical-binding: t; -*-
|
||||
|
||||
;; Copyright (C) 1992-1995, 2001-2021 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -165,10 +165,10 @@ minus this value."
|
|||
|
||||
(defvar 2C-mode-map
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(define-key map "2" '2C-two-columns)
|
||||
(define-key map [f2] '2C-two-columns)
|
||||
(define-key map "b" '2C-associate-buffer)
|
||||
(define-key map "s" '2C-split)
|
||||
(define-key map "2" #'2C-two-columns)
|
||||
(define-key map [f2] #'2C-two-columns)
|
||||
(define-key map "b" #'2C-associate-buffer)
|
||||
(define-key map "s" #'2C-split)
|
||||
map)
|
||||
"Keymap for commands for setting up two-column mode.")
|
||||
|
||||
|
|
@ -178,19 +178,19 @@ minus this value."
|
|||
;; This one is for historical reasons and simple keyboards, it is not
|
||||
;; at all mnemonic. All usual sequences containing 2 were used, and
|
||||
;; f2 could not be set up in a standard way under Emacs 18.
|
||||
;;;###autoload (global-set-key "\C-x6" '2C-command)
|
||||
;;;###autoload (global-set-key "\C-x6" #'2C-command)
|
||||
|
||||
;;;###autoload (global-set-key [f2] '2C-command)
|
||||
;;;###autoload (global-set-key [f2] #'2C-command)
|
||||
|
||||
(defvar 2C-minor-mode-map
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(define-key map "1" '2C-merge)
|
||||
(define-key map "d" '2C-dissociate)
|
||||
(define-key map "o" '2C-associated-buffer)
|
||||
(define-key map "\^m" '2C-newline)
|
||||
(define-key map "|" '2C-toggle-autoscroll)
|
||||
(define-key map "{" '2C-shrink-window-horizontally)
|
||||
(define-key map "}" '2C-enlarge-window-horizontally)
|
||||
(define-key map "1" #'2C-merge)
|
||||
(define-key map "d" #'2C-dissociate)
|
||||
(define-key map "o" #'2C-associated-buffer)
|
||||
(define-key map "\^m" #'2C-newline)
|
||||
(define-key map "|" #'2C-toggle-autoscroll)
|
||||
(define-key map "{" #'2C-shrink-window-horizontally)
|
||||
(define-key map "}" #'2C-enlarge-window-horizontally)
|
||||
map)
|
||||
"Keymap for commands for use in two-column mode.")
|
||||
|
||||
|
|
@ -275,7 +275,7 @@ some prefix.
|
|||
The appearance of the screen can be customized by the variables
|
||||
`2C-window-width', `2C-beyond-fill-column', `2C-mode-line-format' and
|
||||
`truncate-partial-width-windows'."
|
||||
(add-hook 'post-command-hook '2C-autoscroll nil t)
|
||||
(add-hook 'post-command-hook #'2C-autoscroll nil t)
|
||||
(setq fill-column (- 2C-window-width
|
||||
2C-beyond-fill-column)
|
||||
mode-line-format 2C-mode-line-format
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue