Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
faa5a162
Commit
faa5a162
authored
Jan 04, 1998
by
David Kågedal
Browse files
Kolla blocking-do och apo också.
parent
01ad61f0
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
faa5a162
Sun Jan 4 01:42:08 1998 David Kgedal <davidk@lysator.liu.se>
* utilities.el (lyskom-next-apo-timeout): Gjorde om till en defun.
(lyskom-reset-apo-timeout): Dito.
(lyskom-accept-process-output): Dito.
* lyskom-rest.el (options): Satte prioriteten fr options till 9.
Sat Jan 3 22:25:51 1998 David Kgedal <davidk@lysator.liu.se>
* internal.el (lyskom-halt,lyskom-resume): Anvnd assq istllet
...
...
src/perf.el
View file @
faa5a162
...
...
@@ -24,10 +24,12 @@
8:
[queuelen-8]
[queuenames-8]
9:
[queuelen-9]
[queuenames-9]
call:
[in-call]
")
call:
[in-call]
[apo]
[blocking-do]
")
(defvar lyskom-prof-buffer nil)
(defvar lyskom-prof-fields nil)
(defvar lyskom-prof-frame nil)
(defun fields-new (string)
(let ((fields nil))
...
...
@@ -171,12 +173,12 @@ most lyskom-max-pending-calls are sent to the server at the same time."
(defun lyskom-prof-set-queue-priority (queue-name priority)
(let ((oldpri (get queue-name 'lyskom-queue-priority))
)
(when
oldpri
(aset queue-names oldpri (delq queue-name (aref queue-names oldpri)))
(fields-replace lyskom-prof-fields
(intern (concat "
queuenames-
" (int-to-string oldpri)))
(mapconcat 'symbol-name (aref queue-names oldpri) "
,
")))
)
(let
*
((oldpri (get queue-name 'lyskom-queue-priority))
(noldpri (or
oldpri
0)))
(aset queue-names
n
oldpri (delq queue-name (aref queue-names
n
oldpri)))
(fields-replace lyskom-prof-fields
(intern (concat "
queuenames-
" (int-to-string
n
oldpri)))
(mapconcat 'symbol-name (aref queue-names
n
oldpri) "
,
")))
(aset queue-names priority (cons queue-name (aref queue-names priority)))
(fields-replace lyskom-prof-fields
(intern (concat "
queuenames-
" (int-to-string priority)))
...
...
@@ -214,6 +216,23 @@ most lyskom-max-pending-calls are sent to the server at the same time."
(sit-for 0))
(defadvice blocking-do (around stat activate)
(fields-replace lyskom-prof-fields 'blocking-do
(concat "
blocking-do
" (symbol-name command)))
(sit-for 0)
ad-do-it
(fields-replace lyskom-prof-fields 'blocking-do "")
(sit-for 0))
(defadvice lyskom-accept-process-output (around stat activate)
(fields-replace lyskom-prof-fields 'apo "
apo
")
(sit-for 0)
ad-do-it
(fields-replace lyskom-prof-fields 'apo "
")
(sit-for 0.1))
;; Initialazation
...
...
@@ -226,12 +245,14 @@ most lyskom-max-pending-calls are sent to the server at the same time."
(
setq
lyskom-prof-fields
(
fields-new
lyskom-prof-template
))
(
if
window-system
(
progn
(
select-frame
(
make-frame
'
((
height
.
22
))))
(
display-buffer
lyskom-prof-buffer
))
(
when
(
not
(
frame-live-p
lyskom-prof-frame
))
(
setq
lyskom-prof-frame
(
make-frame
'
((
height
.
25
)))))
(
select-frame
lyskom-prof-frame
)
(
display-buffer
lyskom-prof-buffer
)
(
goto-char
0
))
(
let
((
w
(
selected-window
)))
(
split-window
nil
8
)
(
set-window-buffer
w
lyskom-prof-buffer
)
(
select-window
w
)))
)
(
lyskom-prof-init
)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment