From 79fe3205663ffee171b1694a35a8c1a22fceb8f4 Mon Sep 17 00:00:00 2001 From: Noah Friedman Date: Sat, 29 Feb 2020 14:50:51 -0800 Subject: [PATCH] Fix XEmacs-specific clause in definition of pascal-outline-map. * lisp/progmodes/pascal.el (pascal-outline-map): Call set-keymap-name on map, not pascal-outline-map, as the latter is not yet defined. --- lisp/progmodes/pascal.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el index 5036b793c55..536a16dbb3c 100644 --- a/lisp/progmodes/pascal.el +++ b/lisp/progmodes/pascal.el @@ -1392,7 +1392,7 @@ The default is a name found in the buffer around point." (defvar pascal-outline-map (let ((map (make-sparse-keymap))) (if (fboundp 'set-keymap-name) - (set-keymap-name pascal-outline-map 'pascal-outline-map)) + (set-keymap-name map 'pascal-outline-map)) (define-key map "\M-\C-a" 'pascal-outline-prev-defun) (define-key map "\M-\C-e" 'pascal-outline-next-defun) (define-key map "\C-c\C-d" 'pascal-outline-goto-defun) -- 2.39.2