Mercurial > emacs

comparison lisp/erc/erc-stamp.el @ 95614:b52fd6b0e051

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove unnecessary eval-when-compiles.
author Glenn Morris <rgm@gnu.org>
date Sat, 07 Jun 2008 02:34:54 +0000
parents 2a734255bcc7
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
95613:7e79847f2451 95614:b52fd6b0e051
1 ;;; erc-stamp.el --- Timestamping for ERC messages 1 ;;; erc-stamp.el --- Timestamping for ERC messages
2 2
3 ;; Copyright (C) 2002, 2003, 2004, 2006, 2007, 2008 Free Software Foundation, Inc. 3 ;; Copyright (C) 2002, 2003, 2004, 2006, 2007, 2008
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Author: Mario Lang <mlang@delysid.org> 6 ;; Author: Mario Lang <mlang@delysid.org>
6 ;; Keywords: comm, processes, timestamp 7 ;; Keywords: comm, processes, timestamp
7 ;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErcStamp 8 ;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErcStamp
8 9
261 (put-text-property (1- (point)) (point) 'display 262 (put-text-property (1- (point)) (point) 'display
262 (list 'space ':align-to pos))) 263 (list 'space ':align-to pos)))
263 (insert string)) 264 (insert string))
264 265
265 ;; Silence byte-compiler 266 ;; Silence byte-compiler
266 (eval-when-compile 267 (defvar erc-fill-column)
267 (defvar erc-fill-column))
268 268
269 (defun erc-insert-timestamp-right (string) 269 (defun erc-insert-timestamp-right (string)
270 "Insert timestamp on the right side of the screen. 270 "Insert timestamp on the right side of the screen.
271 STRING is the timestamp to insert. The function is a possible value 271 STRING is the timestamp to insert. The function is a possible value
272 for `erc-insert-timestamp-function'. 272 for `erc-insert-timestamp-function'.