blob: 6a552e4eca01fbadd6fb69db208f5ae5bd866890 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
diff -ur AspectJForEmacs-1.1b2.original/ AspectJForEmacs-1.1b2/
Only in AspectJForEmacs-1.1b2/ajdee: ajdee.elc
Only in AspectJForEmacs-1.1b2/ajdee: semantic.cache
diff -ur AspectJForEmacs-1.1b2.original/aspectj-mode/aspectj-mode.el AspectJForEmacs-1.1b2/aspectj-mode/aspectj-mode.el
--- AspectJForEmacs-1.1b2.original/aspectj-mode/aspectj-mode.el 2002-12-18 15:31:02.000000000 -0600
+++ AspectJForEmacs-1.1b2/aspectj-mode/aspectj-mode.el 2004-04-19 23:13:40.847760384 -0500
@@ -2135,6 +2135,30 @@
;;;
;;; Declarations data cache management.
;;;
+;;;
+;;; The time returned by file attributes are two 16-bit ints in hi-order
+;;; low-order bit order, but we really don't care. Since time moves
+;;; forward, we only care if the timestamp changes.
+;;;
+(defun aspectj-file-timestamp (fn) (nth 5 (file-attributes fn)))
+
+;;; Non-nil so as to not be confused with uninitialized timestamps.
+(defconst aspectj-notexist-timestamp -1)
+
+(defun aspectj-declaration-file (fn)
+ (concat (file-name-sans-extension fn) ".ajesym")) ; WGG/WARNING/TEST
+
+(defvar aspectj-buffers-declarations nil)
+(make-variable-buffer-local 'aspectj-buffers-declarations)
+
+(defvar aspectj-declarations-timestamp nil)
+(make-variable-buffer-local 'aspectj-declarations-timestamp)
+
+(defun aspectj-declarations-file-timestamp (fn)
+ (let ((declarations-file (aspectj-declaration-file fn)))
+ (if (file-exists-p declarations-file)
+ (aspectj-file-timestamp declarations-file)
+ aspectj-notexist-timestamp)))
;;;
;;; Cached version of aspectj-fetch-declarations.
@@ -2162,31 +2186,6 @@
(setq ad-return-value (copy-tree ad-return-value)))) ; !!! WARNING WGG
;;;
-;;; The time returned by file attributes are two 16-bit ints in hi-order
-;;; low-order bit order, but we really don't care. Since time moves
-;;; forward, we only care if the timestamp changes.
-;;;
-(defun aspectj-file-timestamp (fn) (nth 5 (file-attributes fn)))
-
-;;; Non-nil so as to not be confused with uninitialized timestamps.
-(defconst aspectj-notexist-timestamp -1)
-
-(defun aspectj-declaration-file (fn)
- (concat (file-name-sans-extension fn) ".ajesym")) ; WGG/WARNING/TEST
-
-(defvar aspectj-buffers-declarations nil)
-(make-variable-buffer-local 'aspectj-buffers-declarations)
-
-(defvar aspectj-declarations-timestamp nil)
-(make-variable-buffer-local 'aspectj-declarations-timestamp)
-
-(defun aspectj-declarations-file-timestamp (fn)
- (let ((declarations-file (aspectj-declaration-file fn)))
- (if (file-exists-p declarations-file)
- (aspectj-file-timestamp declarations-file)
- aspectj-notexist-timestamp)))
-
-;;;
;;; For what we're doing with this, maybe we could just check the timestamp,
;;; but this is more inclusive if this check is done when aj-mode is on,
;;; but the declarations file isn't loaded *yet*.
Only in AspectJForEmacs-1.1b2/aspectj-mode: aspectj-mode.elc
Only in AspectJForEmacs-1.1b2/aspectj-mode: aspectj-mode.el~
Only in AspectJForEmacs-1.1b2/aspectj-mode: semantic.cache
Diff finished. Mon Apr 19 23:14:39 2004
|
GitWeb
