diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2013-01-22 09:49:03 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2013-01-22 09:49:03 +0100 |
| commit | 19b50424a7e6801a8f96dbab422f70ade95b5825 (patch) | |
| tree | 5cda7ba9d479036bdf6b3eecef82ac16aa7c067a | |
| parent | 593a5f2efdac581be0964c0eb8583dde2b661173 (diff) | |
| download | emacs-19b50424a7e6801a8f96dbab422f70ade95b5825.tar.gz emacs-19b50424a7e6801a8f96dbab422f70ade95b5825.tar.bz2 emacs-19b50424a7e6801a8f96dbab422f70ade95b5825.zip | |
* tramp-cmds.el (tramp-bug, tramp-append-tramp-buffers): Mark
descriptive parts with `display' property.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/tramp-cmds.el | 8 |
2 files changed, 9 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6121ff190e8..8ab64694aad 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-01-22 Michael Albinus <michael.albinus@gmx.de> + + * net/tramp-cmds.el (tramp-bug, tramp-append-tramp-buffers): Mark + descriptive parts with `display' property. + 2013-01-21 Agustín Martín Domingo <agustin.martin@hispalinux.es> * textmodes/ispell.el (ispell-hunspell-dictionary-equivs-alist): diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el index 58469b22447..462f0d88367 100644 --- a/lisp/net/tramp-cmds.el +++ b/lisp/net/tramp-cmds.el @@ -186,7 +186,7 @@ This includes password cache, file cache, connection cache, buffers." 'tramp-load-report-modules ; pre-hook 'tramp-append-tramp-buffers ; post-hook - "\ + (propertize "\n" 'display "\ Enter your bug report in this message, including as much detail as you possibly can about the problem, what you did to cause it and what the local and remote machines are. @@ -209,7 +209,7 @@ contents of the *tramp/foo* buffer and the *debug tramp/foo* buffer in your bug report. --bug report follows this line-- -")))) +"))))) (defun tramp-reporter-dump-variable (varsym mailbuf) "Pretty-print the value of the variable in symbol VARSYM." @@ -348,10 +348,10 @@ the debug buffer(s).") (kill-buffer nil) (switch-to-buffer curbuf) (goto-char (point-max)) - (insert "\n\ + (insert (propertize "\n" 'display "\n\ This is a special notion of the `gnus/message' package. If you use another mail agent (by copying the contents of this buffer) -please ensure that the buffers are attached to your email.\n\n") +please ensure that the buffers are attached to your email.\n\n")) (dolist (buffer buffer-list) (tramp-compat-funcall 'mml-insert-empty-tag 'part 'type "text/plain" |