projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-options.el (riece-window-center-line): New user option.
[riece]
/
lisp
/
riece-misc.el
diff --git
a/lisp/riece-misc.el
b/lisp/riece-misc.el
index
2ab9f07
..
7a264b5
100644
(file)
--- a/
lisp/riece-misc.el
+++ b/
lisp/riece-misc.el
@@
-76,13
+76,14
@@
(insert (format-time-string "%H:%M") " " string)
(setq point (point))
(if (and (not (riece-frozen (current-buffer)))
(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))))