Mercurial > emacs
comparison lisp/comint.el @ 1373:7fc9bbcae71b
Dox fix.
author | Christopher Zaborsky <rogue@erratum.com> |
---|---|
date | Fri, 09 Oct 1992 21:06:02 +0000 |
parents | dcf780f7ae1b |
children | dd83ec6103fe |
comparison
equal
deleted
inserted
replaced
1372:e839dc00fc2e | 1373:7fc9bbcae71b |
---|---|
914 ;;; '(lisp-mode) t)) | 914 ;;; '(lisp-mode) t)) |
915 | 915 |
916 ;;; This is pretty stupid about strings. It decides we're in a string | 916 ;;; This is pretty stupid about strings. It decides we're in a string |
917 ;;; if there's a quote on both sides of point on the current line. | 917 ;;; if there's a quote on both sides of point on the current line. |
918 (defun comint-extract-string () | 918 (defun comint-extract-string () |
919 "Returns string around point that starts the current line or nil." | 919 "Returns string around POINT that starts the current line or nil." |
920 (save-excursion | 920 (save-excursion |
921 (let* ((point (point)) | 921 (let* ((point (point)) |
922 (bol (progn (beginning-of-line) (point))) | 922 (bol (progn (beginning-of-line) (point))) |
923 (eol (progn (end-of-line) (point))) | 923 (eol (progn (end-of-line) (point))) |
924 (start (progn (goto-char point) | 924 (start (progn (goto-char point) |
1050 (insert (expand-file-name (concat pathdir completion))))))) | 1050 (insert (expand-file-name (concat pathdir completion))))))) |
1051 | 1051 |
1052 | 1052 |
1053 (defun comint-dynamic-complete () | 1053 (defun comint-dynamic-complete () |
1054 "Dynamically complete the filename at point. | 1054 "Dynamically complete the filename at point. |
1055 This function is similar to comint-replace-by-expanded-filename, except | 1055 This function is similar to `comint-replace-by-expanded-filename', except |
1056 that it won't change parts of the filename already entered in the buffer; | 1056 that it won't change parts of the filename already entered in the buffer; |
1057 it just adds completion characters to the end of the filename." | 1057 it just adds completion characters to the end of the filename." |
1058 (interactive) | 1058 (interactive) |
1059 (let* ((pathname (comint-match-partial-pathname)) | 1059 (let* ((pathname (comint-match-partial-pathname)) |
1060 (pathdir (file-name-directory pathname)) | 1060 (pathdir (file-name-directory pathname)) |