Mercurial > emacs
changeset 26459:1ef9d70dfb0f
* dabbrev.el (dabbrev-filter-elements): Use the new backquote syntax.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Mon, 15 Nov 1999 18:59:00 +0000 |
| parents | a74c3ac8e0d8 |
| children | ea7e77758acd |
| files | lisp/ChangeLog lisp/dabbrev.el |
| diffstat | 2 files changed, 22 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Nov 15 16:16:11 1999 +0000 +++ b/lisp/ChangeLog Mon Nov 15 18:59:00 1999 +0000 @@ -1,21 +1,25 @@ +1999-11-15 Sam Steingold <sds@ksp.com> + + * dabbrev.el (dabbrev-filter-elements): Use the new backquote syntax. + 1999-02-22 Sam Steingold <sds@goems.com> - + * goto-addr.el (goto-address-at-mouse, goto-address-find-address-at-point): use compose-mail. (goto-address-mail-method): removed variable. (goto-address-send-using-mh-e, goto-address-send-using-mhe, goto-address-send-using-mail): removed functions. - + 1998-11-03 Sam Steingold <sds@goems.com> - + * simple.el (backward-delete-char-untabify): backward-delete-char-untabify-method can be `all' now - to delete hungrily including newlines. - + 1999-11-15 Sam Steingold <sds@ksp.com> * mail/rnews.el, mail/mh-utils.el: Use the new backquote syntax. - + 1999-11-15 Dave Love <fx@gnu.org> * cus-edit.el (customize-face, customize-face-other-window): @@ -41,10 +45,10 @@ * ansi-color.el (ansi-color-apply): Updated regexps to include highlighted face. - + 1999-01-14 Johan Vromans <jvromans@squirrel.nl> - * forms.el (forms--make-format-elt-using-text-properties): + * forms.el (forms--make-format-elt-using-text-properties): Treat `intangible' differently. * forms.el: Use new backquote syntax. @@ -61,7 +65,7 @@ (smbclient-prompt-regexp, smbclient-font-lock-keywords): New variables (smbclient, smbclient-list-shares): New functions - + 1999-11-12 Sam Steingold <sds@ksp.com> * emulation/viper-init.el (viper-deflocalvar, viper-loop)
--- a/lisp/dabbrev.el Mon Nov 15 16:16:11 1999 +0000 +++ b/lisp/dabbrev.el Mon Nov 15 18:59:00 1999 +0000 @@ -310,14 +310,14 @@ ;; variable ELEMENT, and include it in the result ;; if CONDITION evaluates non-nil. (defmacro dabbrev-filter-elements (element list condition) - (` (let (dabbrev-result dabbrev-tail (, element)) - (setq dabbrev-tail (, list)) - (while dabbrev-tail - (setq (, element) (car dabbrev-tail)) - (if (, condition) - (setq dabbrev-result (cons (, element) dabbrev-result))) - (setq dabbrev-tail (cdr dabbrev-tail))) - (nreverse dabbrev-result)))) + `(let (dabbrev-result dabbrev-tail ,element) + (setq dabbrev-tail ,list) + (while dabbrev-tail + (setq ,element (car dabbrev-tail)) + (if ,condition + (setq dabbrev-result (cons ,element dabbrev-result))) + (setq dabbrev-tail (cdr dabbrev-tail))) + (nreverse dabbrev-result))) ;;---------------------------------------------------------------- ;; Exported functions @@ -569,7 +569,7 @@ (equal abbrev (upcase abbrev))))) ;; Save state for re-expand. - (setq dabbrev--last-expansion expansion) + (setq dabbrev--last-expansion expansion) (setq dabbrev--last-abbreviation abbrev) (setq dabbrev--last-abbrev-location (point-marker)))))) @@ -630,7 +630,7 @@ (dabbrev--goto-start-of-abbrev) (buffer-substring-no-properties dabbrev--last-abbrev-location (point)))) - + ;;; Initializes all global variables (defun dabbrev--reset-global-variables () ;; dabbrev--last-obarray and dabbrev--last-completion-buffer