(if liece-display-frame-title
(liece-set-frame-title-format)))
+(defun liece-set-beep (buffer &optional arg)
+ (with-current-buffer buffer
+ (setq liece-beep (if arg (plusp arg) (not liece-beep))
+ liece-beep-indicator (if liece-beep "B" "-"))
+ (force-mode-line-update)))
+
+(defmacro liece-beep (&optional arg)
+ (list 'funcall 'liece-beep-function arg))
+
(defun liece-freeze (buffer &optional arg)
(with-current-buffer buffer
(setq liece-freeze (if arg (plusp arg) (not liece-freeze))
(setq args (nconc args (list line))))
args))))
-(defmacro liece-message (&rest msg)
+(defmacro liece-message (&rest message)
`(message "%s: %s"
(product-name (product-find 'liece-version))
- (format ,@msg)))
+ (format ,@message)))
(defmacro liece-insert-change (buffer msg)
`(liece-insert ,buffer (concat liece-change-prefix ,msg)))