diff options
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 @@ ;;; data-debug.el --- Datastructure Debugger -;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam <zappo@gnu.org> ;; Version: 0.2 @@ -111,7 +111,7 @@ PREFIX specifies what to insert at the start of each line." (defun data-debug-insert-overlay-button (overlay prefix prebuttontext) "Insert a button representing OVERLAY. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the overlay button." (let ((start (point)) (end nil) @@ -160,7 +160,7 @@ PREFIX specifies what to insert at the start of each line." prefix prebuttontext) "Insert a button representing OVERLAYLIST. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the overlay list button." (let ((start (point)) (end nil) @@ -215,7 +215,7 @@ PREFIX specifies what to insert at the start of each line." (defun data-debug-insert-buffer-button (buffer prefix prebuttontext) "Insert a button representing BUFFER. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the buffer button." (let ((start (point)) (end nil) @@ -264,7 +264,7 @@ PREFIX specifies what to insert at the start of each line." prefix prebuttontext) "Insert a button representing BUFFERLIST. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the buffer list button." (let ((start (point)) (end nil) @@ -320,7 +320,7 @@ PREFIX specifies what to insert at the start of each line." (defun data-debug-insert-process-button (process prefix prebuttontext) "Insert a button representing PROCESS. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the process button." (let ((start (point)) (end nil) @@ -372,7 +372,7 @@ PREFIX specifies what to insert at the start of each line." prefix prebuttontext) "Insert a button representing RING. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the stuff list button." (let* ((start (point)) (end nil) @@ -481,7 +481,7 @@ PREBUTTONTEXT is some text between prefix and the stuff list button." (defun data-debug-insert-widget (widget prefix prebuttontext) "Insert one WIDGET. A Symbol is a simple thing, but this provides some face and prefix rules. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the thing." (let ((string (dd-propertize (format "#<WIDGET %s>" (car widget)) 'face 'font-lock-keyword-face))) @@ -534,7 +534,7 @@ PREFIX specifies what to insert at the start of each line." prefix prebuttontext) "Insert a button representing STUFFLIST. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the stuff list button." (let ((start (point)) (end nil) @@ -593,7 +593,7 @@ PREFIX specifies what to insert at the start of each line." prefix prebuttontext) "Insert a button representing STUFFVECTOR. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the stuff vector button." (let* ((start (point)) (end nil) @@ -639,8 +639,8 @@ PREBUTTONTEXT is some text between prefix and the stuff vector button." (defun data-debug-insert-symbol-button (symbol prefix prebuttontext) "Insert a button representing SYMBOL. - PREFIX is the text that preceeds the button. - PREBUTTONTEXT is some text between prefix and the symbol button." +PREFIX is the text that precedes the button. +PREBUTTONTEXT is some text between prefix and the symbol button." (let ((string (cond ((fboundp symbol) (dd-propertize (concat "#'" (symbol-name symbol)) @@ -664,7 +664,7 @@ PREBUTTONTEXT is some text between prefix and the stuff vector button." (defun data-debug-insert-string (thing prefix prebuttontext) "Insert one symbol THING. A Symbol is a simple thing, but this provides some face and prefix rules. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the thing." (let ((newstr thing)) (while (string-match "\n" newstr) @@ -680,7 +680,7 @@ PREBUTTONTEXT is some text between prefix and the thing." (defun data-debug-insert-number (thing prefix prebuttontext) "Insert one symbol THING. A Symbol is a simple thing, but this provides some face and prefix rules. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the thing." (insert prefix prebuttontext (dd-propertize (format "%S" thing) @@ -691,7 +691,7 @@ PREBUTTONTEXT is some text between prefix and the thing." (defun data-debug-insert-lambda-expression (thing prefix prebuttontext) "Insert one lambda expression THING. A Symbol is a simple thing, but this provides some face and prefix rules. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the thing." (let ((txt (prin1-to-string thing))) (data-debug-insert-simple-thing @@ -701,7 +701,7 @@ PREBUTTONTEXT is some text between prefix and the thing." ;;; nil thing (defun data-debug-insert-nil (thing prefix prebuttontext) "Insert one simple THING with a face. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the thing. FACE is the face to use." (insert prefix prebuttontext) @@ -717,7 +717,7 @@ FACE is the face to use." ;;; simple thing (defun data-debug-insert-simple-thing (thing prefix prebuttontext face) "Insert one simple THING with a face. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the thing. FACE is the face to use." (insert prefix prebuttontext) @@ -733,7 +733,7 @@ FACE is the face to use." (defun data-debug-insert-custom (thingstring prefix prebuttontext face) "Insert one simple THINGSTRING with a face. Use for simple items that need a custom insert. -PREFIX is the text that preceeds the button. +PREFIX is the text that precedes the button. PREBUTTONTEXT is some text between prefix and the thing. FACE is the face to use." (insert prefix prebuttontext) @@ -1032,7 +1032,7 @@ Do nothing if already expanded." ;; Various commands for displaying complex data structures. (defun data-debug-edebug-expr (expr) - "Dump out the contets of some expression EXPR in edebug with ddebug." + "Dump out the contents of some expression EXPR in edebug with ddebug." (interactive (list (let ((minibuffer-completing-symbol t)) (read-from-minibuffer "Eval: " |