Mercurial > emacs
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 () |
