-(defun darkroom-fill-paragraph-maybe (really)
- (interactive "P")
- (cond (visual-line-mode
- (if (not really)
- (message "not filling paragraph")
- (call-interactively 'fill-paragraph)
- (message "filled paragraph even in visual-line-mode")))
- (t
- (call-interactively 'fill-paragraph))))
+(defun darkroom-confirm-fill-paragraph ()
+ (interactive)
+ (when (yes-or-no-p "Really fill paragraph?")
+ (call-interactively 'fill-paragraph)))