Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mnt.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 4b7353091b4a
comparison
equal deleted inserted replaced
105371:0769a73f1d18 105372:bd2966850aac
581 (lm-insert-at-column lm-comment-column (or syn "NA") "\n"))))) 581 (lm-insert-at-column lm-comment-column (or syn "NA") "\n")))))
582 (save-excursion 582 (save-excursion
583 (let ((must-kill (and file (not (get-file-buffer file))))) 583 (let ((must-kill (and file (not (get-file-buffer file)))))
584 (when file (find-file file)) 584 (when file (find-file file))
585 (prog1 585 (prog1
586 (if (interactive-p) 586 (if (called-interactively-p 'interactive)
587 (message "%s" (lm-summary)) 587 (message "%s" (lm-summary))
588 (lm-summary)) 588 (lm-summary))
589 (when must-kill (kill-buffer (current-buffer)))))))) 589 (when must-kill (kill-buffer (current-buffer))))))))
590 590
591 (defvar report-emacs-bug-address) 591 (defvar report-emacs-bug-address)