diff options
| author | Paul Eggert | 2011-11-13 20:35:22 -0800 |
|---|---|---|
| committer | Paul Eggert | 2011-11-13 20:35:22 -0800 |
| commit | c3ca24d48c10fb771ee02eb58f7d49bd82d6306e (patch) | |
| tree | e707b79a846623490feea39a4dceb86dd218eb4d /lisp/cedet | |
| parent | 6a0bf43d7c5961297aa5024aec534e5bab73c8af (diff) | |
| parent | 56632ce4cd8616f0613e8734d62ec5e2f833c7dc (diff) | |
| download | emacs-c3ca24d48c10fb771ee02eb58f7d49bd82d6306e.tar.gz emacs-c3ca24d48c10fb771ee02eb58f7d49bd82d6306e.zip | |
Merge from trunk.
Diffstat (limited to 'lisp/cedet')
| -rw-r--r-- | lisp/cedet/cedet.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/ede/proj-elisp.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/bovine/c.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/decorate/include.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/edit.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/format.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/html.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/scope.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/tag-file.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/texi.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/srecode/extract.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/srecode/getset.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/srecode/mode.el | 2 |
13 files changed, 13 insertions, 13 deletions
diff --git a/lisp/cedet/cedet.el b/lisp/cedet/cedet.el index d2fb066515b..d7645bc97ed 100644 --- a/lisp/cedet/cedet.el +++ b/lisp/cedet/cedet.el | |||
| @@ -75,7 +75,7 @@ | |||
| 75 | This is used by `semantic-mode' and `global-ede-mode'.") | 75 | This is used by `semantic-mode' and `global-ede-mode'.") |
| 76 | 76 | ||
| 77 | (defun cedet-version () | 77 | (defun cedet-version () |
| 78 | "Display all active versions of CEDET and Dependant packages. | 78 | "Display all active versions of CEDET and Dependent packages. |
| 79 | 79 | ||
| 80 | The PACKAGE column is the name of a given package from CEDET. | 80 | The PACKAGE column is the name of a given package from CEDET. |
| 81 | 81 | ||
diff --git a/lisp/cedet/ede/proj-elisp.el b/lisp/cedet/ede/proj-elisp.el index 42a20cc4a1a..66c71063363 100644 --- a/lisp/cedet/ede/proj-elisp.el +++ b/lisp/cedet/ede/proj-elisp.el | |||
| @@ -217,7 +217,7 @@ is found, such as a `-version' variable, or the standard header." | |||
| 217 | (save-excursion | 217 | (save-excursion |
| 218 | (if (file-symlink-p ec) | 218 | (if (file-symlink-p ec) |
| 219 | (progn | 219 | (progn |
| 220 | ;; Desymlinkafy | 220 | ;; Desymlinkify |
| 221 | (rename-file ec (concat ec ".tmp")) | 221 | (rename-file ec (concat ec ".tmp")) |
| 222 | (copy-file (concat ec ".tmp") ec) | 222 | (copy-file (concat ec ".tmp") ec) |
| 223 | (delete-file (concat ec ".tmp")))) | 223 | (delete-file (concat ec ".tmp")))) |
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el index 0b3e6881891..1076402ac91 100644 --- a/lisp/cedet/semantic/bovine/c.el +++ b/lisp/cedet/semantic/bovine/c.el | |||
| @@ -249,7 +249,7 @@ Return the defined symbol as a special spp lex token." | |||
| 249 | (point)))) | 249 | (point)))) |
| 250 | ) | 250 | ) |
| 251 | 251 | ||
| 252 | ;; Only do argument checking if the paren was immediatly after | 252 | ;; Only do argument checking if the paren was immediately after |
| 253 | ;; the macro name. | 253 | ;; the macro name. |
| 254 | (if with-args | 254 | (if with-args |
| 255 | (semantic-lex-spp-first-token-arg-list (car raw-stream))) | 255 | (semantic-lex-spp-first-token-arg-list (car raw-stream))) |
diff --git a/lisp/cedet/semantic/decorate/include.el b/lisp/cedet/semantic/decorate/include.el index e984965a737..a37f43d177f 100644 --- a/lisp/cedet/semantic/decorate/include.el +++ b/lisp/cedet/semantic/decorate/include.el | |||
| @@ -296,7 +296,7 @@ This mode provides a nice context menu on the include statements." | |||
| 296 | ;; Set ourselves up for synchronization | 296 | ;; Set ourselves up for synchronization |
| 297 | (semanticdb-cache-get | 297 | (semanticdb-cache-get |
| 298 | table 'semantic-decoration-unparsed-include-cache) | 298 | table 'semantic-decoration-unparsed-include-cache) |
| 299 | ;; Add a dependancy. | 299 | ;; Add a dependency. |
| 300 | (let ((table semanticdb-current-table)) | 300 | (let ((table semanticdb-current-table)) |
| 301 | (semanticdb-add-reference table tag)) | 301 | (semanticdb-add-reference table tag)) |
| 302 | ) | 302 | ) |
diff --git a/lisp/cedet/semantic/edit.el b/lisp/cedet/semantic/edit.el index 7f7e82a95c2..307071e743c 100644 --- a/lisp/cedet/semantic/edit.el +++ b/lisp/cedet/semantic/edit.el | |||
| @@ -427,7 +427,7 @@ See `semantic-edits-change-leaf-tag' for details on parents." | |||
| 427 | ;; which must have a value by now. | 427 | ;; which must have a value by now. |
| 428 | 428 | ||
| 429 | ;; Loop over the search list to find the preceding CDR. | 429 | ;; Loop over the search list to find the preceding CDR. |
| 430 | ;; Fortunatly, (car overlapped-tags) happens to be | 430 | ;; Fortunately, (car overlapped-tags) happens to be |
| 431 | ;; the first tag positionally. | 431 | ;; the first tag positionally. |
| 432 | (let ((tokstart (semantic-tag-start (car overlapped-tags)))) | 432 | (let ((tokstart (semantic-tag-start (car overlapped-tags)))) |
| 433 | (while (and list-to-search | 433 | (while (and list-to-search |
diff --git a/lisp/cedet/semantic/format.el b/lisp/cedet/semantic/format.el index fa6e7517624..381801559da 100644 --- a/lisp/cedet/semantic/format.el +++ b/lisp/cedet/semantic/format.el | |||
| @@ -291,7 +291,7 @@ local definitions." | |||
| 291 | ;; Try and find a trail of parents from PARENT | 291 | ;; Try and find a trail of parents from PARENT |
| 292 | (let ((rlist (list parent)) | 292 | (let ((rlist (list parent)) |
| 293 | ) | 293 | ) |
| 294 | ;; IMPLELEMENT ME!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! | 294 | ;; IMPLEMENT ME!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
| 295 | (reverse rlist))) | 295 | (reverse rlist))) |
| 296 | 296 | ||
| 297 | (define-overloadable-function semantic-format-tag-canonical-name (tag &optional parent color) | 297 | (define-overloadable-function semantic-format-tag-canonical-name (tag &optional parent color) |
diff --git a/lisp/cedet/semantic/html.el b/lisp/cedet/semantic/html.el index 972ce5e26bc..137759d46ac 100644 --- a/lisp/cedet/semantic/html.el +++ b/lisp/cedet/semantic/html.el | |||
| @@ -61,7 +61,7 @@ | |||
| 61 | (define-mode-local-override semantic-parse-region | 61 | (define-mode-local-override semantic-parse-region |
| 62 | html-mode (&rest ignore) | 62 | html-mode (&rest ignore) |
| 63 | "Parse the current html buffer for semantic tags. | 63 | "Parse the current html buffer for semantic tags. |
| 64 | INGNORE any arguments. Always parse the whole buffer. | 64 | IGNORE any arguments. Always parse the whole buffer. |
| 65 | Each tag returned is of the form: | 65 | Each tag returned is of the form: |
| 66 | (\"NAME\" section (:members CHILDREN)) | 66 | (\"NAME\" section (:members CHILDREN)) |
| 67 | or | 67 | or |
diff --git a/lisp/cedet/semantic/scope.el b/lisp/cedet/semantic/scope.el index 78a1fd049f0..53695015e4a 100644 --- a/lisp/cedet/semantic/scope.el +++ b/lisp/cedet/semantic/scope.el | |||
| @@ -426,7 +426,7 @@ implicit \"object\"." | |||
| 426 | 426 | ||
| 427 | ;; Collect all the types (class, etc) that are in our heratage. | 427 | ;; Collect all the types (class, etc) that are in our heratage. |
| 428 | ;; These are types that we can extract members from, not those | 428 | ;; These are types that we can extract members from, not those |
| 429 | ;; delclared in using statements, or the like. | 429 | ;; declared in using statements, or the like. |
| 430 | ;; Get the PARENTS including nesting scope for this location. | 430 | ;; Get the PARENTS including nesting scope for this location. |
| 431 | (while parentlist | 431 | (while parentlist |
| 432 | (oset miniscope scope currentscope) | 432 | (oset miniscope scope currentscope) |
diff --git a/lisp/cedet/semantic/tag-file.el b/lisp/cedet/semantic/tag-file.el index 17fd3b45356..d118d9b6203 100644 --- a/lisp/cedet/semantic/tag-file.el +++ b/lisp/cedet/semantic/tag-file.el | |||
| @@ -154,7 +154,7 @@ Depends on `semantic-dependency-include-path' for searching. Always searches | |||
| 154 | (setq result | 154 | (setq result |
| 155 | ;; I don't have a plan for refreshing tags with a dependency | 155 | ;; I don't have a plan for refreshing tags with a dependency |
| 156 | ;; stuck on them somehow. I'm thinking that putting a cache | 156 | ;; stuck on them somehow. I'm thinking that putting a cache |
| 157 | ;; onto the dependancy finding with a hash table might be best. | 157 | ;; onto the dependency finding with a hash table might be best. |
| 158 | ;;(if (semantic--tag-get-property tag 'dependency-file) | 158 | ;;(if (semantic--tag-get-property tag 'dependency-file) |
| 159 | ;; (semantic--tag-get-property tag 'dependency-file) | 159 | ;; (semantic--tag-get-property tag 'dependency-file) |
| 160 | (:override | 160 | (:override |
diff --git a/lisp/cedet/semantic/texi.el b/lisp/cedet/semantic/texi.el index 393d64e6420..30c5a5cf8b6 100644 --- a/lisp/cedet/semantic/texi.el +++ b/lisp/cedet/semantic/texi.el | |||
| @@ -421,7 +421,7 @@ Optional argument POINT is where to look for the environment." | |||
| 421 | texinfo-mode (context) | 421 | texinfo-mode (context) |
| 422 | "List smart completions at point. | 422 | "List smart completions at point. |
| 423 | Since texinfo is not a programming language the default version is not | 423 | Since texinfo is not a programming language the default version is not |
| 424 | useful. Insted, look at the current symbol. If it is a command | 424 | useful. Instead, look at the current symbol. If it is a command |
| 425 | do primitive texinfo built ins. If not, use ispell to lookup words | 425 | do primitive texinfo built ins. If not, use ispell to lookup words |
| 426 | that start with that symbol." | 426 | that start with that symbol." |
| 427 | (let ((prefix (car (oref context :prefix))) | 427 | (let ((prefix (car (oref context :prefix))) |
diff --git a/lisp/cedet/srecode/extract.el b/lisp/cedet/srecode/extract.el index dba4b876edb..80e6f9d8d1c 100644 --- a/lisp/cedet/srecode/extract.el +++ b/lisp/cedet/srecode/extract.el | |||
| @@ -66,7 +66,7 @@ | |||
| 66 | 66 | ||
| 67 | (defmethod srecode-extract-state-extract ((st srecode-extract-state) | 67 | (defmethod srecode-extract-state-extract ((st srecode-extract-state) |
| 68 | endpoint) | 68 | endpoint) |
| 69 | "Perform an extraction on the extract state ST with ENDPOITNT. | 69 | "Perform an extraction on the extract state ST with ENDPOINT. |
| 70 | If there was no waiting inserter, do nothing." | 70 | If there was no waiting inserter, do nothing." |
| 71 | (when (oref st lastinserter) | 71 | (when (oref st lastinserter) |
| 72 | (save-match-data | 72 | (save-match-data |
diff --git a/lisp/cedet/srecode/getset.el b/lisp/cedet/srecode/getset.el index a582d4ff59e..9a6c27dcd73 100644 --- a/lisp/cedet/srecode/getset.el +++ b/lisp/cedet/srecode/getset.el | |||
| @@ -215,7 +215,7 @@ INCLASS specifies if the cursor is already in CLASS or not." | |||
| 215 | (when (not te) | 215 | (when (not te) |
| 216 | (message "Unknown location for tag-end in %s:" (semantic-tag-name aftertag))) | 216 | (message "Unknown location for tag-end in %s:" (semantic-tag-name aftertag))) |
| 217 | (goto-char te) | 217 | (goto-char te) |
| 218 | ;; If there is a comment immediatly after aftertag, skip over it. | 218 | ;; If there is a comment immediately after aftertag, skip over it. |
| 219 | (when (looking-at (concat "\\s-*\n?\\s-*" semantic-lex-comment-regex)) | 219 | (when (looking-at (concat "\\s-*\n?\\s-*" semantic-lex-comment-regex)) |
| 220 | (let ((pos (point)) | 220 | (let ((pos (point)) |
| 221 | (rnext (semantic-find-tag-by-overlay-next (point)))) | 221 | (rnext (semantic-find-tag-by-overlay-next (point)))) |
diff --git a/lisp/cedet/srecode/mode.el b/lisp/cedet/srecode/mode.el index 6ca0cefe9a7..bb2db79acc6 100644 --- a/lisp/cedet/srecode/mode.el +++ b/lisp/cedet/srecode/mode.el | |||
| @@ -366,7 +366,7 @@ programming modes." | |||
| 366 | (define-key srecode-prefix-map oldkey nil) | 366 | (define-key srecode-prefix-map oldkey nil) |
| 367 | ))) | 367 | ))) |
| 368 | 368 | ||
| 369 | ;; Update Keybings | 369 | ;; Update Keybindings |
| 370 | (let ((oldbinding (lookup-key srecode-prefix-map binding))) | 370 | (let ((oldbinding (lookup-key srecode-prefix-map binding))) |
| 371 | 371 | ||
| 372 | ;; During development, allow overrides. | 372 | ;; During development, allow overrides. |