[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 3ca82c5 02/12: Make lisp/thread.el the new home for
From: |
Gemini Lasswell |
Subject: |
[Emacs-diffs] master 3ca82c5 02/12: Make lisp/thread.el the new home for thread-related Lisp functions |
Date: |
Sun, 9 Sep 2018 11:31:39 -0400 (EDT) |
branch: master
commit 3ca82c59de839f9c10318438ecc87f931b8a0208
Author: Gemini Lasswell <address@hidden>
Commit: Gemini Lasswell <address@hidden>
Make lisp/thread.el the new home for thread-related Lisp functions
* lisp/emacs-lisp/thread-list.el: Remove.
* lisp/emacs-lisp/thread.el: Remove.
* lisp/thread.el: New file.
---
lisp/emacs-lisp/thread.el | 44 ---------------------------
lisp/{emacs-lisp/thread-list.el => thread.el} | 25 ++++++++++++---
2 files changed, 21 insertions(+), 48 deletions(-)
diff --git a/lisp/emacs-lisp/thread.el b/lisp/emacs-lisp/thread.el
deleted file mode 100644
index 5d7b90c..0000000
--- a/lisp/emacs-lisp/thread.el
+++ /dev/null
@@ -1,44 +0,0 @@
-;;; thread.el --- List active threads in a buffer -*- lexical-binding: t -*-
-
-;; Copyright (C) 2018 Free Software Foundation, Inc.
-
-;; Author: Gemini Lasswell <address@hidden>
-;; Maintainer: address@hidden
-;; Keywords: lisp, tools, maint
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;; Code:
-
-;;;###autoload
-(defun thread-handle-event (event)
- "Handle thread events, propagated by `thread-signal'.
-An EVENT has the format
- (thread-event THREAD ERROR-SYMBOL DATA)"
- (interactive "e")
- (if (and (consp event)
- (eq (car event) 'thread-event)
- (= (length event) 4))
- (let ((thread (cadr event))
- (err (cddr event)))
- (message "Error %s: %S" thread err))))
-
-(make-obsolete 'thread-alive-p 'thread-live-p "27.1")
-
-(provide 'thread)
-;;; thread.el ends here
diff --git a/lisp/emacs-lisp/thread-list.el b/lisp/thread.el
similarity index 87%
rename from lisp/emacs-lisp/thread-list.el
rename to lisp/thread.el
index af11777..cb1e772 100644
--- a/lisp/emacs-lisp/thread-list.el
+++ b/lisp/thread.el
@@ -1,10 +1,10 @@
-;;; thread-list.el --- List active threads in a buffer -*- lexical-binding: t
-*-
+;;; thread.el --- Thread support in Emacs Lisp -*- lexical-binding: t -*-
;; Copyright (C) 2018 Free Software Foundation, Inc.
;; Author: Gemini Lasswell <address@hidden>
;; Maintainer: address@hidden
-;; Keywords: lisp, tools, maint
+;; Keywords: thread, tools
;; This file is part of GNU Emacs.
@@ -29,6 +29,23 @@
(require 'pcase)
(require 'subr-x)
+;;;###autoload
+(defun thread-handle-event (event)
+ "Handle thread events, propagated by `thread-signal'.
+An EVENT has the format
+ (thread-event THREAD ERROR-SYMBOL DATA)"
+ (interactive "e")
+ (if (and (consp event)
+ (eq (car event) 'thread-event)
+ (= (length event) 4))
+ (let ((thread (cadr event))
+ (err (cddr event)))
+ (message "Error %s: %S" thread err))))
+
+(make-obsolete 'thread-alive-p 'thread-live-p "27.1")
+
+;;; The thread list buffer and list-threads command
+
(defcustom thread-list-refresh-seconds 0.5
"Seconds between automatic refreshes of the *Threads* buffer."
:group 'thread-list
@@ -124,5 +141,5 @@ Confirm with the user first."
(when (and (threadp thread) (thread-alive-p thread))
(thread-signal thread sgnl nil))))))
-(provide 'thread-list)
-;;; thread-list.el ends here
+(provide 'thread)
+;;; thread.el ends here
- [Emacs-diffs] master a704bad 12/12: Merge branch 'scratch/list-threads', (continued)
- [Emacs-diffs] master a704bad 12/12: Merge branch 'scratch/list-threads', Gemini Lasswell, 2018/09/09
- [Emacs-diffs] master 8adc0e5 10/12: Improve documentation of thread list buffer, Gemini Lasswell, 2018/09/09
- [Emacs-diffs] master b7719f0 11/12: Use thread-live-p instead of obsolete thread-alive-p, Gemini Lasswell, 2018/09/09
- [Emacs-diffs] master e19ca77 07/12: Document list-threads and its buffer, Gemini Lasswell, 2018/09/09
- [Emacs-diffs] master 2f5a65a 09/12: Add tests for list-threads and the *Threads* buffer, Gemini Lasswell, 2018/09/09
- [Emacs-diffs] master 703b1cf 08/12: Add check in list-threads for --without-threads configuration, Gemini Lasswell, 2018/09/09
- [Emacs-diffs] master 3fb8f30 06/12: Show backtraces of threads from thread list buffer, Gemini Lasswell, 2018/09/09
- [Emacs-diffs] master dc5c76c 05/12: Make small fixes to Edebug and debugger documentation, Gemini Lasswell, 2018/09/09
- [Emacs-diffs] master bdba72b 04/12: Make list-threads refresh the *Threads* buffer if it already exists, Gemini Lasswell, 2018/09/09
- [Emacs-diffs] master ea1ec0e 03/12: Improve docstrings of thread-list functions, Gemini Lasswell, 2018/09/09
- [Emacs-diffs] master 3ca82c5 02/12: Make lisp/thread.el the new home for thread-related Lisp functions,
Gemini Lasswell <=