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