| # | Line 242 | Line 242 | proc newsave f { # save a RIF | |
|---|---|---|
| 242 | return 0 | |
| 243 | } | |
| 244 | } | |
| 245 | + | if {[file exists $f] && ! [file writable $f] && |
| 246 | + | [catch {exec chmod u+w $f} curmess]} { |
| 247 | + | beep |
| 248 | + | return 0 |
| 249 | + | } |
| 250 | if [save_vars $f] { | |
| 251 | set rifname [pwd]/$f | |
| 252 | set readonly 0 | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |