.emacs-my
changeset 1413 63a3141a7ffe
parent 1412 04c1fdf1fdc9
child 1414 436e2cb0d9c0
equal deleted inserted replaced
1412:04c1fdf1fdc9 1413:63a3141a7ffe
  2784          (enable-recursive-minibuffers t))
  2784          (enable-recursive-minibuffers t))
  2785      (list (read-string (if symbol
  2785      (list (read-string (if symbol
  2786                             (format "Describe symbol (default %s): " symbol)
  2786                             (format "Describe symbol (default %s): " symbol)
  2787                           "Describe symbol: ")
  2787                           "Describe symbol: ")
  2788                         nil nil symbol))))
  2788                         nil nil symbol))))
  2789   (let ( )
  2789   (let ( (pyproc (python-shell-get-process)) )
  2790     (switch-to-buffer (get-buffer-create "*Python-doc*"))
  2790     (switch-to-buffer (get-buffer-create "*Python-doc*"))
  2791     (read-only-mode -1)
  2791     (read-only-mode -1)
  2792     (buffer-disable-undo)
  2792     (buffer-disable-undo)
  2793     (erase-buffer)
  2793     (erase-buffer)
  2794     (insert (python-shell-send-string-no-output (format my-python/eldoc-string-code2 symbol) (python-shell-get-process)))
  2794     (insert (python-shell-send-string-no-output (format my-python/eldoc-string-code2 symbol) pyproc))
  2795     (goto-char (point-min))
  2795     (goto-char (point-min))
  2796     (when (re-search-forward "^u?'" (line-end-position) t)
  2796     (when (re-search-forward "^u?'" (line-end-position) t)
  2797       (replace-match ""))
  2797       (replace-match ""))
  2798     (while (re-search-forward "\\\\n" nil t)
  2798     (while (re-search-forward "\\\\n" nil t)
  2799       (replace-match "\n"))
  2799       (replace-match "\n"))