XSLT-process 2.0; XSLT menu shows debug mode on startup.

[Eugene G. <eug...@em...>]

Ovidiu,

When I initially load my XML file so that xslt-process gets invoked,
XSLT menu looks like debug mode is ON, and the read-only mode is on
for the buffer, however the xslt-process-debug-mode variable is nil.

Being far from a lisp guru, I just moved the
'(xslt-process-toggle-debug-mode 0)' call right after
the if statement in xslt-process.el; that fixed the problem.

  (interactive "P")
  (setq xslt-process-mode
	(if (null arg)
	    (not xslt-process-mode)
	  (> (prefix-numeric-value arg) 0)))
  (if xslt-process-mode
      (xslt-process-toggle-debug-mode 0)
      ----------------------------------
    (progn
      (easy-menu-add xslt-process-menu)
      (xslt-process-setup-minor-mode xslt-process-mode-map
                                     xslt-process-mode-line-string)
      )
    (setq minor-mode-alist (remassoc 'xslt-process-mode minor-mode-alist))
    (setq minor-mode-map-alist
	  (remassoc 'xslt-process-mode minor-mode-map-alist))
    (easy-menu-remove '("XSLT")))
  ;; Force modeline to redisplay
  (force-mode-line-update))

---------
Eugene

PS: I'm an old NeXT veteran, too ;)


Emacs  : GNU Emacs 20.7.1 (i386-*-nt4.0.1381)
 of Tue Jun 13 2000 on buffy
Package: XSLT-process 2.0

current state:
==============
(setq
 xslt-process-breakpoints (hash table, 0 entries:)
 xslt-process-comint-process #<process xslt>
 xslt-process-comint-buffer #<buffer *xslt*>
 xslt-process-selected-position [nil nil nil nil nil nil]
 xslt-process-debugger-process-started t
 xslt-process-process-state 'not-running
 xslt-process-debugger-running nil
 xslt-process-source-frames-stack nil
 xslt-process-style-frames-stack nil
 xslt-process-local-variables nil
 xslt-process-global-variables nil
xslt-process-breakpoint-extents (hash table, 0 entries:)
xslt-process-execution-context-error-function nil
xslt-process-results-process #<process xslt results>
xslt-process-current-processor "Saxon"
xslt-process-default-processor '(Saxon)
xslt-process-external-java-libraries '("d:/usr/site-lisp/xslt-process-2.0/java\\bsf.jar" "d:/usr/site-lisp/xslt-process-2.0/java\\xerces.jar" "d:/usr/site-lisp/xslt-process-2.0/java\\xalan-2.1.0.jar" "d:/usr/site-lisp/xslt-process-2.0/java\\saxon-6.3.jar" "d:/usr/site-lisp/xslt-process-2.0/java\\xalanj1compat.jar" "d:/usr/site-lisp/xslt-process-2.0/java\\xslt.jar")
xslt-process-error-messages nil
xslt-process-registered-stylesheets '("d:/usr/dtd/docbook-xsl/html/docbook.xsl")
xslt-process-xml-xslt-associations '(("d:/home/evg/projects/evg/tech-doc/tsd/tsd.xml" . "d:/usr/dtd/docbook-xsl/html/docbook.xsl")
                                     ("d:/home/evg/projects/evg/tech-doc/tsd/test.xml" . "d:/usr/dtd/docbook-xsl/html/docbook.xsl")
                                     )
)