diff options
| author | Eli Zaretskii | 2004-02-27 17:27:25 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2004-02-27 17:27:25 +0000 |
| commit | 08d87b2d0dbddc8c23c48bcc04fbade37a8f8046 (patch) | |
| tree | 91b313788f0ff5617ab79c9ce488c4070ce8d6b7 | |
| parent | 5d18b953551b66697a238e584afa9c35a65795c5 (diff) | |
| download | emacs-08d87b2d0dbddc8c23c48bcc04fbade37a8f8046.tar.gz emacs-08d87b2d0dbddc8c23c48bcc04fbade37a8f8046.zip | |
In scheme-mode symbol regexp, disallow backquote and
comma, so that it DTRT in macros.
| -rw-r--r-- | lisp/info-look.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/info-look.el b/lisp/info-look.el index 89eb1d7e411..8242932c3af 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; info-look.el --- major-mode-sensitive Info index lookup facility | 1 | ;;; info-look.el --- major-mode-sensitive Info index lookup facility |
| 2 | ;; An older version of this was known as libc.el. | 2 | ;; An older version of this was known as libc.el. |
| 3 | 3 | ||
| 4 | ;; Copyright (C) 1995,96,97,98,99,2001,2003 Free Software Foundation, Inc. | 4 | ;; Copyright (C) 1995,96,97,98,99,2001,2003,2004 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Ralph Schleicher <rs@nunatak.allgaeu.org> | 6 | ;; Author: Ralph Schleicher <rs@nunatak.allgaeu.org> |
| 7 | ;; (did not show signs of life (Nov 2001) -stef) | 7 | ;; (did not show signs of life (Nov 2001) -stef) |
| @@ -808,7 +808,7 @@ Return nil if there is nothing appropriate in the buffer near point." | |||
| 808 | 808 | ||
| 809 | (info-lookup-maybe-add-help | 809 | (info-lookup-maybe-add-help |
| 810 | :mode 'scheme-mode | 810 | :mode 'scheme-mode |
| 811 | :regexp "[^()'\" \t\n]+" | 811 | :regexp "[^()`',\" \t\n]+" |
| 812 | :ignore-case t | 812 | :ignore-case t |
| 813 | ;; Aubrey Jaffer's rendition from <URL:ftp://ftp-swiss.ai.mit.edu/pub/scm> | 813 | ;; Aubrey Jaffer's rendition from <URL:ftp://ftp-swiss.ai.mit.edu/pub/scm> |
| 814 | :doc-spec '(("(r5rs)Index" nil | 814 | :doc-spec '(("(r5rs)Index" nil |