Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Moved some code around to follow better Lisp style.

  • Loading branch information...
commit 234547297ad1872b7ed7fe269fe34deac1798c68 1 parent 38d158d
@jwiegley authored
Showing with 8 additions and 8 deletions.
  1. +8 −8 chess-database.el
View
16 chess-database.el
@@ -24,16 +24,16 @@
(defun chess-database-do-open (module file)
"Returns the opened database object, or nil."
(let* ((name (symbol-name module))
- (handler (intern-soft (concat name "-handler")))
- buffer)
+ (handler (intern-soft (concat name "-handler"))))
(unless handler
(chess-error 'no-such-database name))
- (when (setq buffer (funcall handler 'open file))
- (with-current-buffer buffer
- (setq chess-database-handler handler)
- (add-hook 'kill-buffer-hook 'chess-database-close nil t)
- (add-hook 'after-revert-hook 'chess-database-rescan nil t)
- (current-buffer)))))
+ (let ((buffer (funcall handler 'open file)))
+ (when buffer
+ (with-current-buffer buffer
+ (setq chess-database-handler handler)
+ (add-hook 'kill-buffer-hook 'chess-database-close nil t)
+ (add-hook 'after-revert-hook 'chess-database-rescan nil t)
+ (current-buffer))))))
(defun chess-database-open (file &optional module)
"Returns the opened database object, or nil."
Please sign in to comment.
Something went wrong with that request. Please try again.