diff options
Diffstat (limited to 'lisp/cedet/srecode/document.el')
| -rw-r--r-- | lisp/cedet/srecode/document.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/cedet/srecode/document.el b/lisp/cedet/srecode/document.el index a52cadbfb2c..caf1ddebdb2 100644 --- a/lisp/cedet/srecode/document.el +++ b/lisp/cedet/srecode/document.el | |||
| @@ -167,7 +167,7 @@ doesn't always work correctly." | |||
| 167 | ("str\\(ing\\)?" . "string") | 167 | ("str\\(ing\\)?" . "string") |
| 168 | ("use?r" . "user") | 168 | ("use?r" . "user") |
| 169 | ("num\\(ber\\)?" . "number") | 169 | ("num\\(ber\\)?" . "number") |
| 170 | ("\\(^\\|\\s-\\)id\\($\\|\\s-\\)" . "Identifier") ;complex cause ;commen sylable | 170 | ("\\(^\\|\\s-\\)id\\($\\|\\s-\\)" . "Identifier") ;complex cause ;common sylable |
| 171 | ) | 171 | ) |
| 172 | "List of common English abbreviations or full words. | 172 | "List of common English abbreviations or full words. |
| 173 | These are nouns (as opposed to verbs) for use in creating expanded | 173 | These are nouns (as opposed to verbs) for use in creating expanded |
| @@ -720,7 +720,7 @@ allocating something based on its type." | |||
| 720 | "Convert tag or string PARAM into a name,comment pair. | 720 | "Convert tag or string PARAM into a name,comment pair. |
| 721 | Optional COMMENTLIST is list of previously existing comments to | 721 | Optional COMMENTLIST is list of previously existing comments to |
| 722 | use instead in alist form. If the name doesn't appear in the list of | 722 | use instead in alist form. If the name doesn't appear in the list of |
| 723 | standard names, then englishify it instead." | 723 | standard names, then english it instead." |
| 724 | (let ((cmt "") | 724 | (let ((cmt "") |
| 725 | (aso srecode-document-autocomment-param-alist) | 725 | (aso srecode-document-autocomment-param-alist) |
| 726 | (fnd nil) | 726 | (fnd nil) |
| @@ -811,8 +811,8 @@ not account for verb parts." | |||
| 811 | (if (string-match (car (car al)) (downcase ts)) | 811 | (if (string-match (car (car al)) (downcase ts)) |
| 812 | (progn | 812 | (progn |
| 813 | (setq newstr (concat newstr (cdr (car al)))) | 813 | (setq newstr (concat newstr (cdr (car al)))) |
| 814 | ;; don't terminate because we may actuall have 2 words | 814 | ;; don't terminate because we may actually have 2 words |
| 815 | ;; next to eachother we didn't identify before | 815 | ;; next to each other we didn't identify before |
| 816 | (setq llow t))) | 816 | (setq llow t))) |
| 817 | (setq al (cdr al))) | 817 | (setq al (cdr al))) |
| 818 | (if (not llow) (setq newstr (concat newstr ts))) | 818 | (if (not llow) (setq newstr (concat newstr ts))) |