|--==> "SY" == Steve Youngs <youngs(a)xemacs.org&gt; writes: |--==> "APA" == Adrian Aichner <Adrian.Aichner(a)t-online.de&gt; writes: APA> Hello Steve, APA> this seems to be a good thing to include in report-xemacs-bug, don't APA> you think? SY> Yes I do. Good idea, Adrian. I'll put it in. I've come across a problem. I'm using: ,---- | (insert "\n\nLoad-Path Lisp Shadows:\n" | "----------------------\n") | (let ((before-shadows (point))) | (insert | (format "%s" | (find-emacs-lisp-shadows load-path))) | (save-restriction | (narrow-to-region before-shadows (point)) | (fill-paragraph t) | (insert "\n"))) `---- How do I prevent 'find-emacs-lisp-shadows' from polluting the message-log? Because it kinda defeats the purpose of: ,---- | (insert "\n\n\nRecent messages (most recent first):\n" | "-----------------------------------\n") | (let ((standard-output (current-buffer))) | (print-recent-messages 20) | (insert "\n")) `---- Anybody got any ideas? SY> [...] APA> This teaches us (regulars) to tell people to use M-x APA> list-load-path-shadows RET more often... -- |---<Steve Youngs>---------------<GnuPG KeyID: 9E7E2820>---| | XEmacs - It's not just an editor. | | It's a way of life. | |------------------------------------&lt;youngs(a)xemacs.org&gt;---|

Hi Steve, following seems to work fine for me (your code wrapped in flet for `append-message' and `clear-message'): Perhaps it's only one or the other that's required. I ripped the flet right out of my xemacsweb/batch-psgml-validate.el To be honest, this solution is not my own invention. It was recommended to me by another review board member. (flet ((append-message (&rest args) ()) (clear-message (&optional label frame stdout-p no-restore) ())) (insert "\n\nLoad-Path Lisp Shadows:\n" "----------------------\n") (let ((before-shadows (point))) (insert (format "%s" (find-emacs-lisp-shadows load-path))) (save-restriction (narrow-to-region before-shadows (point)) (fill-paragraph t) (insert "\n")))) BTW: ;;; Code:  (defun find-emacs-lisp-shadows (&optional path) in shadow.el does not have an autoload cookie. Does it deserve one? Above code currently needs a (require 'shadow) to work. Best regards, Adrian SY> |--==> "SY" == Steve Youngs <youngs(a)xemacs.org&gt; writes: SY> |--==> "APA" == Adrian Aichner <Adrian.Aichner(a)t-online.de&gt; writes: APA> Hello Steve, APA> this seems to be a good thing to include in report-xemacs-bug, don't APA> you think? SY> Yes I do. Good idea, Adrian. I'll put it in. SY> I've come across a problem. I'm using: SY> ,---- SY> | (insert "\n\nLoad-Path Lisp Shadows:\n" SY> | "----------------------\n") SY> | (let ((before-shadows (point))) SY> | (insert SY> | (format "%s" SY> | (find-emacs-lisp-shadows load-path))) SY> | (save-restriction SY> | (narrow-to-region before-shadows (point)) SY> | (fill-paragraph t) SY> | (insert "\n"))) SY> `---- SY> How do I prevent 'find-emacs-lisp-shadows' from polluting the SY> message-log? Because it kinda defeats the purpose of: SY> ,---- SY> | (insert "\n\n\nRecent messages (most recent first):\n" SY> | "-----------------------------------\n") SY> | (let ((standard-output (current-buffer))) SY> | (print-recent-messages 20) SY> | (insert "\n")) SY> `---- SY> Anybody got any ideas? SY> [...] APA> This teaches us (regulars) to tell people to use M-x APA> list-load-path-shadows RET more often... SY> -- SY> |---<Steve Youngs>---------------<GnuPG KeyID: 9E7E2820>---| SY> | XEmacs - It's not just an editor. | SY> | It's a way of life. | SY> |------------------------------------&lt;youngs(a)xemacs.org&gt;---| -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/