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 |