Commit ccd616ae authored by Stefan Monnier's avatar Stefan Monnier

* lisp/progmodes/ps-mode.el: Use lexical-binding

And prefer #' to quote function names.
parent 73826624
Pipeline #10168 passed with stages
in 22 minutes and 41 seconds
;;; ps-mode.el --- PostScript mode for GNU Emacs
;;; ps-mode.el --- PostScript mode for GNU Emacs -*- lexical-binding: t; -*-
;; Copyright (C) 1999, 2001-2021 Free Software Foundation, Inc.
......@@ -281,20 +281,20 @@ If nil, use `temporary-file-directory'."
(defvar ps-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "\C-c\C-v" 'ps-run-boundingbox)
(define-key map "\C-c\C-u" 'ps-mode-uncomment-region)
(define-key map "\C-c\C-t" 'ps-mode-epsf-rich)
(define-key map "\C-c\C-s" 'ps-run-start)
(define-key map "\C-c\C-r" 'ps-run-region)
(define-key map "\C-c\C-q" 'ps-run-quit)
(define-key map "\C-c\C-p" 'ps-mode-print-buffer)
(define-key map "\C-c\C-o" 'ps-mode-comment-out-region)
(define-key map "\C-c\C-k" 'ps-run-kill)
(define-key map "\C-c\C-j" 'ps-mode-other-newline)
(define-key map "\C-c\C-l" 'ps-run-clear)
(define-key map "\C-c\C-b" 'ps-run-buffer)
(define-key map "\C-c\C-v" #'ps-run-boundingbox)
(define-key map "\C-c\C-u" #'ps-mode-uncomment-region)
(define-key map "\C-c\C-t" #'ps-mode-epsf-rich)
(define-key map "\C-c\C-s" #'ps-run-start)
(define-key map "\C-c\C-r" #'ps-run-region)
(define-key map "\C-c\C-q" #'ps-run-quit)
(define-key map "\C-c\C-p" #'ps-mode-print-buffer)
(define-key map "\C-c\C-o" #'ps-mode-comment-out-region)
(define-key map "\C-c\C-k" #'ps-run-kill)
(define-key map "\C-c\C-j" #'ps-mode-other-newline)
(define-key map "\C-c\C-l" #'ps-run-clear)
(define-key map "\C-c\C-b" #'ps-run-buffer)
;; FIXME: Add `indent' to backward-delete-char-untabify-method instead?
(define-key map "\177" 'ps-mode-backward-delete-char)
(define-key map "\177" #'ps-mode-backward-delete-char)
map)
"Local keymap to use in PostScript mode.")
......@@ -336,10 +336,10 @@ If nil, use `temporary-file-directory'."
(defvar ps-run-mode-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map comint-mode-map)
(define-key map "\C-c\C-q" 'ps-run-quit)
(define-key map "\C-c\C-k" 'ps-run-kill)
(define-key map "\C-c\C-e" 'ps-run-goto-error)
(define-key map [mouse-2] 'ps-run-mouse-goto-error)
(define-key map "\C-c\C-q" #'ps-run-quit)
(define-key map "\C-c\C-k" #'ps-run-kill)
(define-key map "\C-c\C-e" #'ps-run-goto-error)
(define-key map [mouse-2] #'ps-run-mouse-goto-error)
map)
"Local keymap to use in PostScript run mode.")
......@@ -1092,7 +1092,7 @@ Use line numbers if `ps-run-error-line-numbers' is not nil."
;;
(add-hook 'kill-emacs-hook 'ps-run-cleanup)
(add-hook 'kill-emacs-hook #'ps-run-cleanup)
(provide 'ps-mode)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment