;;; mh-acros.el --- macros used in MH-E
-;; Copyright (C) 2004, 2006-2011 Free Software Foundation, Inc.
+;; Copyright (C) 2004, 2006-2014 Free Software Foundation, Inc.
;; Author: Satyaki Das <satyaki@theforce.stanford.edu>
;; Maintainer: Bill Wohler <wohler@newt.com>
(boundp 'mark-active) mark-active))))
;; Shush compiler.
-(defvar struct) ; XEmacs
-(defvar x) ; XEmacs
-(defvar y) ; XEmacs
+(mh-do-in-xemacs
+ (defvar struct)
+ (defvar x)
+ (defvar y))
;;;###mh-autoload
(defmacro mh-defstruct (name-spec &rest fields)
(,original-window (selected-window))
(,original-position (progn
(set-buffer (window-buffer ,event-window))
- (set-marker (make-marker) (point))))
+ (point-marker)))
(,modified-flag (buffer-modified-p))
(buffer-read-only nil))
(unwind-protect (progn