1239 |
(beginning-of-line 2)) |
(beginning-of-line 2)) |
1240 |
(cond ((fboundp 'zmacs-activate-region) (zmacs-activate-region)) |
(cond ((fboundp 'zmacs-activate-region) (zmacs-activate-region)) |
1241 |
((boundp 'make-active) (setq mark-active t))) |
((boundp 'make-active) (setq mark-active t))) |
1242 |
(if (yes-or-no-p "Delete and rebuilt header ") |
(if (yes-or-no-p "Delete and rebuild header? ") |
1243 |
(delete-region (point-min) (point)))) |
(delete-region (point-min) (point)))) |
1244 |
|
|
1245 |
;; Insert the mode line |
;; Insert the mode line |