mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

(eldoc-message): New macro.

Browse source 
(eldoc-print-var-docstring, eldoc-print-fnsym-args): Use it.
This commit is contained in:
Noah Friedman 1995-11-25 03:45:25 +00:00
parent 9a166e406c
commit 72a9f8fd72
1 changed files with 16 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lisp/emacs-lisp/eldoc.el
View file

@ -11,9 +11,9 @@
;; LCD Archive Entry: ;; LCD Archive Entry:
;; eldoc|Noah Friedman|friedman@prep.ai.mit.edu| ;; eldoc|Noah Friedman|friedman@prep.ai.mit.edu|
;; show function arglist or variable docstring in echo area| ;; show function arglist or variable docstring in echo area|
;; $Date: 1995/11/18 22:32:07 $|$Revision: 1.3 $|~/misc/eldoc.el.gz| ;; $Date: 1995/11/21 15:21:34 $|$Revision: 1.4 $|~/misc/eldoc.el.gz|
;; $Id: eldoc.el,v 1.3 1995/11/18 22:32:07 friedman Exp friedman $ ;; $Id: eldoc.el,v 1.4 1995/11/21 15:21:34 friedman Exp friedman $
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by ;; it under the terms of the GNU General Public License as published by
@ -124,6 +124,16 @@ It is probably best to manipulate this data structure with the commands
(append (default-value 'minor-mode-alist) (append (default-value 'minor-mode-alist)
'((eldoc-mode eldoc-minor-mode-string))))) '((eldoc-mode eldoc-minor-mode-string)))))
;; In emacs 19.29 and later, and XEmacs 19.13 and later, all messages are
;; recorded in a log. Do not put eldoc messages in that log since
;; they are Legion.
(defmacro eldoc-message (&rest args)
(if (fboundp 'display-message)
;; XEmacs 19.13 way of preventing log messages.
(list 'display-message '(quote no-log) (apply 'list 'format args))
(list 'let (list (list 'message-log-max 'nil))
(apply 'list 'message args))))
;;;###autoload ;;;###autoload
(defun eldoc-mode (&optional prefix) (defun eldoc-mode (&optional prefix)
@ -229,12 +239,12 @@ option) is not printed."
(cond ((> strip 0) (cond ((> strip 0)
(let* ((len (length name))) (let* ((len (length name)))
(cond ((>= strip len) (cond ((>= strip len)
(message "%s" doc)) (eldoc-message "%s" doc))
(t (t
(setq name (substring name 0 (- len strip))) (setq name (substring name 0 (- len strip)))
(message "%s: %s" name doc))))) (eldoc-message "%s: %s" name doc)))))
(t (t
(message "%s: %s" s doc)))) (eldoc-message "%s: %s" s doc))))
t)))) t))))
@ -264,10 +274,7 @@ documentation string if possible."
(setcdr eldoc-last-data args))) (setcdr eldoc-last-data args)))
(and args (and args
printit printit
;; In emacs 19.29 and later, all messages are recorded in a log. (eldoc-message "%s: %s" sym args))))
;; Do not put eldoc messages in the log since they are Legion.
(let ((message-log-max nil))
(message "%s: %s" sym args)))))
(defun eldoc-fnsym-in-current-sexp () (defun eldoc-fnsym-in-current-sexp ()
(let* ((p (point)) (let* ((p (point))