Mercurial > emacs
changeset 26449:725d46ec6403
Use new backquote syntax.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 15 Nov 1999 12:19:38 +0000 |
| parents | a72b6b4a97bf |
| children | de115f30853c |
| files | lisp/hippie-exp.el |
| diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/hippie-exp.el Sun Nov 14 16:37:23 1999 +0000 +++ b/lisp/hippie-exp.el Mon Nov 15 12:19:38 1999 +0000 @@ -412,14 +412,14 @@ "Construct a function similar to `hippie-expand'. Make it use the expansion functions in TRY-LIST. An optional second argument VERBOSE non-nil makes the function verbose." - (` (function (lambda (arg) - (, (concat - "Try to expand text before point, using the following functions: \n" - (mapconcat 'prin1-to-string (eval try-list) ", "))) - (interactive "P") - (let ((hippie-expand-try-functions-list (, try-list)) - (hippie-expand-verbose (, verbose))) - (hippie-expand arg)))))) + `(function (lambda (arg) + ,(concat + "Try to expand text before point, using the following functions: \n" + (mapconcat 'prin1-to-string (eval try-list) ", ")) + (interactive "P") + (let ((hippie-expand-try-functions-list ,try-list) + (hippie-expand-verbose ,verbose)) + (hippie-expand arg))))) ;;; Here follows the try-functions and their requisites: @@ -732,8 +732,8 @@ (re-search-forward (he-line-search-regexp str strip-prompt) nil t))) - (setq result (buffer-substring-no-properties (match-beginning 2) - (match-end 2))) + (setq result (buffer-substring-no-properties (match-end 1) + (match-end 0))) (if (he-string-member result he-tried-table t) (setq result nil))) ; if already in table, ignore result))