diff options
| author | Paul Eggert | 2011-12-10 16:56:50 -0800 |
|---|---|---|
| committer | Paul Eggert | 2011-12-10 16:56:50 -0800 |
| commit | 8f50130c565eaf0ad7c49e4ad044c3291ecdfa71 (patch) | |
| tree | c8129448cbbf387fe82667ccac02983592c688f1 /lisp/cedet/srecode | |
| parent | 85a83e2e2585a1906dec5168ed96ad521b5849ed (diff) | |
| parent | 7b9d523a07395ecea505be88f45c33d73aea7038 (diff) | |
| download | emacs-8f50130c565eaf0ad7c49e4ad044c3291ecdfa71.tar.gz emacs-8f50130c565eaf0ad7c49e4ad044c3291ecdfa71.zip | |
Merge from trunk.
Diffstat (limited to 'lisp/cedet/srecode')
| -rw-r--r-- | lisp/cedet/srecode/args.el | 3 | ||||
| -rw-r--r-- | lisp/cedet/srecode/ctxt.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/srecode/dictionary.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/srecode/document.el | 4 | ||||
| -rw-r--r-- | lisp/cedet/srecode/fields.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/srecode/find.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/srecode/insert.el | 4 | ||||
| -rw-r--r-- | lisp/cedet/srecode/srt-wy.el | 33 | ||||
| -rw-r--r-- | lisp/cedet/srecode/texi.el | 2 |
9 files changed, 26 insertions, 28 deletions
diff --git a/lisp/cedet/srecode/args.el b/lisp/cedet/srecode/args.el index d8e02f978b2..73445fbf13d 100644 --- a/lisp/cedet/srecode/args.el +++ b/lisp/cedet/srecode/args.el | |||
| @@ -32,7 +32,7 @@ | |||
| 32 | ;;; :blank | 32 | ;;; :blank |
| 33 | ;; | 33 | ;; |
| 34 | ;; Using :blank means that the template should force blank lines | 34 | ;; Using :blank means that the template should force blank lines |
| 35 | ;; before and after the template, reguardless of where the insertion | 35 | ;; before and after the template, regardless of where the insertion |
| 36 | ;; is occurring. | 36 | ;; is occurring. |
| 37 | (defun srecode-semantic-handle-:blank (dict) | 37 | (defun srecode-semantic-handle-:blank (dict) |
| 38 | "Add macros into the dictionary DICT specifying blank line spacing. | 38 | "Add macros into the dictionary DICT specifying blank line spacing. |
| @@ -185,4 +185,3 @@ do not contain any text from preceding or following text." | |||
| 185 | (provide 'srecode/args) | 185 | (provide 'srecode/args) |
| 186 | 186 | ||
| 187 | ;;; srecode/args.el ends here | 187 | ;;; srecode/args.el ends here |
| 188 | |||
diff --git a/lisp/cedet/srecode/ctxt.el b/lisp/cedet/srecode/ctxt.el index f392379347a..11d84e96f41 100644 --- a/lisp/cedet/srecode/ctxt.el +++ b/lisp/cedet/srecode/ctxt.el | |||
| @@ -64,7 +64,7 @@ Some useful context values used by the provided srecode templates are: | |||
| 64 | \"comment\" - In a comment in a block of code | 64 | \"comment\" - In a comment in a block of code |
| 65 | -- these items show up at the end of the context list. -- | 65 | -- these items show up at the end of the context list. -- |
| 66 | \"public\", \"protected\", \"private\" - | 66 | \"public\", \"protected\", \"private\" - |
| 67 | In or near a section of public/pritected/private entries. | 67 | In or near a section of public/protected/private entries. |
| 68 | \"code\" - In a block of code. | 68 | \"code\" - In a block of code. |
| 69 | \"string\" - In a string in a block of code | 69 | \"string\" - In a string in a block of code |
| 70 | \"comment\" - In a comment in a block of code | 70 | \"comment\" - In a comment in a block of code |
diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el index 62ceff82448..1575ce7ae3b 100644 --- a/lisp/cedet/srecode/dictionary.el +++ b/lisp/cedet/srecode/dictionary.el | |||
| @@ -437,7 +437,7 @@ The root dictionary is usually for a current or active insertion." | |||
| 437 | ;;; COMPOUND VALUE METHODS | 437 | ;;; COMPOUND VALUE METHODS |
| 438 | ;; | 438 | ;; |
| 439 | ;; Compound values must provide at least the toString method | 439 | ;; Compound values must provide at least the toString method |
| 440 | ;; for use in converting the compound value into sometehing insertable. | 440 | ;; for use in converting the compound value into something insertable. |
| 441 | 441 | ||
| 442 | (defmethod srecode-compound-toString ((cp srecode-dictionary-compound-value) | 442 | (defmethod srecode-compound-toString ((cp srecode-dictionary-compound-value) |
| 443 | function | 443 | function |
diff --git a/lisp/cedet/srecode/document.el b/lisp/cedet/srecode/document.el index caf1ddebdb2..e25905ead83 100644 --- a/lisp/cedet/srecode/document.el +++ b/lisp/cedet/srecode/document.el | |||
| @@ -122,7 +122,7 @@ RESULT is a string." | |||
| 122 | ("read" . "Reads from") | 122 | ("read" . "Reads from") |
| 123 | ("reset" . "Resets the parameters and returns") | 123 | ("reset" . "Resets the parameters and returns") |
| 124 | ("scan" . "Scans the ") | 124 | ("scan" . "Scans the ") |
| 125 | ("setup\\|init\\(iallize\\)?" . "Initializes the ") | 125 | ("setup\\|init\\(ialize\\)?" . "Initializes the ") |
| 126 | ("select" . "Chooses the ") | 126 | ("select" . "Chooses the ") |
| 127 | ("send" . "Sends a") | 127 | ("send" . "Sends a") |
| 128 | ("re?c\\(v\\|ieves?\\)" . "Receives a ") | 128 | ("re?c\\(v\\|ieves?\\)" . "Receives a ") |
| @@ -698,7 +698,7 @@ allocating something based on its type." | |||
| 698 | (cdr (car al))))) | 698 | (cdr (car al))))) |
| 699 | (setq al nil))) | 699 | (setq al nil))) |
| 700 | (setq al (cdr al))) | 700 | (setq al (cdr al))) |
| 701 | ;; add tailers to names which are obviously returning something. | 701 | ;; add trailers to names which are obviously returning something. |
| 702 | (if tailit | 702 | (if tailit |
| 703 | (progn | 703 | (progn |
| 704 | (setq al srecode-document-autocomment-return-last-alist) | 704 | (setq al srecode-document-autocomment-return-last-alist) |
diff --git a/lisp/cedet/srecode/fields.el b/lisp/cedet/srecode/fields.el index f13fb17ca8f..f4d34a0f2ab 100644 --- a/lisp/cedet/srecode/fields.el +++ b/lisp/cedet/srecode/fields.el | |||
| @@ -324,7 +324,7 @@ Try to use this to provide useful completion when available.") | |||
| 324 | ) | 324 | ) |
| 325 | 325 | ||
| 326 | (defvar srecode-field-replication-max-size 100 | 326 | (defvar srecode-field-replication-max-size 100 |
| 327 | "Maximum size of a field before cancelling replication.") | 327 | "Maximum size of a field before canceling replication.") |
| 328 | 328 | ||
| 329 | (defun srecode-field-mod-hook (ol after start end &optional pre-len) | 329 | (defun srecode-field-mod-hook (ol after start end &optional pre-len) |
| 330 | "Modification hook for the field overlay. | 330 | "Modification hook for the field overlay. |
diff --git a/lisp/cedet/srecode/find.el b/lisp/cedet/srecode/find.el index d9765ebd449..b947c63f4dd 100644 --- a/lisp/cedet/srecode/find.el +++ b/lisp/cedet/srecode/find.el | |||
| @@ -238,7 +238,7 @@ Optional argument HASH is the hash table to fill in." | |||
| 238 | (tabs (when mt (oref mt :tables))) | 238 | (tabs (when mt (oref mt :tables))) |
| 239 | ) | 239 | ) |
| 240 | (while tabs | 240 | (while tabs |
| 241 | ;; Exclude templates for a perticular application. | 241 | ;; Exclude templates for a particular application. |
| 242 | (when (and (not (oref (car tabs) :application)) | 242 | (when (and (not (oref (car tabs) :application)) |
| 243 | (srecode-template-table-in-project-p (car tabs))) | 243 | (srecode-template-table-in-project-p (car tabs))) |
| 244 | (maphash (lambda (key temp) | 244 | (maphash (lambda (key temp) |
diff --git a/lisp/cedet/srecode/insert.el b/lisp/cedet/srecode/insert.el index 9fbfc5dc042..bbf8b881c4d 100644 --- a/lisp/cedet/srecode/insert.el +++ b/lisp/cedet/srecode/insert.el | |||
| @@ -312,7 +312,7 @@ occur in your template.") | |||
| 312 | (setq doit nil))) | 312 | (setq doit nil))) |
| 313 | (goto-char pm) | 313 | (goto-char pm) |
| 314 | ) | 314 | ) |
| 315 | ;; Do indentation reguardless of the newline. | 315 | ;; Do indentation regardless of the newline. |
| 316 | (when (and (eq i t) inbuff) | 316 | (when (and (eq i t) inbuff) |
| 317 | (indent-according-to-mode) | 317 | (indent-according-to-mode) |
| 318 | (goto-char pm)) | 318 | (goto-char pm)) |
| @@ -946,7 +946,7 @@ with the dictionaries found in the dictionary." | |||
| 946 | ;; It will first insert the included template, then insert the embedded | 946 | ;; It will first insert the included template, then insert the embedded |
| 947 | ;; template wherever the $^$ in the included template was. | 947 | ;; template wherever the $^$ in the included template was. |
| 948 | ;; | 948 | ;; |
| 949 | ;; Since it uses dual inheretance, it will magically get the end-matching | 949 | ;; Since it uses dual inheritance, it will magically get the end-matching |
| 950 | ;; behavior of #, with the including feature of >. | 950 | ;; behavior of #, with the including feature of >. |
| 951 | ;; | 951 | ;; |
| 952 | (defclass srecode-template-inserter-include-wrap (srecode-template-inserter-include srecode-template-inserter-section-start) | 952 | (defclass srecode-template-inserter-include-wrap (srecode-template-inserter-include srecode-template-inserter-section-start) |
diff --git a/lisp/cedet/srecode/srt-wy.el b/lisp/cedet/srecode/srt-wy.el index 2fb8e7665e9..5bd202093e9 100644 --- a/lisp/cedet/srecode/srt-wy.el +++ b/lisp/cedet/srecode/srt-wy.el | |||
| @@ -18,13 +18,12 @@ | |||
| 18 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 18 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
| 19 | 19 | ||
| 20 | ;;; Commentary: | 20 | ;;; Commentary: |
| 21 | 21 | ;; | |
| 22 | ;; Generated from srecode-template.wy in the CEDET repository. | 22 | ;; This file was generated from admin/grammars/srecode-template.wy. |
| 23 | 23 | ||
| 24 | ;;; Code: | 24 | ;;; Code: |
| 25 | 25 | ||
| 26 | (require 'semantic/lex) | 26 | (require 'semantic/lex) |
| 27 | |||
| 28 | 27 | ||
| 29 | ;;; Prologue | 28 | ;;; Prologue |
| 30 | ;; | 29 | ;; |
| @@ -206,10 +205,12 @@ | |||
| 206 | 205 | ||
| 207 | 206 | ||
| 208 | ;;; Analyzers | 207 | ;;; Analyzers |
| 209 | ;; | 208 | |
| 210 | (define-lex-keyword-type-analyzer srecode-template-wy--<keyword>-keyword-analyzer | 209 | (define-lex-string-type-analyzer srecode-template-wy--<punctuation>-string-analyzer |
| 211 | "keyword analyzer for <keyword> tokens." | 210 | "string analyzer for <punctuation> tokens." |
| 212 | "\\(\\sw\\|\\s_\\)+") | 211 | "\\s.+" |
| 212 | nil | ||
| 213 | 'punctuation) | ||
| 213 | 214 | ||
| 214 | (define-lex-regex-type-analyzer srecode-template-wy--<symbol>-regexp-analyzer | 215 | (define-lex-regex-type-analyzer srecode-template-wy--<symbol>-regexp-analyzer |
| 215 | "regexp analyzer for <symbol> tokens." | 216 | "regexp analyzer for <symbol> tokens." |
| @@ -217,22 +218,20 @@ | |||
| 217 | nil | 218 | nil |
| 218 | 'symbol) | 219 | 'symbol) |
| 219 | 220 | ||
| 220 | (define-lex-sexp-type-analyzer srecode-template-wy--<string>-sexp-analyzer | ||
| 221 | "sexp analyzer for <string> tokens." | ||
| 222 | "\\s\"" | ||
| 223 | 'string) | ||
| 224 | |||
| 225 | (define-lex-regex-type-analyzer srecode-template-wy--<number>-regexp-analyzer | 221 | (define-lex-regex-type-analyzer srecode-template-wy--<number>-regexp-analyzer |
| 226 | "regexp analyzer for <number> tokens." | 222 | "regexp analyzer for <number> tokens." |
| 227 | semantic-lex-number-expression | 223 | semantic-lex-number-expression |
| 228 | nil | 224 | nil |
| 229 | 'number) | 225 | 'number) |
| 230 | 226 | ||
| 231 | (define-lex-string-type-analyzer srecode-template-wy--<punctuation>-string-analyzer | 227 | (define-lex-sexp-type-analyzer srecode-template-wy--<string>-sexp-analyzer |
| 232 | "string analyzer for <punctuation> tokens." | 228 | "sexp analyzer for <string> tokens." |
| 233 | "\\s.+" | 229 | "\\s\"" |
| 234 | nil | 230 | 'string) |
| 235 | 'punctuation) | 231 | |
| 232 | (define-lex-keyword-type-analyzer srecode-template-wy--<keyword>-keyword-analyzer | ||
| 233 | "keyword analyzer for <keyword> tokens." | ||
| 234 | "\\(\\sw\\|\\s_\\)+") | ||
| 236 | 235 | ||
| 237 | 236 | ||
| 238 | ;;; Epilogue | 237 | ;;; Epilogue |
diff --git a/lisp/cedet/srecode/texi.el b/lisp/cedet/srecode/texi.el index acfc2486711..df90f6c464f 100644 --- a/lisp/cedet/srecode/texi.el +++ b/lisp/cedet/srecode/texi.el | |||
| @@ -244,7 +244,7 @@ that class. | |||
| 244 | `function' => @dfn{function} | 244 | `function' => @dfn{function} |
| 245 | `variable' => @code{variable} | 245 | `variable' => @code{variable} |
| 246 | `class' => @code{class} @xref{class} | 246 | `class' => @code{class} @xref{class} |
| 247 | `unknown' => @code{unknonwn} | 247 | `unknown' => @code{unknown} |
| 248 | \"text\" => ``text'' | 248 | \"text\" => ``text'' |
| 249 | 'quoteme => @code{quoteme} | 249 | 'quoteme => @code{quoteme} |
| 250 | non-nil => non-@code{nil} | 250 | non-nil => non-@code{nil} |