comparison lisp/progmodes/python.el @ 90233:ee12d75eb214

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-85 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 556-561) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 122-124) - Update from CVS: lisp/mm-url.el (mm-url-decode-entities): Fix regexp. - Update from CVS
author Miles Bader <miles@gnu.org>
date Sun, 25 Sep 2005 22:07:01 +0000
parents a3716f7538f2 e60ed2bd9d3d
children 0ca0d9181b5e
comparison
equal deleted inserted replaced
90232:eab32348047a 90233:ee12d75eb214
1339 (format "Describe symbol (default %s): " symbol) 1339 (format "Describe symbol (default %s): " symbol)
1340 "Describe symbol: ") 1340 "Describe symbol: ")
1341 nil nil symbol)))) 1341 nil nil symbol))))
1342 (if (equal symbol "") (error "No symbol")) 1342 (if (equal symbol "") (error "No symbol"))
1343 (let* ((func `(lambda () 1343 (let* ((func `(lambda ()
1344 (comint-redirect-send-command (format "emacs.ehelp(%S)\n" 1344 (comint-redirect-send-command
1345 ,symbol) 1345 (format "emacs.ehelp(%S, globals(), locals())\n" ,symbol)
1346 "*Help*" nil)))) 1346 "*Help*" nil))))
1347 ;; Ensure we have a suitable help buffer. 1347 ;; Ensure we have a suitable help buffer.
1348 ;; Fixme: Maybe process `Related help topics' a la help xrefs and 1348 ;; Fixme: Maybe process `Related help topics' a la help xrefs and
1349 ;; allow C-c C-f in help buffer. 1349 ;; allow C-c C-f in help buffer.
1350 (let ((temp-buffer-show-hook ; avoid xref stuff 1350 (let ((temp-buffer-show-hook ; avoid xref stuff
1351 (lambda () 1351 (lambda ()