[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el

[Richard M. Stallman]

Index: emacs/lisp/emacs-lisp/easy-mmode.el
diff -c emacs/lisp/emacs-lisp/easy-mmode.el:1.38 
emacs/lisp/emacs-lisp/easy-mmode.el:1.39
*** emacs/lisp/emacs-lisp/easy-mmode.el:1.38    Mon Mar  4 17:26:57 2002
--- emacs/lisp/emacs-lisp/easy-mmode.el Mon Aug 12 21:49:13 2002
***************
*** 290,300 ****
           (let ((buf (pop ,buffers)))
             (when (buffer-live-p buf)
               (with-current-buffer buf (,turn-on))))))
  
         ;; The function that catches kill-all-local-variables.
         (defun ,cmmh ()
         (add-to-list ',buffers (current-buffer))
!        (add-hook 'post-command-hook ',buffers)))))
  
  ;;;
  ;;; easy-mmode-defmap
--- 290,302 ----
           (let ((buf (pop ,buffers)))
             (when (buffer-live-p buf)
               (with-current-buffer buf (,turn-on))))))
+        (put ',buffers 'definition-name ',global-mode)
  
         ;; The function that catches kill-all-local-variables.
         (defun ,cmmh ()
         (add-to-list ',buffers (current-buffer))
!        (add-hook 'post-command-hook ',buffers))
!        (put ',cmmh 'definition-name ',global-mode))))
  
  ;;;
  ;;; easy-mmode-defmap