Mercurial > hg > xemacs
comparison lucid/lemacs-compat.el @ 0:107d592c5f4a
DICE versions, used by pers/common, recursive, I think/hope
| author | Henry S. Thompson <ht@inf.ed.ac.uk> |
|---|---|
| date | Mon, 08 Feb 2021 11:44:37 +0000 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:107d592c5f4a |
|---|---|
| 1 ;; Last edited: Thu Sep 24 14:57:39 1992 | |
| 2 ;; backwards compatibility | |
| 3 | |
| 4 (setq mail-aliases t) | |
| 5 | |
| 6 ;; hack not really quite right | |
| 7 (defun current-msec-time () (* 1000 (car (cdr (current-time))))) | |
| 8 (defun last-event-time () (event-timestamp last-input-event)) | |
| 9 | |
| 10 ;; inhibit-local-variables-regexps --> inhibit-first-line-modes-regexps | |
| 11 ;; needs to be fixed for edb | |
| 12 | |
| 13 | |
| 14 (defun ht-rmail-cease-edit () | |
| 15 "check if diary edit, move if so" | |
| 16 (interactive) | |
| 17 (rmail-cease-edit) | |
| 18 (if editing-diary-entry | |
| 19 (progn (setq editing-diary-entry nil) | |
| 20 (ht-output-to-Calendar) | |
| 21 (rmail-output-to-rmail-file ht-diary-file-name 1) | |
| 22 (rmail-delete-forward)))) | |
| 23 | |
| 24 (defun fake-face-width (face) | |
| 25 ;; Hack since can't seem to do this directly | |
| 26 (cdr (assoc 'QUAD_WIDTH (x-font-properties (face-font face))))) | |
| 27 | |
| 28 (defun fake-face-height (face) | |
| 29 ;; Hack since can't seem to do this directly | |
| 30 (let ((prop (x-font-properties (face-font face)))) | |
| 31 ;; highly speculative . . . | |
| 32 (+ (cdr (assoc 'CAP_HEIGHT prop)) | |
| 33 (cdr (assoc 'X_HEIGHT prop))))) | |
| 34 | |
| 35 (if (not (fboundp 'face-width)) | |
| 36 (fset 'face-width (symbol-function 'fake-face-width))) | |
| 37 | |
| 38 (if (not (fboundp 'face-height)) | |
| 39 (fset 'face-height (symbol-function 'fake-face-height))) | |
| 40 | |
| 41 (provide 'lemacs-compat) | |
| 42 |