Mercurial > emacs

comparison lisp/textmodes/texinfmt.el @ 105372:bd2966850aac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use `called-interactively-p' instead of `interactive-p'.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 02 Oct 2009 03:48:36 +0000
parents a9dc0e7c3f2b
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
105371:0769a73f1d18 105372:bd2966850aac
36 (interactive "P") 36 (interactive "P")
37 (let ((version-string 37 (let ((version-string
38 (format "Version of \`texinfmt.el\': %s" texinfmt-version))) 38 (format "Version of \`texinfmt.el\': %s" texinfmt-version)))
39 (if here 39 (if here
40 (insert version-string) 40 (insert version-string)
41 (if (interactive-p) 41 (if (called-interactively-p 'interactive)
42 (message "%s" version-string) 42 (message "%s" version-string)
43 version-string)))) 43 version-string))))
44 44
45 45
46 ;;; Variable definitions 46 ;;; Variable definitions
169 (if (> (buffer-size) (+ 50000 Info-split-threshold)) 169 (if (> (buffer-size) (+ 50000 Info-split-threshold))
170 (progn 170 (progn
171 (message (setq lastmessage "Splitting Info file...")) 171 (message (setq lastmessage "Splitting Info file..."))
172 (Info-split)))) 172 (Info-split))))
173 (message (concat lastmessage 173 (message (concat lastmessage
174 (if (interactive-p) "done. Now save it." "done."))))) 174 (if (called-interactively-p 'interactive)
175 "done. Now save it." "done.")))))
175 176
176 (defvar texinfo-region-buffer-name "*Info Region*" 177 (defvar texinfo-region-buffer-name "*Info Region*"
177 "*Name of the temporary buffer used by \\[texinfo-format-region].") 178 "*Name of the temporary buffer used by \\[texinfo-format-region].")
178 179
179 (defvar texinfo-pre-format-hook nil 180 (defvar texinfo-pre-format-hook nil