comparison lisp/utils/eldoc.el @ 110:fe104dbd9147 r20-1b7

Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 4be1180a9e89
children 48d667d6f17f
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
5 ;; Author: Noah Friedman <friedman@prep.ai.mit.edu> 5 ;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
6 ;; Maintainer: friedman@prep.ai.mit.edu 6 ;; Maintainer: friedman@prep.ai.mit.edu
7 ;; Keywords: extensions 7 ;; Keywords: extensions
8 ;; Created: 1995-10-06 8 ;; Created: 1995-10-06
9 9
10 ;; $Id: eldoc.el,v 1.2 1997/02/24 01:14:18 steve Exp $ 10 ;; $Id: eldoc.el,v 1.3 1997/03/16 03:05:48 steve Exp $
11 11
12 ;; This file is part of GNU Emacs. 12 ;; This file is part of GNU Emacs.
13 13
14 ;; GNU Emacs is free software; you can redistribute it and/or modify 14 ;; GNU Emacs is free software; you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by 15 ;; it under the terms of the GNU General Public License as published by
238 (cond (eldoc-use-idle-timer-p 238 (cond (eldoc-use-idle-timer-p
239 ;; If this-command is non-nil while running via an idle 239 ;; If this-command is non-nil while running via an idle
240 ;; timer, we're still in the middle of executing a command, 240 ;; timer, we're still in the middle of executing a command,
241 ;; e.g. a query-replace where it would be annoying to 241 ;; e.g. a query-replace where it would be annoying to
242 ;; overwrite the echo area. 242 ;; overwrite the echo area.
243 (and (not this-command) 243 (and ;(not this-command)
244 (symbolp last-command) 244 (symbolp last-command)
245 (intern-soft (symbol-name last-command) 245 (intern-soft (symbol-name last-command)
246 eldoc-message-commands))) 246 eldoc-message-commands)))
247 (t 247 (t
248 ;; If we don't have idle timers, this function is 248 ;; If we don't have idle timers, this function is