[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/erc/erc-stamp.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/erc/erc-stamp.el |
Date: |
Thu, 16 Feb 2006 01:41:30 +0000 |
Index: emacs/lisp/erc/erc-stamp.el
diff -u emacs/lisp/erc/erc-stamp.el:1.5 emacs/lisp/erc/erc-stamp.el:1.6
--- emacs/lisp/erc/erc-stamp.el:1.5 Sun Feb 12 12:02:53 2006
+++ emacs/lisp/erc/erc-stamp.el Thu Feb 16 01:41:30 2006
@@ -240,19 +240,18 @@
(goto-char (point-max))
(forward-char -1);; before the last newline
(let* ((current-window (get-buffer-window (current-buffer)))
+ (str-width (string-width string))
(pos (cond
(erc-timestamp-right-column erc-timestamp-right-column)
((and (boundp 'erc-fill-mode)
erc-fill-mode
(boundp 'erc-fill-column)
erc-fill-column)
- (1+ erc-fill-column))
+ (1+ (- erc-fill-column str-width)))
(fill-column
- (1+ fill-column))
+ (1+ (- fill-column str-width)))
(t
- (- (window-width)
- (string-width string)
- 1))))
+ (- (window-width) str-width 1))))
(from (point))
(col (current-column))
indent)