comparison lisp/ielm.el @ 10981:54697b892d3a

(ielm): Use pop-to-buffer. (same-window-buffer-names): Add *ielm*.

10980:aa3f323f1dea

This variable is buffer-local.")

(defvar ielm-header 
  (concat
   "*** Welcome to IELM version "
   (substring "$Revision: 1.2 $" 11 -2)
   " ***  Type (describe-mode) for help.\n"
   "IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n")
  "Message to display when IELM is started.")

(defvar ielm-map nil)

    (comint-skip-prompt)
    (buffer-substring (point) (progn (forward-sexp 1) (point)))))

;;; User command

;;;###autoload
(defun ielm nil
  "Interactively evaluate Emacs Lisp expressions.
Switches to the buffer *ielm*, or creates it if it does not exist."
  (interactive)
  (if (comint-check-proc "*ielm*") nil
    (progn
      (set-buffer (get-buffer-create "*ielm*"))
      (inferior-emacs-lisp-mode)))
  (switch-to-buffer "*ielm*"))

;;; ielm.el ends here

10981:54697b892d3a

This variable is buffer-local.")

(defvar ielm-header 
  (concat
   "*** Welcome to IELM version "
   (substring "$Revision: 1.3 $" 11 -2)
   " ***  Type (describe-mode) for help.\n"
   "IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n")
  "Message to display when IELM is started.")

(defvar ielm-map nil)

    (comint-skip-prompt)
    (buffer-substring (point) (progn (forward-sexp 1) (point)))))

;;; User command

;;;###autoload (add-hook 'same-window-buffer-names "*ielm*")

;;;###autoload
(defun ielm nil
  "Interactively evaluate Emacs Lisp expressions.
Switches to the buffer `*ielm*', or creates it if it does not exist."
  (interactive)
  (if (comint-check-proc "*ielm*")
      nil
    (save-excursion
      (set-buffer (get-buffer-create "*ielm*"))
      (inferior-emacs-lisp-mode)))
  (pop-to-buffer "*ielm*"))

;;; ielm.el ends here