procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(eldoc-mode): Toggle eldoc-mode if no prefix given.

Browse source
This commit is contained in:
Noah Friedman 1996-07-14 16:46:25 +00:00
parent fb98e6ce18
commit 58ee38cab8
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
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/21 15:21:34 $|$Revision: 1.4 $|~/misc/eldoc.el.gz| ;; $Date: 1995/11/25 03:45:25 $|$Revision: 1.5 $|~/misc/eldoc.el.gz|
;; $Id: eldoc.el,v 1.4 1995/11/21 15:21:34 friedman Exp friedman $ ;; $Id: eldoc.el,v 1.5 1995/11/25 03:45:25 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
@ -147,8 +147,10 @@ It is probably best to manipulate this data structure with the commands
'post-command-hook) 'post-command-hook)
'eldoc-mode-print-current-symbol-info) 'eldoc-mode-print-current-symbol-info)
(setq eldoc-mode (setq eldoc-mode (if prefix
(>= (prefix-numeric-value prefix) 0)) (>= (prefix-numeric-value prefix) 0)
(not eldoc-mode)))
(and (interactive-p) (and (interactive-p)
(if eldoc-mode (if eldoc-mode
(message "eldoc-mode is enabled") (message "eldoc-mode is enabled")