- (or (and (eq emacs-lock-unlockable-modes t)
- (emacs-lock-live-process-p (current-buffer)))
- (assq major-mode emacs-lock-unlockable-modes)))))
+ (and (if (eq emacs-lock-unlockable-modes t)
+ (emacs-lock-live-process-p (current-buffer))
+ (assq major-mode emacs-lock-unlockable-modes))
+ t))))