forked from pool/psgml
decdc687c3
update OBS-URL: https://build.opensuse.org/request/show/265238 OBS-URL: https://build.opensuse.org/package/show/Publishing/psgml?expand=0&rev=13
34 lines
1.1 KiB
Diff
34 lines
1.1 KiB
Diff
--- psgml-maint.el
|
|
+++ psgml-maint.el 2012-07-02 12:28:34.284377856 +0000
|
|
@@ -78,7 +78,7 @@
|
|
(defun psgml-compile-files ()
|
|
"Compile the PSGML source files that needs compilation."
|
|
(interactive)
|
|
- (psgml-find-source-dir (interactive-p))
|
|
+ (psgml-find-source-dir (called-interactively-p))
|
|
(let ((default-directory psgml-source-dir)
|
|
(load-path (cons psgml-source-dir load-path)))
|
|
(mapcar (function psgml-byte-compile-file)
|
|
--- xxml.el
|
|
+++ xxml.el 2012-07-02 12:28:42.168509922 +0000
|
|
@@ -293,7 +293,7 @@ Use nil to silence all progress.")
|
|
(defun xxml-version ()
|
|
"Identifies the current version of this module."
|
|
(interactive)
|
|
- (if (interactive-p)
|
|
+ (if (called-interactively-p)
|
|
(message xxml-version)
|
|
xxml-version))
|
|
|
|
--- xxml/xxml.el
|
|
+++ xxml/xxml.el 2012-07-02 12:28:38.396510520 +0000
|
|
@@ -293,7 +293,7 @@ Use nil to silence all progress.")
|
|
(defun xxml-version ()
|
|
"Identifies the current version of this module."
|
|
(interactive)
|
|
- (if (interactive-p)
|
|
+ (if (called-interactively-p)
|
|
(message xxml-version)
|
|
xxml-version))
|
|
|