mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
And prefer #' to quote function names.
This commit is contained in:
Stefan Monnier 2021-04-06 14:05:58 -04:00
parent 738266240d
commit ccd616aeb0
1 changed files with 19 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

38
lisp/progmodes/ps-mode.el
View file

@ -1,4 +1,4 @@
;;; 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)