[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 79fe320: Fix XEmacs-specific clause in definition of pascal-outli
From: |
Noah Friedman |
Subject: |
master 79fe320: Fix XEmacs-specific clause in definition of pascal-outline-map. |
Date: |
Sat, 29 Feb 2020 17:51:02 -0500 (EST) |
branch: master
commit 79fe3205663ffee171b1694a35a8c1a22fceb8f4
Author: Noah Friedman <address@hidden>
Commit: Noah Friedman <address@hidden>
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 5036b79..536a16d 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 79fe320: Fix XEmacs-specific clause in definition of pascal-outline-map.,
Noah Friedman <=