Mercurial > hg > xemacs-beta
comparison lisp/descr-text.el @ 4605:c786c3fd0740
Listen to the byte-compiler, core Lisp.
lisp/ChangeLog addition:
2009-02-07 Aidan Kehoe <kehoea@parhasard.net>
* descr-text.el (describe-text-sexp):
pp is in packages, use cl-prettyprint instead.
* mule/mule-coding.el (make-8-bit-generate-helper):
Don't uselessly bind args-out-of-range, thank you the byte
compiler.
* mule/mule-coding.el (8-bit-fixed-query-coding-region):
Don't uselessly bind previous-fail, thank you the byte compiler.
* tty-init.el (make-device-early-tty-entry-point):
Set make-device-early-tty-entry-point-called-p, not
pre-tty-win-initted, thank you the byte compiler.
* unicode.el (unicode-query-coding-region):
Don't uselessly bind invalid-sequence-p, thank you the
byte-compiler.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 07 Feb 2009 18:31:21 +0000 |
| parents | 16c9098dd3d2 |
| children | 69cd8e2d2a88 |
comparison
equal
deleted
inserted
replaced
| 4604:e0a8715fdb1f | 4605:c786c3fd0740 |
|---|---|
| 56 | 56 |
| 57 (defun describe-text-sexp (sexp) | 57 (defun describe-text-sexp (sexp) |
| 58 "Insert a short description of SEXP in the current buffer." | 58 "Insert a short description of SEXP in the current buffer." |
| 59 ;; XEmacs change; use the widget functions. | 59 ;; XEmacs change; use the widget functions. |
| 60 (let ((pp (condition-case signal | 60 (let ((pp (condition-case signal |
| 61 (pp-to-string sexp) | 61 ;; XEmacs change; pp is in packages, use cl-prettyprint |
| 62 ;; instead. | |
| 63 (with-output-to-string (cl-prettyprint sexp)) | |
| 62 (error (prin1-to-string signal))))) | 64 (error (prin1-to-string signal))))) |
| 63 (when (string-match "\n\\'" pp) | 65 (when (string-match "\n\\'" pp) |
| 64 (setq pp (substring pp 0 (1- (length pp))))) | 66 (setq pp (substring pp 0 (1- (length pp))))) |
| 65 (if (cond ((string-match "\n" pp) | 67 (if (cond ((string-match "\n" pp) |
| 66 nil) | 68 nil) |