Skip to content

Commit

Permalink
Fixed new file edit issue
Browse files Browse the repository at this point in the history
  • Loading branch information
bjasspa committed Sep 18, 2024
1 parent e3511e3 commit 09e0a98
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 10 deletions.
9 changes: 0 additions & 9 deletions microemacs/macros/ehftools.emf
Original file line number Diff line number Diff line change
Expand Up @@ -7,11 +7,9 @@
; Synopsis: On-line help macros.
; Authors: Steven Phillips
;
-2 ml-write "HERE 1"
0 define-macro-file utils ascii-time var-str-sub str-to-regex
define-macro-file htmltool html-to-ehf
define-macro-file format clean
-2 ml-write "HERE 2"

define-macro ehf-process-buffer
; Carry on as normal
Expand Down Expand Up @@ -150,22 +148,17 @@ define-macro ehf-process-buffer
!emacro

define-macro ehf-process-all
-2 ml-write "HERE A1"
!force 0 delete-buffer "*scratch*"
delete-other-windows
split-window-vertically
-2 ml-write "HERE A2"
find-file "me.ehf"
beginning-of-buffer
set-mark
end-of-buffer
-1 kill-region
-2 ml-write "HERE A3"
next-window
!while &not &seq $buffer-bname "me.ehf"
-2 ml-write "HERE A4"
ehf-process-buffer
-2 ml-write "HERE A5"
beginning-of-buffer
set-mark
!while &seq @wc "#"
Expand Down Expand Up @@ -296,8 +289,6 @@ define-macro ehf-process-all

; don't advertise the definition of start-up
0 define-macro start-up
-2 ml-write "HERE 3"
ehf-process-all
-2 ml-write "HERE 4"
quick-exit
!emacro
2 changes: 1 addition & 1 deletion microemacs/src/file.c
Original file line number Diff line number Diff line change
Expand Up @@ -904,7 +904,7 @@ bufferOutOfDate(meBuffer *bp)
if(ft & (meIOTYPE_TFS|meIOTYPE_HTTP|meIOTYPE_FTP|meIOTYPE_FTPE))
return 0;
if(ft & meIOTYPE_NOTEXIST)
return -1;
return ((meFiletimeIsSet(bp->stats.stmtime)) ? -1:0);
if(meFiletimeIsSame(stats.stmtime,bp->stats.stmtime))
return 0;
return ((meFiletimeIsModified(stats.stmtime,bp->stats.stmtime)) ? 2:1);
Expand Down

0 comments on commit 09e0a98

Please sign in to comment.