[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 2055dc3 023/433: (use-local-map): Conditioned advice defin
From: |
Dmitry Gutov |
Subject: |
[elpa] master 2055dc3 023/433: (use-local-map): Conditioned advice definition on not XEmacs. |
Date: |
Thu, 15 Mar 2018 19:43:28 -0400 (EDT) |
branch: master
commit 2055dc3a59852beccd0a229167445870e78bfc5d
Author: mas <mas>
Commit: mas <mas>
(use-local-map): Conditioned advice definition on not XEmacs.
---
mmm-region.el | 31 ++++++++++++++++++++-----------
1 file changed, 20 insertions(+), 11 deletions(-)
diff --git a/mmm-region.el b/mmm-region.el
index 54f5ae0..cfd59d5 100644
--- a/mmm-region.el
+++ b/mmm-region.el
@@ -3,7 +3,7 @@
;; Copyright (C) 2000 by Michael Abraham Shulman
;; Author: Michael Abraham Shulman <address@hidden>
-;; Version: $Id: mmm-region.el,v 1.5 2000/05/18 18:34:36 mas Exp $
+;; Version: $Id: mmm-region.el,v 1.6 2000/06/08 11:41:30 mas Exp $
;;{{{ GPL
@@ -289,8 +289,15 @@ mode for it to be a submode or a major mode with submodes."
;; I know, but at the moment I don't have time to think of a neater
;; solution.
+;; Actually, `vm-mail' is the only command I know of which does this,
+;; and one could argue that such behavior is noncompliant with Emacs
+;; standards. The advice seems to cause trouble under XEmacs, but I
+;; haven't had any problems with it under Emacs, so until something
+;; goes wrong, I'll leave it in for the latter only.
+
(defvar mmm-local-maps-alist ()
- "Which local maps have been changed in this buffer.")
+ "Which local maps have been changed in this buffer.
+Not used under XEmacs.")
(make-variable-buffer-local 'mmm-local-maps-alist)
;; Save the real function away for our use.
@@ -298,15 +305,17 @@ mode for it to be a submode or a major mode with
submodes."
"Shut up the byte compiler")
(fset 'mmm-real-use-local-map (symbol-function 'use-local-map))
-(defadvice use-local-map (after mmm-keep-record activate compile)
- "Keep track of which local maps have been changed in which buffers."
- (mmm-valid-buffer
- (mmm-update-current-submode)
- (let* ((mode (or mmm-current-submode major-mode))
- (map (assq mode mmm-local-maps-alist)))
- (if map
- (setcdr map (current-local-map))
- (push (cons mode (current-local-map)) mmm-local-maps-alist)))))
+(unless mmm-xemacs
+ (defadvice use-local-map (after mmm-keep-record activate compile)
+ "Keep track of which local maps have been changed in which buffers."
+ (mmm-valid-buffer
+ (mmm-update-current-submode)
+ (let* ((mode (or mmm-current-submode major-mode))
+ (map (assq mode mmm-local-maps-alist)))
+ (if map
+ (setcdr map (current-local-map))
+ (push (cons mode (current-local-map)) mmm-local-maps-alist)))))
+ )
;;}}}
;;{{{ Updating Hooks
- [elpa] master 706c1c3 020/433: Ignored Makefile.in, Makefile, and configure., (continued)
- [elpa] master 706c1c3 020/433: Ignored Makefile.in, Makefile, and configure., Dmitry Gutov, 2018/03/15
- [elpa] master 190ba7f 012/433: Added all the elisp files to EXTRA_DIST, since Automake doesn't see, Dmitry Gutov, 2018/03/15
- [elpa] master 2f740d8 022/433: Added info file and auxiliary compilation and texinfo files., Dmitry Gutov, 2018/03/15
- [elpa] master 821960c 021/433: Added configure auxiliary files., Dmitry Gutov, 2018/03/15
- [elpa] master 455ee7c 006/433: Initial revision, Dmitry Gutov, 2018/03/15
- [elpa] master fa54563 027/433: # Updated., Dmitry Gutov, 2018/03/15
- [elpa] master fd76a7a 024/433: # Per-buffer local variable saving., Dmitry Gutov, 2018/03/15
- [elpa] master e1532c5 025/433: # Updated., Dmitry Gutov, 2018/03/15
- [elpa] master 2cecadb 030/433: Released 0.3.10., Dmitry Gutov, 2018/03/15
- [elpa] master 537d48a 029/433: # Added .tar.gz files., Dmitry Gutov, 2018/03/15
- [elpa] master 2055dc3 023/433: (use-local-map): Conditioned advice definition on not XEmacs.,
Dmitry Gutov <=
- [elpa] master 73a2b86 032/433: # Updated documentation strings., Dmitry Gutov, 2018/03/15
- [elpa] master 04e92ed 034/433: (mmm-save-local-variable): Added comment-line-start-skip for Fortran., Dmitry Gutov, 2018/03/15
- [elpa] master 1d1bd23 038/433: # Changed to use mmm-temp-buffer-name, Dmitry Gutov, 2018/03/15
- [elpa] master 0fbe87a 033/433: Added comment about (require 'mmm-mason)., Dmitry Gutov, 2018/03/15
- [elpa] master 5a34588 028/433: (mmm-overlays-in): Added checks for point-min and point-max for XEmacs., Dmitry Gutov, 2018/03/15
- [elpa] master 54396d3 036/433: Added setting and clearing local variables with mode on and off., Dmitry Gutov, 2018/03/15
- [elpa] master f4f6842 039/433: # Improved local variable setting, added some new ideas., Dmitry Gutov, 2018/03/15
- [elpa] master 988a3db 035/433: (mmm-save-local-variables): Added extra parameters for saving type and, Dmitry Gutov, 2018/03/15
- [elpa] master 3c44251 047/433: # Added comment about loading supplied classes separately., Dmitry Gutov, 2018/03/15
- [elpa] master faaf000 040/433: # Commented on local variable improvements and version numbers., Dmitry Gutov, 2018/03/15