diff options
| author | Paul Eggert | 2019-11-11 10:30:13 -0800 |
|---|---|---|
| committer | Paul Eggert | 2019-11-11 10:32:53 -0800 |
| commit | 6b4a97c1c78f39ce890d100acceceb652d14e20d (patch) | |
| tree | 9d9f8347a952226adcd73680ed89c5679d6e5326 /lisp/cedet/srecode/document.el | |
| parent | 269796288a43520a1dcc481337af472d086faaa4 (diff) | |
| download | emacs-6b4a97c1c78f39ce890d100acceceb652d14e20d.tar.gz emacs-6b4a97c1c78f39ce890d100acceceb652d14e20d.zip | |
Fix some quoting glitches in doc strings
Diffstat (limited to 'lisp/cedet/srecode/document.el')
| -rw-r--r-- | lisp/cedet/srecode/document.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cedet/srecode/document.el b/lisp/cedet/srecode/document.el index ad15b3ef6fd..21acc61fef2 100644 --- a/lisp/cedet/srecode/document.el +++ b/lisp/cedet/srecode/document.el | |||
| @@ -385,7 +385,7 @@ It is assumed that the comment occurs just in front of FCN-IN." | |||
| 385 | 385 | ||
| 386 | (when (or (not fcn-in) | 386 | (when (or (not fcn-in) |
| 387 | (not (semantic-tag-of-class-p fcn-in 'function))) | 387 | (not (semantic-tag-of-class-p fcn-in 'function))) |
| 388 | (error "No tag of class 'function to insert comment for")) | 388 | (error "No tag of class `function' to insert comment for")) |
| 389 | 389 | ||
| 390 | (if (not (eq (current-buffer) (semantic-tag-buffer fcn-in))) | 390 | (if (not (eq (current-buffer) (semantic-tag-buffer fcn-in))) |
| 391 | (error "Only insert comments for tags in the current buffer")) | 391 | (error "Only insert comments for tags in the current buffer")) |
| @@ -496,7 +496,7 @@ It is assumed that the comment occurs just after VAR-IN." | |||
| 496 | 496 | ||
| 497 | (when (or (not var-in) | 497 | (when (or (not var-in) |
| 498 | (not (semantic-tag-of-class-p var-in 'variable))) | 498 | (not (semantic-tag-of-class-p var-in 'variable))) |
| 499 | (error "No tag of class 'variable to insert comment for")) | 499 | (error "No tag of class `variable' to insert comment for")) |
| 500 | 500 | ||
| 501 | (if (not (eq (current-buffer) (semantic-tag-buffer var-in))) | 501 | (if (not (eq (current-buffer) (semantic-tag-buffer var-in))) |
| 502 | (error "Only insert comments for tags in the current buffer")) | 502 | (error "Only insert comments for tags in the current buffer")) |