From: Noah Friedman <friedman@splode.com>
Date: Sat, 29 Feb 2020 22:50:51 +0000 (-0800)
Subject: Fix XEmacs-specific clause in definition of pascal-outline-map.
X-Git-Tag: emacs-28.0.90~7819
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=79fe3205663ffee171b1694a35a8c1a22fceb8f4;p=emacs.git

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.
---

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)