(add-key-binding "Quick View Save" "L"
   (lambda ()
     (using-active-atom
      (let* ((rn (residue-name aa-imol aa-chain-id aa-res-no aa-ins-code))
	     (view-label (string-append aa-chain-id " " (number->string aa-res-no) " " rn)))
	(add-view-here view-label)))))

(add-key-binding "Back to Last View" "U"
   (lambda ()
     (let ((vn (- (n-views) 1)))
       (go-to-view-number vn 0))))