From ef7f191afabd011e55eb07ee5da9d58086c9e291 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 24 Feb 2004 09:14:32 +0000 Subject: [PATCH] Synch to No Gnus 200402240913. --- lisp/ChangeLog | 2 ++ lisp/dgnushack.el | 21 +++++++++++++++++++++ 2 files changed, 23 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 29b96d7..4eceb64 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2004-02-24 Katsumi Yamaoka + * dgnushack.el (with-syntax-table): Redefine it for XEmacs 21.5. + * message.el (message-setup-fill-variables): Add mml tags to paragraph-start and paragraph-separate. Suggested by Andrew Korty . diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index 7b530a5..0b09ff6 100644 --- a/lisp/dgnushack.el +++ b/lisp/dgnushack.el @@ -245,6 +245,27 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again. load-path))) (add-path "semi") +(when (and (featurep 'xemacs) + (let ((table (copy-syntax-table emacs-lisp-mode-syntax-table))) + (modify-syntax-entry ?= " " table) + (with-temp-buffer + (with-syntax-table table + (insert "foo=bar") + (goto-char (point-min)) + (forward-sexp 1) + (eolp))))) + ;; The original `with-syntax-table' uses `copy-syntax-table' which + ;; doesn't seem to copy modified syntax entries in XEmacs 21.5. + (defmacro with-syntax-table (syntab &rest body) + "Evaluate BODY with the SYNTAB as the current syntax table." + `(let ((stab (syntax-table))) + (unwind-protect + (progn + ;;(set-syntax-table (copy-syntax-table ,syntab)) + (set-syntax-table ,syntab) + ,@body) + (set-syntax-table stab))))) + (push srcdir load-path) (load (expand-file-name "lpath.el" srcdir) nil t t) -- 1.7.10.4