diff options
| author | Glenn Morris | 2007-09-13 08:04:38 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-09-13 08:04:38 +0000 |
| commit | 6b22680006a05e33fdf3b6e367987bf88c0276d4 (patch) | |
| tree | a1dfbe3442400f44ef7b5d963091bb4697680ecf | |
| parent | 162a12b1d7b1e985a8810bad24d068c825286f56 (diff) | |
| download | emacs-6b22680006a05e33fdf3b6e367987bf88c0276d4.tar.gz emacs-6b22680006a05e33fdf3b6e367987bf88c0276d4.zip | |
Tabify previous change.
| -rw-r--r-- | lisp/man.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/man.el b/lisp/man.el index 52172a5ee26..fc84f327271 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -652,13 +652,13 @@ If POS is nil, the current point is used." | |||
| 652 | (skip-chars-backward "-a-zA-Z0-9._+:") | 652 | (skip-chars-backward "-a-zA-Z0-9._+:") |
| 653 | (let ((start (point))) | 653 | (let ((start (point))) |
| 654 | (skip-chars-forward "-a-zA-Z0-9._+:") | 654 | (skip-chars-forward "-a-zA-Z0-9._+:") |
| 655 | ;; If there is a continuation at the end of line, check the | 655 | ;; If there is a continuation at the end of line, check the |
| 656 | ;; following line too, eg: | 656 | ;; following line too, eg: |
| 657 | ;; see this- | 657 | ;; see this- |
| 658 | ;; command-here(1) | 658 | ;; command-here(1) |
| 659 | (setq word (buffer-substring-no-properties start (point))) | 659 | (setq word (buffer-substring-no-properties start (point))) |
| 660 | (if (looking-at "[ \t\r\n]+\\([-a-zA-Z0-9._+:]+\\)([0-9])") | 660 | (if (looking-at "[ \t\r\n]+\\([-a-zA-Z0-9._+:]+\\)([0-9])") |
| 661 | (setq word (concat word (match-string 1))))) | 661 | (setq word (concat word (match-string 1))))) |
| 662 | (if (string-match "[._]+$" word) | 662 | (if (string-match "[._]+$" word) |
| 663 | (setq word (substring word 0 (match-beginning 0)))) | 663 | (setq word (substring word 0 (match-beginning 0)))) |
| 664 | ;; If looking at something like *strcat(... , remove the '*' | 664 | ;; If looking at something like *strcat(... , remove the '*' |