diff options
Diffstat (limited to 'lisp/erc')
| -rw-r--r-- | lisp/erc/erc-speedbar.el | 2 | ||||
| -rw-r--r-- | lisp/erc/erc-stamp.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/erc/erc-speedbar.el b/lisp/erc/erc-speedbar.el index 11979a01301..0c32f1e51f0 100644 --- a/lisp/erc/erc-speedbar.el +++ b/lisp/erc/erc-speedbar.el @@ -343,7 +343,7 @@ The INDENT level is ignored." "Return the text for the item on the current line." (beginning-of-line) (when (re-search-forward "[]>] " nil t) - (buffer-substring-no-properties (point) (point-at-eol)))) + (buffer-substring-no-properties (point) (line-end-position)))) (defun erc-speedbar-item-info () "Display information about the current buffer on the current line." diff --git a/lisp/erc/erc-stamp.el b/lisp/erc/erc-stamp.el index cdab3241c12..c167cd23930 100644 --- a/lisp/erc/erc-stamp.el +++ b/lisp/erc/erc-stamp.el @@ -303,7 +303,7 @@ printed just after each line's text (no alignment)." ;; to the next line before inserting a stamp. It allows for ;; some margin of error if what is displayed on the line differs ;; from the number of characters on the line. - (setq col (+ col (ceiling (/ (- col (- (point) (point-at-bol))) 1.6)))) + (setq col (+ col (ceiling (/ (- col (- (point) (line-beginning-position))) 1.6)))) (if (< col pos) (erc-insert-aligned string pos) (newline) |