diff options
| author | Glenn Morris | 2009-10-01 02:39:07 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-10-01 02:39:07 +0000 |
| commit | bd2afec2e64aa76610f58bb83fe952652f7922f3 (patch) | |
| tree | 1ffc8badc8f27755c18426812dd5ab66b14eb6b8 /lisp/cedet/data-debug.el | |
| parent | 9515cdccc0c3ce9b2be52e1614dcd9f8ccc1ed00 (diff) | |
| download | emacs-bd2afec2e64aa76610f58bb83fe952652f7922f3.tar.gz emacs-bd2afec2e64aa76610f58bb83fe952652f7922f3.zip | |
Doc/message fixes.
Diffstat (limited to 'lisp/cedet/data-debug.el')
| -rw-r--r-- | lisp/cedet/data-debug.el | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/lisp/cedet/data-debug.el b/lisp/cedet/data-debug.el index d132e47fc9a..85455140d4a 100644 --- a/lisp/cedet/data-debug.el +++ b/lisp/cedet/data-debug.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; data-debug.el --- Datastructure Debugger | 1 | ;;; data-debug.el --- Datastructure Debugger |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Eric M. Ludlam <zappo@gnu.org> | 5 | ;; Author: Eric M. Ludlam <zappo@gnu.org> |
| 6 | ;; Version: 0.2 | 6 | ;; Version: 0.2 |
| @@ -111,7 +111,7 @@ PREFIX specifies what to insert at the start of each line." | |||
| 111 | 111 | ||
| 112 | (defun data-debug-insert-overlay-button (overlay prefix prebuttontext) | 112 | (defun data-debug-insert-overlay-button (overlay prefix prebuttontext) |
| 113 | "Insert a button representing OVERLAY. | 113 | "Insert a button representing OVERLAY. |
| 114 | PREFIX is the text that preceeds the button. | 114 | PREFIX is the text that precedes the button. |
| 115 | PREBUTTONTEXT is some text between prefix and the overlay button." | 115 | PREBUTTONTEXT is some text between prefix and the overlay button." |
| 116 | (let ((start (point)) | 116 | (let ((start (point)) |
| 117 | (end nil) | 117 | (end nil) |
| @@ -160,7 +160,7 @@ PREFIX specifies what to insert at the start of each line." | |||
| 160 | prefix | 160 | prefix |
| 161 | prebuttontext) | 161 | prebuttontext) |
| 162 | "Insert a button representing OVERLAYLIST. | 162 | "Insert a button representing OVERLAYLIST. |
| 163 | PREFIX is the text that preceeds the button. | 163 | PREFIX is the text that precedes the button. |
| 164 | PREBUTTONTEXT is some text between prefix and the overlay list button." | 164 | PREBUTTONTEXT is some text between prefix and the overlay list button." |
| 165 | (let ((start (point)) | 165 | (let ((start (point)) |
| 166 | (end nil) | 166 | (end nil) |
| @@ -215,7 +215,7 @@ PREFIX specifies what to insert at the start of each line." | |||
| 215 | 215 | ||
| 216 | (defun data-debug-insert-buffer-button (buffer prefix prebuttontext) | 216 | (defun data-debug-insert-buffer-button (buffer prefix prebuttontext) |
| 217 | "Insert a button representing BUFFER. | 217 | "Insert a button representing BUFFER. |
| 218 | PREFIX is the text that preceeds the button. | 218 | PREFIX is the text that precedes the button. |
| 219 | PREBUTTONTEXT is some text between prefix and the buffer button." | 219 | PREBUTTONTEXT is some text between prefix and the buffer button." |
| 220 | (let ((start (point)) | 220 | (let ((start (point)) |
| 221 | (end nil) | 221 | (end nil) |
| @@ -264,7 +264,7 @@ PREFIX specifies what to insert at the start of each line." | |||
| 264 | prefix | 264 | prefix |
| 265 | prebuttontext) | 265 | prebuttontext) |
| 266 | "Insert a button representing BUFFERLIST. | 266 | "Insert a button representing BUFFERLIST. |
| 267 | PREFIX is the text that preceeds the button. | 267 | PREFIX is the text that precedes the button. |
| 268 | PREBUTTONTEXT is some text between prefix and the buffer list button." | 268 | PREBUTTONTEXT is some text between prefix and the buffer list button." |
| 269 | (let ((start (point)) | 269 | (let ((start (point)) |
| 270 | (end nil) | 270 | (end nil) |
| @@ -320,7 +320,7 @@ PREFIX specifies what to insert at the start of each line." | |||
| 320 | 320 | ||
| 321 | (defun data-debug-insert-process-button (process prefix prebuttontext) | 321 | (defun data-debug-insert-process-button (process prefix prebuttontext) |
| 322 | "Insert a button representing PROCESS. | 322 | "Insert a button representing PROCESS. |
| 323 | PREFIX is the text that preceeds the button. | 323 | PREFIX is the text that precedes the button. |
| 324 | PREBUTTONTEXT is some text between prefix and the process button." | 324 | PREBUTTONTEXT is some text between prefix and the process button." |
| 325 | (let ((start (point)) | 325 | (let ((start (point)) |
| 326 | (end nil) | 326 | (end nil) |
| @@ -372,7 +372,7 @@ PREFIX specifies what to insert at the start of each line." | |||
| 372 | prefix | 372 | prefix |
| 373 | prebuttontext) | 373 | prebuttontext) |
| 374 | "Insert a button representing RING. | 374 | "Insert a button representing RING. |
| 375 | PREFIX is the text that preceeds the button. | 375 | PREFIX is the text that precedes the button. |
| 376 | PREBUTTONTEXT is some text between prefix and the stuff list button." | 376 | PREBUTTONTEXT is some text between prefix and the stuff list button." |
| 377 | (let* ((start (point)) | 377 | (let* ((start (point)) |
| 378 | (end nil) | 378 | (end nil) |
| @@ -481,7 +481,7 @@ PREBUTTONTEXT is some text between prefix and the stuff list button." | |||
| 481 | (defun data-debug-insert-widget (widget prefix prebuttontext) | 481 | (defun data-debug-insert-widget (widget prefix prebuttontext) |
| 482 | "Insert one WIDGET. | 482 | "Insert one WIDGET. |
| 483 | A Symbol is a simple thing, but this provides some face and prefix rules. | 483 | A Symbol is a simple thing, but this provides some face and prefix rules. |
| 484 | PREFIX is the text that preceeds the button. | 484 | PREFIX is the text that precedes the button. |
| 485 | PREBUTTONTEXT is some text between prefix and the thing." | 485 | PREBUTTONTEXT is some text between prefix and the thing." |
| 486 | (let ((string (dd-propertize (format "#<WIDGET %s>" (car widget)) | 486 | (let ((string (dd-propertize (format "#<WIDGET %s>" (car widget)) |
| 487 | 'face 'font-lock-keyword-face))) | 487 | 'face 'font-lock-keyword-face))) |
| @@ -534,7 +534,7 @@ PREFIX specifies what to insert at the start of each line." | |||
| 534 | prefix | 534 | prefix |
| 535 | prebuttontext) | 535 | prebuttontext) |
| 536 | "Insert a button representing STUFFLIST. | 536 | "Insert a button representing STUFFLIST. |
| 537 | PREFIX is the text that preceeds the button. | 537 | PREFIX is the text that precedes the button. |
| 538 | PREBUTTONTEXT is some text between prefix and the stuff list button." | 538 | PREBUTTONTEXT is some text between prefix and the stuff list button." |
| 539 | (let ((start (point)) | 539 | (let ((start (point)) |
| 540 | (end nil) | 540 | (end nil) |
| @@ -593,7 +593,7 @@ PREFIX specifies what to insert at the start of each line." | |||
| 593 | prefix | 593 | prefix |
| 594 | prebuttontext) | 594 | prebuttontext) |
| 595 | "Insert a button representing STUFFVECTOR. | 595 | "Insert a button representing STUFFVECTOR. |
| 596 | PREFIX is the text that preceeds the button. | 596 | PREFIX is the text that precedes the button. |
| 597 | PREBUTTONTEXT is some text between prefix and the stuff vector button." | 597 | PREBUTTONTEXT is some text between prefix and the stuff vector button." |
| 598 | (let* ((start (point)) | 598 | (let* ((start (point)) |
| 599 | (end nil) | 599 | (end nil) |
| @@ -639,8 +639,8 @@ PREBUTTONTEXT is some text between prefix and the stuff vector button." | |||
| 639 | 639 | ||
| 640 | (defun data-debug-insert-symbol-button (symbol prefix prebuttontext) | 640 | (defun data-debug-insert-symbol-button (symbol prefix prebuttontext) |
| 641 | "Insert a button representing SYMBOL. | 641 | "Insert a button representing SYMBOL. |
| 642 | PREFIX is the text that preceeds the button. | 642 | PREFIX is the text that precedes the button. |
| 643 | PREBUTTONTEXT is some text between prefix and the symbol button." | 643 | PREBUTTONTEXT is some text between prefix and the symbol button." |
| 644 | (let ((string | 644 | (let ((string |
| 645 | (cond ((fboundp symbol) | 645 | (cond ((fboundp symbol) |
| 646 | (dd-propertize (concat "#'" (symbol-name symbol)) | 646 | (dd-propertize (concat "#'" (symbol-name symbol)) |
| @@ -664,7 +664,7 @@ PREBUTTONTEXT is some text between prefix and the stuff vector button." | |||
| 664 | (defun data-debug-insert-string (thing prefix prebuttontext) | 664 | (defun data-debug-insert-string (thing prefix prebuttontext) |
| 665 | "Insert one symbol THING. | 665 | "Insert one symbol THING. |
| 666 | A Symbol is a simple thing, but this provides some face and prefix rules. | 666 | A Symbol is a simple thing, but this provides some face and prefix rules. |
| 667 | PREFIX is the text that preceeds the button. | 667 | PREFIX is the text that precedes the button. |
| 668 | PREBUTTONTEXT is some text between prefix and the thing." | 668 | PREBUTTONTEXT is some text between prefix and the thing." |
| 669 | (let ((newstr thing)) | 669 | (let ((newstr thing)) |
| 670 | (while (string-match "\n" newstr) | 670 | (while (string-match "\n" newstr) |
| @@ -680,7 +680,7 @@ PREBUTTONTEXT is some text between prefix and the thing." | |||
| 680 | (defun data-debug-insert-number (thing prefix prebuttontext) | 680 | (defun data-debug-insert-number (thing prefix prebuttontext) |
| 681 | "Insert one symbol THING. | 681 | "Insert one symbol THING. |
| 682 | A Symbol is a simple thing, but this provides some face and prefix rules. | 682 | A Symbol is a simple thing, but this provides some face and prefix rules. |
| 683 | PREFIX is the text that preceeds the button. | 683 | PREFIX is the text that precedes the button. |
| 684 | PREBUTTONTEXT is some text between prefix and the thing." | 684 | PREBUTTONTEXT is some text between prefix and the thing." |
| 685 | (insert prefix prebuttontext | 685 | (insert prefix prebuttontext |
| 686 | (dd-propertize (format "%S" thing) | 686 | (dd-propertize (format "%S" thing) |
| @@ -691,7 +691,7 @@ PREBUTTONTEXT is some text between prefix and the thing." | |||
| 691 | (defun data-debug-insert-lambda-expression (thing prefix prebuttontext) | 691 | (defun data-debug-insert-lambda-expression (thing prefix prebuttontext) |
| 692 | "Insert one lambda expression THING. | 692 | "Insert one lambda expression THING. |
| 693 | A Symbol is a simple thing, but this provides some face and prefix rules. | 693 | A Symbol is a simple thing, but this provides some face and prefix rules. |
| 694 | PREFIX is the text that preceeds the button. | 694 | PREFIX is the text that precedes the button. |
| 695 | PREBUTTONTEXT is some text between prefix and the thing." | 695 | PREBUTTONTEXT is some text between prefix and the thing." |
| 696 | (let ((txt (prin1-to-string thing))) | 696 | (let ((txt (prin1-to-string thing))) |
| 697 | (data-debug-insert-simple-thing | 697 | (data-debug-insert-simple-thing |
| @@ -701,7 +701,7 @@ PREBUTTONTEXT is some text between prefix and the thing." | |||
| 701 | ;;; nil thing | 701 | ;;; nil thing |
| 702 | (defun data-debug-insert-nil (thing prefix prebuttontext) | 702 | (defun data-debug-insert-nil (thing prefix prebuttontext) |
| 703 | "Insert one simple THING with a face. | 703 | "Insert one simple THING with a face. |
| 704 | PREFIX is the text that preceeds the button. | 704 | PREFIX is the text that precedes the button. |
| 705 | PREBUTTONTEXT is some text between prefix and the thing. | 705 | PREBUTTONTEXT is some text between prefix and the thing. |
| 706 | FACE is the face to use." | 706 | FACE is the face to use." |
| 707 | (insert prefix prebuttontext) | 707 | (insert prefix prebuttontext) |
| @@ -717,7 +717,7 @@ FACE is the face to use." | |||
| 717 | ;;; simple thing | 717 | ;;; simple thing |
| 718 | (defun data-debug-insert-simple-thing (thing prefix prebuttontext face) | 718 | (defun data-debug-insert-simple-thing (thing prefix prebuttontext face) |
| 719 | "Insert one simple THING with a face. | 719 | "Insert one simple THING with a face. |
| 720 | PREFIX is the text that preceeds the button. | 720 | PREFIX is the text that precedes the button. |
| 721 | PREBUTTONTEXT is some text between prefix and the thing. | 721 | PREBUTTONTEXT is some text between prefix and the thing. |
| 722 | FACE is the face to use." | 722 | FACE is the face to use." |
| 723 | (insert prefix prebuttontext) | 723 | (insert prefix prebuttontext) |
| @@ -733,7 +733,7 @@ FACE is the face to use." | |||
| 733 | (defun data-debug-insert-custom (thingstring prefix prebuttontext face) | 733 | (defun data-debug-insert-custom (thingstring prefix prebuttontext face) |
| 734 | "Insert one simple THINGSTRING with a face. | 734 | "Insert one simple THINGSTRING with a face. |
| 735 | Use for simple items that need a custom insert. | 735 | Use for simple items that need a custom insert. |
| 736 | PREFIX is the text that preceeds the button. | 736 | PREFIX is the text that precedes the button. |
| 737 | PREBUTTONTEXT is some text between prefix and the thing. | 737 | PREBUTTONTEXT is some text between prefix and the thing. |
| 738 | FACE is the face to use." | 738 | FACE is the face to use." |
| 739 | (insert prefix prebuttontext) | 739 | (insert prefix prebuttontext) |
| @@ -1032,7 +1032,7 @@ Do nothing if already expanded." | |||
| 1032 | ;; Various commands for displaying complex data structures. | 1032 | ;; Various commands for displaying complex data structures. |
| 1033 | 1033 | ||
| 1034 | (defun data-debug-edebug-expr (expr) | 1034 | (defun data-debug-edebug-expr (expr) |
| 1035 | "Dump out the contets of some expression EXPR in edebug with ddebug." | 1035 | "Dump out the contents of some expression EXPR in edebug with ddebug." |
| 1036 | (interactive | 1036 | (interactive |
| 1037 | (list (let ((minibuffer-completing-symbol t)) | 1037 | (list (let ((minibuffer-completing-symbol t)) |
| 1038 | (read-from-minibuffer "Eval: " | 1038 | (read-from-minibuffer "Eval: " |