From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: Re: Is there a way to get the last message? Date: Mon, 29 May 2017 00:11:51 +0200 Message-ID: References: <87r2z92r2z.fsf@jane> <87lgphp6ug.fsf@rosalinde> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1496009560 1707 195.159.176.226 (28 May 2017 22:12:40 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sun, 28 May 2017 22:12:40 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon May 29 00:12:36 2017 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dF6QN-0000Jt-Oh for geh-help-gnu-emacs@m.gmane.org; Mon, 29 May 2017 00:12:35 +0200 Original-Received: from localhost ([::1]:45462 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dF6QT-0007Li-0v for geh-help-gnu-emacs@m.gmane.org; Sun, 28 May 2017 18:12:41 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41955) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dF6Pt-0007Lc-5y for help-gnu-emacs@gnu.org; Sun, 28 May 2017 18:12:06 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dF6Po-00088r-91 for help-gnu-emacs@gnu.org; Sun, 28 May 2017 18:12:05 -0400 Original-Received: from [195.159.176.226] (port=57984 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dF6Po-00088a-2R for help-gnu-emacs@gnu.org; Sun, 28 May 2017 18:12:00 -0400 Original-Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1dF6Pf-0007p7-T3 for help-gnu-emacs@gnu.org; Mon, 29 May 2017 00:11:51 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: help-gnu-emacs@gnu.org Original-Lines: 43 Original-X-Complaints-To: usenet@blaine.gmane.org Mail-Copies-To: never Cancel-Lock: sha1:CQF9tch0+S/dhiIt6Btkedlcpno= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-Received-From: 195.159.176.226 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.org gmane.emacs.help:113233 Archived-At: Stephen Berman wrote: > What about this: > > (defun get-last-message () "Try to get the last > message." (interactive) (with-current-buffer > "*Messages*" (goto-char (point-max)) > (forward-line -1) (clipboard-kill-ring-save > (line-beginning-position) > (line-end-position)))) > > (add-hook 'post-command-hook > 'get-last-message) Oh, no! So there were this suggestion already! Well, hell, anyway I also attempted it: (defun get-last-message () (interactive) (let ((message-buffer (get-buffer "*Messages*"))) (when message-buffer (with-temp-buffer (insert-buffer-substring message-buffer) (goto-char (point-max)) (forward-line -1) (let ((start (point-at-bol)) (end (point-at-eol)) ) (buffer-substring start end) ))))) ;; test: ;; ;; (message "I was afraid you'd be trapped outside the city.") ;; (message "Hey, I wasn't worried for a microsecond!") ;; (message "Then you probably didn't understand the situation.") ;; ;; (get-last-message) -- underground experts united http://user.it.uu.se/~embe8573