diff options
| author | Martin Rudalics | 2007-07-02 05:46:19 +0000 |
|---|---|---|
| committer | Martin Rudalics | 2007-07-02 05:46:19 +0000 |
| commit | f204ca2feb0e107476f73e9ae2b2524e5254968e (patch) | |
| tree | 721ee5624953f5a922ff1702bc40cfbee350d0c6 | |
| parent | 20a65989fe617ef81420147ccdfb96c86b6e1b05 (diff) | |
| download | emacs-f204ca2feb0e107476f73e9ae2b2524e5254968e.tar.gz emacs-f204ca2feb0e107476f73e9ae2b2524e5254968e.zip | |
(help-make-xrefs): Skip spaces too when skipping tabs.
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/help-mode.el | 2 |
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ab4cdf34516..129b9aab8e7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,12 @@ | |||
| 1 | 2007-07-02 Martin Rudalics <rudalics@gmx.at> | ||
| 2 | |||
| 3 | * help-mode.el (help-make-xrefs): Skip spaces too when skipping tabs. | ||
| 4 | |||
| 5 | * mouse.el (mouse-drag-mode-line-1): Quit mouse tracking when | ||
| 6 | event is not a cons cell. Do not unread drag-mouse-1 events. | ||
| 7 | Select right window in check whether space was stolen from | ||
| 8 | window above. | ||
| 9 | |||
| 1 | 2007-07-01 Richard Stallman <rms@gnu.org> | 10 | 2007-07-01 Richard Stallman <rms@gnu.org> |
| 2 | 11 | ||
| 3 | * files.el (find-file-visit-truename): Fix safe-local-variable value. | 12 | * files.el (find-file-visit-truename): Fix safe-local-variable value. |
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index afaf06bec3c..3da2a23efc4 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el | |||
| @@ -462,7 +462,7 @@ that." | |||
| 462 | ;; Skip a single blank line. | 462 | ;; Skip a single blank line. |
| 463 | (and (eolp) (forward-line)) | 463 | (and (eolp) (forward-line)) |
| 464 | (end-of-line) | 464 | (end-of-line) |
| 465 | (skip-chars-backward "^\t\n") | 465 | (skip-chars-backward "^ \t\n") |
| 466 | (if (and (>= (current-column) col) | 466 | (if (and (>= (current-column) col) |
| 467 | (looking-at "\\(\\sw\\|-\\)+$")) | 467 | (looking-at "\\(\\sw\\|-\\)+$")) |
| 468 | (let ((sym (intern-soft (match-string 0)))) | 468 | (let ((sym (intern-soft (match-string 0)))) |