From d7d20e6afc535b61e21657ed04666727c796e61a Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 15 Nov 1999 12:20:50 +0000 Subject: [PATCH] Use new backquote syntax. --- lisp/ChangeLog | 4 ++++ lisp/hippie-exp.el | 20 ++++++++++---------- 2 files changed, 14 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 924effed61..49695b7845 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +1999-11-15 Gerd Moellmann + + * hippie-exp.el: Use new backquote syntax. + 1998-09-14 Michael Ernst * uniquify.el: Use new backquote syntax. diff --git a/lisp/hippie-exp.el b/lisp/hippie-exp.el index 6f82054f8f..df2d88f597 100644 --- a/lisp/hippie-exp.el +++ b/lisp/hippie-exp.el @@ -412,14 +412,14 @@ undoes the expansion." "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 @@ string). It returns t if a new completion is found, nil otherwise." (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)) -- 2.20.1