Mercurial > emacs

comparison lisp/ielm.el @ 18383:11218164bc54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add provide call.
author Richard M. Stallman <rms@gnu.org>
date Sun, 22 Jun 1997 18:57:55 +0000
parents 1471676365ac
children c9700d281f81
comparison
equal deleted inserted replaced
18382:0e4943a370e2 18383:11218164bc54
101 This variable is buffer-local.") 101 This variable is buffer-local.")
102 102
103 (defvar ielm-header 103 (defvar ielm-header
104 (concat 104 (concat
105 "*** Welcome to IELM version " 105 "*** Welcome to IELM version "
106 (substring "$Revision: 1.12 $" 11 -2) 106 (substring "$Revision: 1.13 $" 11 -2)
107 " *** Type (describe-mode) for help.\n" 107 " *** Type (describe-mode) for help.\n"
108 "IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n") 108 "IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n")
109 "Message to display when IELM is started.") 109 "Message to display when IELM is started.")
110 110
111 (defvar ielm-map nil) 111 (defvar ielm-map nil)
488 (save-excursion 488 (save-excursion
489 (set-buffer (get-buffer-create "*ielm*")) 489 (set-buffer (get-buffer-create "*ielm*"))
490 (inferior-emacs-lisp-mode))) 490 (inferior-emacs-lisp-mode)))
491 (pop-to-buffer "*ielm*")) 491 (pop-to-buffer "*ielm*"))
492 492
493 (provide 'ielm)
494
493 ;;; ielm.el ends here 495 ;;; ielm.el ends here