mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Use new backquote syntax.

Browse Source
This commit is contained in:
Gerd Moellmann 1999-11-15 12:20:50 +00:00
parent 5bcfeb490e
commit d7d20e6afc
2 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
1999-11-15 Gerd Moellmann <gerd@gnu.org>
* hippie-exp.el: Use new backquote syntax.
1998-09-14 Michael Ernst <mernst@alum.mit.edu>
* uniquify.el: Use new backquote syntax.

20
lisp/hippie-exp.el
View File

@ -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))