Parent Directory | Revision Log | Patch
revision 1.86 by rms, Thu Mar 28 18:15:47 2002 UTC | revision 1.87 by eliz, Fri May 17 11:37:13 2002 UTC | |
---|---|---|
# | Line 1094 for this to be permanent." | Line 1094 for this to be permanent." |
1094 | (let ((hibits (car timeval)) (lobits (car (cdr timeval)))) | (let ((hibits (car timeval)) (lobits (car (cdr timeval)))) |
1095 | (insert (format "%05o%01o%05o" | (insert (format "%05o%01o%05o" |
1096 | (lsh hibits -2) | (lsh hibits -2) |
1097 | (logior (lsh (logand 3 hibits) 1) (> (logand lobits 32768) 0)) | (logior (lsh (logand 3 hibits) 1) |
1098 | (if (> (logand lobits 32768) 0) 1 0)) | |
1099 | (logand 32767 lobits) | (logand 32767 lobits) |
1100 | )))) | )))) |
1101 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |