diff options
| author | Michael Albinus | 2020-01-09 13:40:14 +0100 |
|---|---|---|
| committer | Michael Albinus | 2020-01-09 13:40:14 +0100 |
| commit | 70873074a15edbc64993f68d7cc50d2f46cc796b (patch) | |
| tree | 05e1c398dfe9e55a42a3a667b4702aceec052ef2 | |
| parent | 91e239a954283a372e48c81250936efe7d9591e5 (diff) | |
| download | emacs-70873074a15edbc64993f68d7cc50d2f46cc796b.tar.gz emacs-70873074a15edbc64993f68d7cc50d2f46cc796b.zip | |
Remove obsolete thread-alive-p
* etc/NEWS (thread-alive-p):
* lisp/thread.el (thread-alive-p):
* src/thread.c (thread-alive-p): Remove.
| -rw-r--r-- | etc/NEWS | 6 | ||||
| -rw-r--r-- | lisp/thread.el | 2 | ||||
| -rw-r--r-- | src/thread.c | 3 |
3 files changed, 4 insertions, 7 deletions
| @@ -44,10 +44,12 @@ applies, and please also update docstrings as needed. | |||
| 44 | 44 | ||
| 45 | ** 'equal' no longer examines some contents of window configurations. | 45 | ** 'equal' no longer examines some contents of window configurations. |
| 46 | Instead, it considers window configurations to be equal only if they | 46 | Instead, it considers window configurations to be equal only if they |
| 47 | are eq. To compare contents, use compare-window-configurations | 47 | are 'eq'. To compare contents, use 'compare-window-configurations' |
| 48 | instead. This change helps fix a bug in sxhash-equal, which returned | 48 | instead. This change helps fix a bug in 'sxhash-equal', which returned |
| 49 | incorrect hashes for window configurations and some other objects. | 49 | incorrect hashes for window configurations and some other objects. |
| 50 | 50 | ||
| 51 | ** The obsolete function 'thread-alive-p' has been removed. | ||
| 52 | |||
| 51 | 53 | ||
| 52 | * Lisp Changes in Emacs 28.1 | 54 | * Lisp Changes in Emacs 28.1 |
| 53 | 55 | ||
diff --git a/lisp/thread.el b/lisp/thread.el index d40d7bed538..00a0084f81f 100644 --- a/lisp/thread.el +++ b/lisp/thread.el | |||
| @@ -43,8 +43,6 @@ An EVENT has the format | |||
| 43 | (err (cddr event))) | 43 | (err (cddr event))) |
| 44 | (message "Error %s: %S" thread err)))) | 44 | (message "Error %s: %S" thread err)))) |
| 45 | 45 | ||
| 46 | (make-obsolete 'thread-alive-p 'thread-live-p "27.1") | ||
| 47 | |||
| 48 | ;;; The thread list buffer and list-threads command | 46 | ;;; The thread list buffer and list-threads command |
| 49 | 47 | ||
| 50 | (defcustom thread-list-refresh-seconds 0.5 | 48 | (defcustom thread-list-refresh-seconds 0.5 |
diff --git a/src/thread.c b/src/thread.c index c7fe0614269..df1a7053826 100644 --- a/src/thread.c +++ b/src/thread.c | |||
| @@ -1114,9 +1114,6 @@ syms_of_threads (void) | |||
| 1114 | staticpro (&last_thread_error); | 1114 | staticpro (&last_thread_error); |
| 1115 | last_thread_error = Qnil; | 1115 | last_thread_error = Qnil; |
| 1116 | 1116 | ||
| 1117 | Fdefalias (intern_c_string ("thread-alive-p"), | ||
| 1118 | intern_c_string ("thread-live-p"), Qnil); | ||
| 1119 | |||
| 1120 | Fprovide (intern_c_string ("threads"), Qnil); | 1117 | Fprovide (intern_c_string ("threads"), Qnil); |
| 1121 | } | 1118 | } |
| 1122 | 1119 | ||