[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 30c955b: Use cl-print in timer list
From: |
Mark Oteiza |
Subject: |
[Emacs-diffs] master 30c955b: Use cl-print in timer list |
Date: |
Fri, 15 Sep 2017 23:19:02 -0400 (EDT) |
branch: master
commit 30c955b1725258546c6152a6dda8f634867a6319
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>
Use cl-print in timer list
* lisp/emacs-lisp/timer-list.el (timer-list): Use cl-print
for handling functions.
(timer-list-mode): Capitalize major mode name. Set bidi direction
as in tabulated-list-mode.
---
lisp/emacs-lisp/timer-list.el | 20 ++++++--------------
1 file changed, 6 insertions(+), 14 deletions(-)
diff --git a/lisp/emacs-lisp/timer-list.el b/lisp/emacs-lisp/timer-list.el
index 5d00fb2..44a315f 100644
--- a/lisp/emacs-lisp/timer-list.el
+++ b/lisp/emacs-lisp/timer-list.el
@@ -35,9 +35,7 @@
(dolist (timer (append timer-list timer-idle-list))
(insert (format "%4s %10s %8s %s"
;; Idle.
- (if (aref timer 7)
- "*"
- " ")
+ (if (aref timer 7) "*" " ")
;; Next time.
(let ((time (float-time (list (aref timer 1)
(aref timer 2)
@@ -59,16 +57,9 @@
(t
(format "%s" repeat))))
;; Function.
- (let ((function (aref timer 5)))
- (replace-regexp-in-string
- "\n" " "
- (cond
- ((byte-code-function-p function)
- (replace-regexp-in-string
- "[^-A-Za-z0-9 ]" ""
- (format "%s" function)))
- (t
- (format "%s" function)))))))
+ (let ((cl-print-compiled 'static)
+ (cl-print-compiled-button nil))
+ (cl-prin1-to-string (aref timer 5)))))
(put-text-property (line-beginning-position)
(1+ (line-beginning-position))
'timer timer)
@@ -88,8 +79,9 @@
["Cancel" timer-list-cancel t]))
map))
-(define-derived-mode timer-list-mode special-mode "timer-list"
+(define-derived-mode timer-list-mode special-mode "Timer-List"
"Mode for listing and controlling timers."
+ (setq bidi-paragraph-direction 'left-to-right)
(setq truncate-lines t)
(buffer-disable-undo)
(setq-local revert-buffer-function 'timer-list)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 30c955b: Use cl-print in timer list,
Mark Oteiza <=