Mercurial > hg > xemacs-beta

comparison lisp/utils/pretty-print.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents bcdc7deadc19
children
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
112 ;; setf. 112 ;; setf.
113 113
114 ; Change History 114 ; Change History
115 ; 115 ;
116 ; $Log: pretty-print.el,v $ 116 ; $Log: pretty-print.el,v $
117 ; Revision 1.2 1997/01/04 21:20:13 steve 117 ; Revision 1.3 1997/03/09 02:37:54 steve
118 ; beta6 to beta7 patches 118 ; Patches to beta98
119 ; 119 ;
120 ; Revision 1.1 1997/01/01 21:45:30 steve 120 ; Revision 1.1 1997/01/01 21:45:30 steve
121 ; *** empty log message *** 121 ; *** empty log message ***
122 ; 122 ;
123 ; Revision 1.4 1993/03/25 14:09:52 bosch 123 ; Revision 1.4 1993/03/25 14:09:52 bosch
158 popper-pop-buffers))))) 158 popper-pop-buffers)))))
159 159
160 ;; User level functions 160 ;; User level functions
161 ;;;###autoload 161 ;;;###autoload
162 (defun pp-function (symbol) 162 (defun pp-function (symbol)
163 "Pretty print the function definition of SYMBOL in a seperate buffer" 163 "Pretty print the function definition of SYMBOL in a separate buffer"
164 (interactive 164 (interactive
165 (list (pp-read-symbol 'fboundp "Pretty print function definition of: "))) 165 (list (pp-read-symbol 'fboundp "Pretty print function definition of: ")))
166 (if (compiled-function-p (symbol-function symbol)) 166 (if (compiled-function-p (symbol-function symbol))
167 (if (y-or-n-p 167 (if (y-or-n-p
168 (format "Function %s is byte compiled. Disassemble? " symbol)) 168 (format "Function %s is byte compiled. Disassemble? " symbol))
170 (pp-symbol-cell symbol 'symbol-function)) 170 (pp-symbol-cell symbol 'symbol-function))
171 (pp-symbol-cell symbol 'symbol-function))) 171 (pp-symbol-cell symbol 'symbol-function)))
172 172
173 ;;;###autoload 173 ;;;###autoload
174 (defun pp-variable (symbol) 174 (defun pp-variable (symbol)
175 "Pretty print the variable value of SYMBOL in a seperate buffer" 175 "Pretty print the variable value of SYMBOL in a separate buffer"
176 (interactive 176 (interactive
177 (list (pp-read-symbol 'boundp "Pretty print variable value of: "))) 177 (list (pp-read-symbol 'boundp "Pretty print variable value of: ")))
178 (pp-symbol-cell symbol 'symbol-value)) 178 (pp-symbol-cell symbol 'symbol-value))
179 179
180 ;;;###autoload 180 ;;;###autoload
181 (defun pp-plist (symbol) 181 (defun pp-plist (symbol)
182 "Pretty print the property list of SYMBOL in a seperate buffer" 182 "Pretty print the property list of SYMBOL in a separate buffer"
183 (interactive 183 (interactive
184 (list (pp-read-symbol 'symbol-plist "Pretty print property list of: "))) 184 (list (pp-read-symbol 'symbol-plist "Pretty print property list of: ")))
185 (pp-symbol-cell symbol 'symbol-plist)) 185 (pp-symbol-cell symbol 'symbol-plist))
186 186
187 (defun pp-read-symbol (predicate prompt) 187 (defun pp-read-symbol (predicate prompt)