diff options
author | Robin Templeton <[email protected]> | 2014-08-11 06:29:12 -0400 |
---|---|---|
committer | Robin Templeton <[email protected]> | 2015-04-20 00:29:03 -0400 |
commit | a596546c691f256f6176aa0c7a38ebc490ad96a5 (patch) | |
tree | c49888d991826bbaa2400ace3ba8cbbbc4e1fb73 /lisp | |
parent | cf23c10a608840206f1f417155be9d4c76d06734 (diff) |
remove inline bytecode
* lisp/gnus/gnus-sum.el (gnus-thread-head): Remove inline bytecode.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/gnus/gnus-sum.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index c0e099ba3c..28a2aabdd5 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -4946,9 +4946,11 @@ If LINE, insert the rebuilt thread starting on line LINE." Note that THREAD must never, ever be anything else than a variable - using some other form will lead to serious barfage." (or (symbolp thread) (signal 'wrong-type-argument '(symbolp thread))) - ;; (8% speedup to gnus-summary-prepare, just for fun :-) - (list 'byte-code "\10\211:\203\17\0\211@;\203\16\0A@@\207" - (vector thread) 2)) + `(let ((thread ,thread)) + (declare (lexical thread)) + (cond ((atom thread) thread) + ((stringp (car thread)) (cl-caadr thread)) + (t (car thread))))) (defsubst gnus-article-sort-by-number (h1 h2) "Sort articles by article number." |