projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-irc.el (riece-irc-open-server): Send USER command with
[riece]
/
lisp
/
riece-misc.el
diff --git
a/lisp/riece-misc.el
b/lisp/riece-misc.el
index
2ab9f07
..
2e2a912
100644
(file)
--- a/
lisp/riece-misc.el
+++ b/
lisp/riece-misc.el
@@
-70,19
+70,19
@@
(let ((inhibit-read-only t)
buffer-read-only
(start (goto-char (point-max)))
(let ((inhibit-read-only t)
buffer-read-only
(start (goto-char (point-max)))
- (buffer (current-buffer))
window
point)
(insert (format-time-string "%H:%M") " " string)
(setq point (point))
(if (and (not (riece-frozen (current-buffer)))
window
point)
(insert (format-time-string "%H:%M") " " string)
(setq point (point))
(if (and (not (riece-frozen (current-buffer)))
- (setq window (get-buffer-window (current-buffer))))
+ (setq window (get-buffer-window (current-buffer)))
+ (not (pos-visible-in-window-p point window)))
(save-excursion ;save-selected-window changes
;current buffer
(save-selected-window
(select-window window)
(goto-char point) ;select-window changes current point
(save-excursion ;save-selected-window changes
;current buffer
(save-selected-window
(select-window window)
(goto-char point) ;select-window changes current point
- (recenter
-2
))))
+ (recenter
riece-window-center-line
))))
(run-hook-with-args 'riece-after-insert-functions start (point))))
(setq buffers (cdr buffers))))
(run-hook-with-args 'riece-after-insert-functions start (point))))
(setq buffers (cdr buffers))))