diff options
author | Stefan Kangas <stefan@marxist.se> | 2020-10-20 20:14:24 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2020-10-20 20:32:19 +0200 |
commit | 39bf2160f3bb69c181f2ffcd54b7316fb0bf3145 (patch) | |
tree | e192f7bacd763c3ccc26d85f6edf6596c551dfda /lisp/progmodes/m4-mode.el | |
parent | 6c58d900427e8195c5cfc37e7422bdb0bc73c047 (diff) | |
download | emacs-39bf2160f3bb69c181f2ffcd54b7316fb0bf3145.tar.gz |
Use lexical-binding in m4-mode.el
* lisp/progmodes/m4-mode.el: Use lexical-binding. Remove redundant
:group args.
* lisp/progmodes/m4-mode.el (m4-m4-buffer, m4-m4-region): Quote
function symbols as such.
Diffstat (limited to 'lisp/progmodes/m4-mode.el')
-rw-r--r-- | lisp/progmodes/m4-mode.el | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/lisp/progmodes/m4-mode.el b/lisp/progmodes/m4-mode.el index 95fead9b374..ec0f425de92 100644 --- a/lisp/progmodes/m4-mode.el +++ b/lisp/progmodes/m4-mode.el @@ -1,4 +1,4 @@ -;;; m4-mode.el --- m4 code editing commands for Emacs +;;; m4-mode.el --- m4 code editing commands for Emacs -*- lexical-binding:t -*- ;; Copyright (C) 1996-1997, 2001-2020 Free Software Foundation, Inc. @@ -48,14 +48,12 @@ "File name of the m4 executable. If m4 is not in your PATH, set this to an absolute file name." :version "24.4" - :type 'file - :group 'm4) + :type 'file) ;;options to m4 (defcustom m4-program-options nil "Options to pass to `m4-program'." - :type '(repeat string) - :group 'm4) + :type '(repeat string)) ;;to use --prefix-builtins, you can use ;;(defconst m4-program-options '("-P")) @@ -72,8 +70,7 @@ If m4 is not in your PATH, set this to an absolute file name." (defcustom m4-mode-hook nil "Hook called by `m4-mode'." - :type 'hook - :group 'm4) + :type 'hook) ;;this may still need some work (defvar m4-mode-syntax-table @@ -125,7 +122,7 @@ If m4 is not in your PATH, set this to an absolute file name." (interactive) (shell-command-on-region (point-min) (point-max) - (mapconcat 'identity (cons m4-program m4-program-options) "\s") + (mapconcat #'identity (cons m4-program m4-program-options) "\s") "*m4-output*" nil) (switch-to-buffer-other-window "*m4-output*")) @@ -134,7 +131,7 @@ If m4 is not in your PATH, set this to an absolute file name." (interactive) (shell-command-on-region (point) (mark) - (mapconcat 'identity (cons m4-program m4-program-options) "\s") + (mapconcat #'identity (cons m4-program m4-program-options) "\s") "*m4-output*" nil) (switch-to-buffer-other-window "*m4-output*")) |