Mercurial > emacs
comparison lisp/cus-edit.el @ 85724:c717580e7817
* cus-edit.el (custom-browse-insert-prefix):
* emulation/edt.el (edt-x-emacs19-p): Use featurep 'xemacs.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sun, 28 Oct 2007 17:39:49 +0000 |
| parents | beb909dfc54d |
| children | 16c8cf994132 880960b70474 |
comparison
equal
deleted
inserted
replaced
| 85723:b9cad333d47d | 85724:c717580e7817 |
|---|---|
| 1711 (" `-" "bottom"))) | 1711 (" `-" "bottom"))) |
| 1712 | 1712 |
| 1713 (defun custom-browse-insert-prefix (prefix) | 1713 (defun custom-browse-insert-prefix (prefix) |
| 1714 "Insert PREFIX. On XEmacs convert it to line graphics." | 1714 "Insert PREFIX. On XEmacs convert it to line graphics." |
| 1715 ;; Fixme: do graphics. | 1715 ;; Fixme: do graphics. |
| 1716 (if nil ; (string-match "XEmacs" emacs-version) | 1716 (if nil ; (featurep 'xemacs) |
| 1717 (progn | 1717 (progn |
| 1718 (insert "*") | 1718 (insert "*") |
| 1719 (while (not (string-equal prefix "")) | 1719 (while (not (string-equal prefix "")) |
| 1720 (let ((entry (substring prefix 0 3))) | 1720 (let ((entry (substring prefix 0 3))) |
| 1721 (setq prefix (substring prefix 3)) | 1721 (setq prefix (substring prefix 3)) |