From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Steve Wainstead Newsgroups: gmane.emacs.bugs Subject: bug#14719: Full lisp used that causes the crash Date: Wed, 3 Jul 2013 10:54:06 -0700 Message-ID: References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 (Mac OS X Mail 6.5 \(1508\)) Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1372874110 10652 80.91.229.3 (3 Jul 2013 17:55:10 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 3 Jul 2013 17:55:10 +0000 (UTC) To: 14719@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Jul 03 19:55:12 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1UuRGp-00068W-Gw for geb-bug-gnu-emacs@m.gmane.org; Wed, 03 Jul 2013 19:55:11 +0200 Original-Received: from localhost ([::1]:49761 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UuRGp-0002lZ-79 for geb-bug-gnu-emacs@m.gmane.org; Wed, 03 Jul 2013 13:55:11 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41720) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UuRGk-0002f6-7n for bug-gnu-emacs@gnu.org; Wed, 03 Jul 2013 13:55:08 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UuRGh-0002dk-EU for bug-gnu-emacs@gnu.org; Wed, 03 Jul 2013 13:55:06 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:60841) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UuRGh-0002ch-CL for bug-gnu-emacs@gnu.org; Wed, 03 Jul 2013 13:55:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1UuRGg-0007GR-JC for bug-gnu-emacs@gnu.org; Wed, 03 Jul 2013 13:55:02 -0400 X-Loop: help-debbugs@gnu.org In-Reply-To: Resent-From: Steve Wainstead Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 03 Jul 2013 17:55:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 14719 X-GNU-PR-Package: emacs,ns X-GNU-PR-Keywords: moreinfo Original-Received: via spool by 14719-submit@debbugs.gnu.org id=B14719.137287405827748 (code B ref 14719); Wed, 03 Jul 2013 17:55:02 +0000 Original-Received: (at 14719) by debbugs.gnu.org; 3 Jul 2013 17:54:18 +0000 Original-Received: from localhost ([127.0.0.1]:55157 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1UuRFx-0007DP-8G for submit@debbugs.gnu.org; Wed, 03 Jul 2013 13:54:17 -0400 Original-Received: from mail.socialserve.com ([66.129.73.133]:36840) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1UuRFu-0007Cx-Nd for 14719@debbugs.gnu.org; Wed, 03 Jul 2013 13:54:15 -0400 Original-Received: from swain.socialserve.com (swain.socialserve.com [10.0.8.64]) (using TLSv1 with cipher AES128-SHA (128/128 bits)) (No client certificate requested) (Authenticated sender: swain) by mail.socialserve.com (Postfix) with ESMTPSA id 661E42A324 for <14719@debbugs.gnu.org>; Wed, 3 Jul 2013 13:54:08 -0400 (EDT) X-Mailer: Apple Mail (2.1508) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:75860 Archived-At: Reading more of the Lisp code I use when compiling I thought posting all = of it might be more helpful. All of this and more is in a GitHub = repository:=20 https://github.com/wainstead/swainlisp ;; save *compilation* buffer to file ;; git commit it right after (defun sw-write-compilation-buffer() "Hook function to write the *compilation* buffer for each compile." (and (get-buffer "*compilation*") (sw-save-buffer-invisibly = (get-buffer "*compilation*"))) (shell-command "cd ~swain/.emacs.shellbuffers; git commit -m \"saving = last compilation\" ?compilation?") ) ;; every time the "compile" or "recompile" functions are run, write ;; out the *compilation* buffer's contents and commit it. (defadvice compile (before sw-save-last-compilation activate compile) "Every time we compile, save the previous compilation to the ~/.emacs.shellbuffers directory and git commit it." ;; if we are in the frame holding the compilation buffer, don't switch = frames. (and (not(string=3D (buffer-name) "*compilation*")) = (switch-to-buffer-other-frame "*compilation*")) (sw-write-compilation-buffer) (sw-randomize-frame-colors) ) (defadvice recompile (before sw-save-last-compilation activate compile) "Every time we compile, save the previous compilation to the ~/.emacs.shellbuffers directory and git commit it." (and (not(string=3D (buffer-name) "*compilation*")) = (switch-to-buffer-other-frame "*compilation*")) (sw-write-compilation-buffer) (sw-randomize-frame-colors) ) ;; choose random colors every time we compile, just for fun (defun sw-make-random-hex-color-string () "Return a string in the form of #FFFFFF. Choose the number for #xffffff randomly using Emacs Lisp's builtin function (random)." ;; seed our random number generator: current datetime plus Emacs's ;; process ID (random t) (format "#%06x" (random #xffffff)) ) (defun sw-randomize-frame-colors () "Change foreground and background colors of the current frame to random colors." (interactive) (let=20 ( (fg-color (sw-make-random-hex-color-string))=20 (bg-color (sw-make-random-hex-color-string)) (color-distance #x3fffff) ) (set-foreground-color fg-color) (set-background-color bg-color) ) )