| 37 | | (and (eq 0 (apply 'call-process-region (point-min) (point-max) |
|---|
| 38 | | "uncompface" |
|---|
| 39 | | 'delete '(t nil) nil)) |
|---|
| 40 | | (progn |
|---|
| 41 | | (goto-char (point-min)) |
|---|
| 42 | | (insert "/* Width=48, Height=48 */\n") |
|---|
| 43 | | ;; I just can't get "icontopbm" to work correctly on its |
|---|
| 44 | | ;; own in XEmacs. And Emacs doesn't understand un-raw pbm |
|---|
| 45 | | ;; files. |
|---|
| 46 | | (if (not (featurep 'xemacs)) |
|---|
| 47 | | (eq 0 (call-process-region (point-min) (point-max) |
|---|
| 48 | | "icontopbm" |
|---|
| 49 | | 'delete '(t nil))) |
|---|
| 50 | | (shell-command-on-region (point-min) (point-max) |
|---|
| 51 | | "icontopbm | pnmnoraw" |
|---|
| 52 | | (current-buffer) t) |
|---|
| 53 | | t)) |
|---|
| 54 | | (buffer-string)))) |
|---|
| | 37 | (let ((coding-system-for-read 'raw-text) |
|---|
| | 38 | ;; At least "icontopbm" doesn't work with Windows because |
|---|
| | 39 | ;; the line-break code is converted into CRLF by default. |
|---|
| | 40 | (coding-system-for-write 'binary)) |
|---|
| | 41 | (and (eq 0 (apply 'call-process-region (point-min) (point-max) |
|---|
| | 42 | "uncompface" |
|---|
| | 43 | 'delete '(t nil) nil)) |
|---|
| | 44 | (progn |
|---|
| | 45 | (goto-char (point-min)) |
|---|
| | 46 | (insert "/* Width=48, Height=48 */\n") |
|---|
| | 47 | ;; I just can't get "icontopbm" to work correctly on its |
|---|
| | 48 | ;; own in XEmacs. And Emacs doesn't understand un-raw pbm |
|---|
| | 49 | ;; files. |
|---|
| | 50 | (if (not (featurep 'xemacs)) |
|---|
| | 51 | (eq 0 (call-process-region (point-min) (point-max) |
|---|
| | 52 | "icontopbm" |
|---|
| | 53 | 'delete '(t nil))) |
|---|
| | 54 | (shell-command-on-region (point-min) (point-max) |
|---|
| | 55 | "icontopbm | pnmnoraw" |
|---|
| | 56 | (current-buffer) t) |
|---|
| | 57 | t)) |
|---|
| | 58 | (buffer-string))))) |
|---|
