aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/cedet/data-debug.el
diff options
context:
space:
mode:
authorGlenn Morris2009-10-01 02:39:07 +0000
committerGlenn Morris2009-10-01 02:39:07 +0000
commitbd2afec2e64aa76610f58bb83fe952652f7922f3 (patch)
tree1ffc8badc8f27755c18426812dd5ab66b14eb6b8 /lisp/cedet/data-debug.el
parent9515cdccc0c3ce9b2be52e1614dcd9f8ccc1ed00 (diff)
downloademacs-bd2afec2e64aa76610f58bb83fe952652f7922f3.tar.gz
emacs-bd2afec2e64aa76610f58bb83fe952652f7922f3.zip
Doc/message fixes.
Diffstat (limited to 'lisp/cedet/data-debug.el')
-rw-r--r--lisp/cedet/data-debug.el38
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.
114PREFIX is the text that preceeds the button. 114PREFIX is the text that precedes the button.
115PREBUTTONTEXT is some text between prefix and the overlay button." 115PREBUTTONTEXT 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.
163PREFIX is the text that preceeds the button. 163PREFIX is the text that precedes the button.
164PREBUTTONTEXT is some text between prefix and the overlay list button." 164PREBUTTONTEXT 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.
218PREFIX is the text that preceeds the button. 218PREFIX is the text that precedes the button.
219PREBUTTONTEXT is some text between prefix and the buffer button." 219PREBUTTONTEXT 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.
267PREFIX is the text that preceeds the button. 267PREFIX is the text that precedes the button.
268PREBUTTONTEXT is some text between prefix and the buffer list button." 268PREBUTTONTEXT 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.
323PREFIX is the text that preceeds the button. 323PREFIX is the text that precedes the button.
324PREBUTTONTEXT is some text between prefix and the process button." 324PREBUTTONTEXT 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.
375PREFIX is the text that preceeds the button. 375PREFIX is the text that precedes the button.
376PREBUTTONTEXT is some text between prefix and the stuff list button." 376PREBUTTONTEXT 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.
483A Symbol is a simple thing, but this provides some face and prefix rules. 483A Symbol is a simple thing, but this provides some face and prefix rules.
484PREFIX is the text that preceeds the button. 484PREFIX is the text that precedes the button.
485PREBUTTONTEXT is some text between prefix and the thing." 485PREBUTTONTEXT 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.
537PREFIX is the text that preceeds the button. 537PREFIX is the text that precedes the button.
538PREBUTTONTEXT is some text between prefix and the stuff list button." 538PREBUTTONTEXT 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.
596PREFIX is the text that preceeds the button. 596PREFIX is the text that precedes the button.
597PREBUTTONTEXT is some text between prefix and the stuff vector button." 597PREBUTTONTEXT 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. 642PREFIX is the text that precedes the button.
643 PREBUTTONTEXT is some text between prefix and the symbol button." 643PREBUTTONTEXT 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.
666A Symbol is a simple thing, but this provides some face and prefix rules. 666A Symbol is a simple thing, but this provides some face and prefix rules.
667PREFIX is the text that preceeds the button. 667PREFIX is the text that precedes the button.
668PREBUTTONTEXT is some text between prefix and the thing." 668PREBUTTONTEXT 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.
682A Symbol is a simple thing, but this provides some face and prefix rules. 682A Symbol is a simple thing, but this provides some face and prefix rules.
683PREFIX is the text that preceeds the button. 683PREFIX is the text that precedes the button.
684PREBUTTONTEXT is some text between prefix and the thing." 684PREBUTTONTEXT 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.
693A Symbol is a simple thing, but this provides some face and prefix rules. 693A Symbol is a simple thing, but this provides some face and prefix rules.
694PREFIX is the text that preceeds the button. 694PREFIX is the text that precedes the button.
695PREBUTTONTEXT is some text between prefix and the thing." 695PREBUTTONTEXT 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.
704PREFIX is the text that preceeds the button. 704PREFIX is the text that precedes the button.
705PREBUTTONTEXT is some text between prefix and the thing. 705PREBUTTONTEXT is some text between prefix and the thing.
706FACE is the face to use." 706FACE 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.
720PREFIX is the text that preceeds the button. 720PREFIX is the text that precedes the button.
721PREBUTTONTEXT is some text between prefix and the thing. 721PREBUTTONTEXT is some text between prefix and the thing.
722FACE is the face to use." 722FACE 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.
735Use for simple items that need a custom insert. 735Use for simple items that need a custom insert.
736PREFIX is the text that preceeds the button. 736PREFIX is the text that precedes the button.
737PREBUTTONTEXT is some text between prefix and the thing. 737PREBUTTONTEXT is some text between prefix and the thing.
738FACE is the face to use." 738FACE 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: "