TRAMP not working with ehistory

[PA Monwall]

Enter your bug report in this message, including as much detail as you
possibly can about the problem, what you did to cause it and what the
local and remote machines are.

If you can give a simple set of instructions to make this bug happen
reliably, please include those.  Thank you for helping kill bugs in
TRAMP.

Another useful thing to do is to put (setq tramp-debug-buffer t) in
the ~/.emacs file and to repeat the bug.  Then, include the contents
of the *tramp/foo* buffer and the *debug tramp/foo* buffer in your bug
report.

--bug report follows this line--


I get the following error when loading a file with edit-history:

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p
"/usr/local/share/emacs/site-lisp/default.el")
  logand("/usr/local/share/emacs/site-lisp/default.el" -134217728)
  event-modifiers("/usr/local/share/emacs/site-lisp/default.el")
  tramp-completion-mode("/usr")
  tramp-completion-handle-file-name-directory("/usr")
  apply(tramp-completion-handle-file-name-directory "/usr")
  tramp-completion-file-name-handler(file-name-directory "/usr")
  file-name-directory("/usr")
  file-truename("/usr")
  apply(file-truename "/usr")
  tramp-completion-run-real-handler(file-truename ("/usr"))
  tramp-completion-file-name-handler(file-truename "/usr")
  file-truename("/usr" (94) (nil))
  file-truename("/usr/local" (94) (nil))
  file-truename("/usr/local/share" (94) (nil))
  file-truename("/usr/local/share/emacs" (94) (nil))
  file-truename("/usr/local/share/emacs/site-lisp" (94) (nil))
  file-truename("/usr/local/share/emacs/site-lisp/default.el")
  find-file-noselect("/usr/local/share/emacs/site-lisp/default.el" nil
nil nil)
  find-file("/usr/local/share/emacs/site-lisp/default.el")
  ehistory-find-file()
  call-interactively(ehistory-find-file)

This is edit-history:

;; -----------------------------------------------------------------
;; edit-history.el -- Maintain a menu of recently accessed files and
;; buffers.
;;
;; Author: Mic Bowman (address@hidden)
;; -----------------------------------------------------------------
(require 'cl)

(add-hook 'find-file-hooks 'ehistory-add-to-history)
(add-hook 'kill-emacs-hook 'ehistory-save-file-list)
(add-hook 'kill-buffer-hook 'ehistory-kill-buffer)

;; -----------------------------------------------------------------
(defvar ehistory-history-file "~/.emacs_ehistory"
  "File for saving edit history between sessions.")
;(setq ehistory-history-file (concat "~/.emacs_ehistory_" (user-uid)))
;(setq ehistory-history-file (concat "/emacs/lib/ehistory_"
(user-login-name)))



;; -----------------------------------------------------------------
(defvar ehistory-history-length 40
  "Length of file history.")

;; -----------------------------------------------------------------
(defvar ehistory-file-list nil
  "List of most recently accessed files.")

;; -----------------------------------------------------------------
;  ehistory-add-to-history
;
;  Add a file to the list of recently accessed files.  This function
;  should be called from the find-file-hooks when a file is loaded.
;; -----------------------------------------------------------------
(defun ehistory-add-to-history ()
  (let ((fname (buffer-file-name))
        (hlist ehistory-file-list)
        (hlen  (1- ehistory-history-length)))
    (if (not (string= fname (expand-file-name ehistory-history-file)))
        (progn
          (setq ehistory-file-list
                (cons fname (ehistory-clean fname hlist hlen)))
          (ehistory-update-menu-bar)))))

;; -----------------------------------------------------------------
;  ehistory-clean
;
;  Clean the history list. Remove the new file from the list and
;  truncate it to the correct length.
;; -----------------------------------------------------------------
(defun ehistory-clean (fname hlist hlen)
  (cond ((null hlist) nil)
        ((= hlen 0) nil)
        ((string= fname (car hlist))
         (ehistory-clean fname (cdr hlist) (1- hlen)))
        ((cons (car hlist) (ehistory-clean fname (cdr hlist) (1- hlen))))))

;; -----------------------------------------------------------------
;  ehistory-save-file-list
;
;  Save the file access history list.  This should be added as a hook to
;  kill-emacs-hook.
;; -----------------------------------------------------------------
(defun ehistory-save-file-list ()
  "Save the file access history list."
  (interactive)
  (save-excursion
    (let ((file ehistory-history-file))
      (message (format "Saving edit history to file %s." file))
      (set-buffer (find-file-noselect file))
      (goto-char (point-min))
      (delete-region (point-min) (point-max))
      (print ehistory-file-list (current-buffer))
      (write-file file)
      (kill-buffer (current-buffer)))))

;; -----------------------------------------------------------------
;  ehistory-load-file-list
;
;  Load an edit history file.  This should be called in the startup
;  code.
;; -----------------------------------------------------------------
(defun ehistory-load-file-list ()
  "Load the edit history file specified in the variable
ehistory-history-file."
  (interactive)
  (let ((file ehistory-history-file))
    (setq ehistory-file-list nil)
    (if (file-readable-p file)
        (save-excursion
          (message (format "Loading edit history from %s..." file))
          (set-buffer (find-file-noselect file))
          (goto-char (point-min))
          (setq ehistory-file-list (read (current-buffer)))
          (kill-buffer (current-buffer)))
      (message (format "Unable to load history from %s..." file)))
    (ehistory-update-menu-bar)))

;; -----------------------------------------------------------------
;  ehistory-files-menu
;
;  Popup a menu of recently edited files.
;; -----------------------------------------------------------------
(defun ehistory-files-menu (flist)
  (if (null flist)
      nil
    (cons
     (nconc (list (car flist) (car flist) (cons nil nil))
'ehistory-find-file)
     (ehistory-files-menu (cdr flist)))))

;; -----------------------------------------------------------------
;  ehistory-buffers-menu
;
;  A faster and more useful (for me) buffer menu.
;; -----------------------------------------------------------------
(defun ehistory-buffer-menu (blist)
  (cond ((null blist) nil)
        ((string-match " *\\*" (buffer-name (car blist)))
         (ehistory-buffer-menu (cdr blist)))
        ((cons
          (nconc (list (buffer-name (car blist))
                       (buffer-name (car blist))
                       (cons nil nil))
                 'ehistory-select-buffer)
          (ehistory-buffer-menu (cdr blist))))))

(defun ehistory-current-buffer (buf)
  (equal (buffer-name (current-buffer)) (car buf)))

(defun ehistory-kill-buffer ()
  (let ((menu (remove-if 'ehistory-current-buffer
ehistory-last-buffer-list)))
    (setq ehistory-last-buffer-list menu)
    (setq menu (cons 'keymap (cons "Select Buffer" menu)))
    (define-key global-map [menu-bar buffer]
      (cons "Buffers" menu))))

;; -----------------------------------------------------------------
;  ehistory-update-menu-bar
;; -----------------------------------------------------------------
(defvar ehistory-last-buffer-list nil)
(defvar ehistory-last-file-list nil)
(defvar ehistory-update-count 0)

(defun ehistory-update-menu-bar ()
  (let ((bmenu (ehistory-buffer-menu (buffer-list)))
        (fmenu (ehistory-files-menu ehistory-file-list)))
    (setq ehistory-update-count (+ 1 ehistory-update-count))

    (if (not (equal bmenu ehistory-last-buffer-list))
        (progn
          (setq ehistory-last-buffer-list bmenu)
          (setq bmenu (cons 'keymap (cons "Select Buffer" bmenu)))
          (define-key global-map [menu-bar buffer]
            (cons "Buffers" bmenu))))

    (if (not (equal fmenu ehistory-last-file-list))
        (progn
          (setq ehistory-last-file-list fmenu)
          (setq fmenu (cons 'keymap (cons "Select File" fmenu)))
          (define-key global-map [menu-bar history]
            (cons "History" fmenu))))))

;; -----------------------------------------------------------------
(defun ehistory-find-file ()
  (interactive)
  (find-file last-command-event))

(defun ehistory-select-buffer ()
  (interactive)
  (switch-to-buffer last-command-event))

;; -----------------------------------------------------------------
(if (member 'menu-bar-update-buffers menu-bar-update-hook)
    (remove-hook 'menu-bar-update-hook 'menu-bar-update-buffers))

(provide 'edit-history)

---------------------------------------------------------------------------

Emacs  : GNU Emacs 21.2.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll
bars)
 of 2002-03-28 on lulpc03
Package: tramp (2.0.28)

current state:
==============
(setq
 tramp-ls-command nil
 tramp-test-groks-nt nil
 tramp-file-exists-command nil
 tramp-current-multi-method nil
 tramp-current-method nil
 tramp-current-user nil
 tramp-current-host nil
 tramp-auto-save-directory nil
 tramp-default-method "ssh"
 tramp-rsh-end-of-line "\n"
 tramp-password-end-of-line "\n"
 tramp-remote-path '("/bin" "/usr/bin" "/usr/sbin" "/usr/local/bin"
"/usr/ccs/bin" "/local/bin" "/local/freeware/bin"
                     "/local/gnu/bin" "/usr/freeware/bin" "/usr/pkg/bin"
"/usr/contrib/bin")
 tramp-login-prompt-regexp ".*ogin: *"
 tramp-password-prompt-regexp "^.*\\([pP]assword\\|passphrase.*\\):? *"
 tramp-wrong-passwd-regexp "^.*\\(Connection
\\(?:\\(?:clo\\|refu\\)sed\\)\\|Host key verification failed\\.\\|Login
\\(?:[Ii]ncorrect\\)\\|Name or service not known\\|\\(?:Permission
denied\\|Sorry, try again\\)\\.\\).*\\|^.*\\(Received signal
[0-9]+\\).*"
 tramp-yesno-prompt-regexp "\\(Are you sure you want to continue
connecting (yes/no)\\?\\)\\s-*"
 tramp-yn-prompt-regexp "\\(Store key in cache\\? (y/n)\\)\\s-*"
 tramp-temp-name-prefix "tramp."
 tramp-file-name-structure '("^/\\(\\([a-zA-Z_0-9-]+\\):\\)?\\(\\([^:@/ 
]*\\)@\\)?\\([a-zA-Z0-9_.#-]*\\):\\(.*$\\)" 2 4 5
                             6)
 tramp-file-name-regexp "\\`/[^/:]+:"
 tramp-multi-file-name-structure
'("^/\\(\\([a-zA-Z_0-9-]+\\)\\)?\\(\\(:%s\\)+\\)?:\\(.*$\\)" 2 3 -1)
 tramp-multi-file-name-hop-structure '("\\([a-zA-Z_0-9-]+\\):\\([^:@/ 
]*\\)@\\([a-zA-Z0-9_.#-]*\\)" 1 2 3)
 tramp-multi-methods '("multi" "multiu")
 tramp-multi-connection-function-alist '(("telnet"
tramp-multi-connect-telnet "telnet %h%n")
                                         ("rsh" tramp-multi-connect-rlogin "rsh 
%h -l %u%n")
                                         ("ssh" tramp-multi-connect-rlogin "ssh 
%h -l %u%n")
                                         ("su" tramp-multi-connect-su "su - 
%u%n")
                                         ("sudo" tramp-multi-connect-su "sudo 
-u %u -s%n"))
 tramp-methods '(("smb") ("ftp")
                 ("rcp" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "rsh") (tramp-rcp-program "rcp")
                  (tramp-remote-sh "/bin/sh") (tramp-rsh-args nil) 
(tramp-rcp-args
nil) (tramp-rcp-keep-date-arg "-p")
                  (tramp-su-program nil) (tramp-su-args nil) 
(tramp-telnet-program
nil) (tramp-telnet-args nil))
                 ("scp" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "ssh") (tramp-rcp-program "scp")
                  (tramp-remote-sh "/bin/sh") (tramp-rsh-args ("-e" "none"))
(tramp-rcp-args nil) (tramp-rcp-keep-date-arg "-p")
                  (tramp-su-program nil) (tramp-su-args nil) 
(tramp-telnet-program
nil) (tramp-telnet-args nil))
                 ("scp1" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "ssh") (tramp-rcp-program "scp")
                  (tramp-remote-sh "/bin/sh") (tramp-rsh-args ("-1" "-e" 
"none"))
(tramp-rcp-args ("-1"))
                  (tramp-rcp-keep-date-arg "-p") (tramp-su-program nil) 
(tramp-su-args
nil) (tramp-telnet-program nil)
                  (tramp-telnet-args nil))
                 ("scp2" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "ssh") (tramp-rcp-program "scp")
                  (tramp-remote-sh "/bin/sh") (tramp-rsh-args ("-2" "-e" 
"none"))
(tramp-rcp-args ("-2"))
                  (tramp-rcp-keep-date-arg "-p") (tramp-su-program nil) 
(tramp-su-args
nil) (tramp-telnet-program nil)
                  (tramp-telnet-args nil))
                 ("scp1_old" (tramp-connection-function 
tramp-open-connection-rsh)
(tramp-rsh-program "ssh1")
                  (tramp-rcp-program "scp1") (tramp-remote-sh "/bin/sh")
(tramp-rsh-args ("-e" "none")) (tramp-rcp-args nil)
                  (tramp-rcp-keep-date-arg "-p") (tramp-su-program nil) 
(tramp-su-args
nil) (tramp-telnet-program nil)
                  (tramp-telnet-args nil))
                 ("scp2_old" (tramp-connection-function 
tramp-open-connection-rsh)
(tramp-rsh-program "ssh2")
                  (tramp-rcp-program "scp2") (tramp-remote-sh "/bin/sh")
(tramp-rsh-args ("-e" "none")) (tramp-rcp-args nil)
                  (tramp-rcp-keep-date-arg "-p") (tramp-su-program nil) 
(tramp-su-args
nil) (tramp-telnet-program nil)
                  (tramp-telnet-args nil))
                 ("rsync" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "ssh")
                  (tramp-rcp-program "rsync") (tramp-remote-sh "/bin/sh")
(tramp-rsh-args ("-e" "none"))
                  (tramp-rcp-args ("-e" "ssh")) (tramp-rcp-keep-date-arg "-t")
(tramp-su-program nil) (tramp-su-args nil)
                  (tramp-telnet-program nil) (tramp-telnet-args nil))
                 ("rsh" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "rsh") (tramp-rcp-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-rsh-args nil) 
(tramp-rcp-args
nil) (tramp-rcp-keep-date-arg nil)
                  (tramp-su-program nil) (tramp-su-args nil) 
(tramp-telnet-program
nil) (tramp-telnet-args nil))
                 ("ssh" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "ssh") (tramp-rcp-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-rsh-args ("-e" "none"))
(tramp-rcp-args nil) (tramp-rcp-keep-date-arg nil)
                  (tramp-su-program nil) (tramp-su-args nil) 
(tramp-telnet-program
nil) (tramp-telnet-args nil))
                 ("ssh1" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "ssh") (tramp-rcp-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-rsh-args ("-1" "-e" 
"none"))
(tramp-rcp-args ("-1"))
                  (tramp-rcp-keep-date-arg nil) (tramp-su-program nil) 
(tramp-su-args
nil) (tramp-telnet-program nil)
                  (tramp-telnet-args nil))
                 ("ssh2" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "ssh") (tramp-rcp-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-rsh-args ("-2" "-e" 
"none"))
(tramp-rcp-args ("-2"))
                  (tramp-rcp-keep-date-arg nil) (tramp-su-program nil) 
(tramp-su-args
nil) (tramp-telnet-program nil)
                  (tramp-telnet-args nil))
                 ("ssh1_old" (tramp-connection-function 
tramp-open-connection-rsh)
(tramp-rsh-program "ssh1")
                  (tramp-rcp-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-rsh-args
("-e" "none")) (tramp-rcp-args nil)
                  (tramp-rcp-keep-date-arg nil) (tramp-su-program nil) 
(tramp-su-args
nil) (tramp-telnet-program nil)
                  (tramp-telnet-args nil))
                 ("ssh2_old" (tramp-connection-function 
tramp-open-connection-rsh)
(tramp-rsh-program "ssh2")
                  (tramp-rcp-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-rsh-args
("-e" "none")) (tramp-rcp-args nil)
                  (tramp-rcp-keep-date-arg nil) (tramp-su-program nil) 
(tramp-su-args
nil) (tramp-telnet-program nil)
                  (tramp-telnet-args nil))
                 ("telnet" (tramp-connection-function 
tramp-open-connection-telnet)
(tramp-rsh-program nil)
                  (tramp-rcp-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-rsh-args
nil) (tramp-rcp-args nil)
                  (tramp-rcp-keep-date-arg nil) (tramp-su-program nil) 
(tramp-su-args
nil) (tramp-telnet-program "telnet")
                  (tramp-telnet-args nil))
                 ("su" (tramp-connection-function tramp-open-connection-su)
(tramp-rsh-program nil) (tramp-rcp-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-rsh-args nil) 
(tramp-rcp-args
nil) (tramp-rcp-keep-date-arg nil)
                  (tramp-su-program "su") (tramp-su-args ("-" "%u"))
(tramp-telnet-program nil) (tramp-telnet-args nil))
                 ("sudo" (tramp-connection-function tramp-open-connection-su)
(tramp-rsh-program nil) (tramp-rcp-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-rsh-args nil) 
(tramp-rcp-args
nil) (tramp-rcp-keep-date-arg nil)
                  (tramp-su-program "sudo") (tramp-su-args ("-u" "%u" "-s"))
(tramp-telnet-program nil) (tramp-telnet-args nil))
                 ("multi" (tramp-connection-function 
tramp-open-connection-multi)
(tramp-rsh-program nil) (tramp-rcp-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-rsh-args nil) 
(tramp-rcp-args
nil) (tramp-rcp-keep-date-arg nil)
                  (tramp-su-program nil) (tramp-su-args nil) 
(tramp-telnet-program
nil) (tramp-telnet-args nil))
                 ("scpx" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "ssh") (tramp-rcp-program "scp")
                  (tramp-remote-sh "/bin/sh") (tramp-rsh-args ("-e" "none" "-t" 
"-t"
"/bin/sh")) (tramp-rcp-args nil)
                  (tramp-rcp-keep-date-arg "-p") (tramp-telnet-program nil)
(tramp-telnet-args nil))
                 ("sshx" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "ssh") (tramp-rcp-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-rsh-args ("-e" "none" "-t" 
"-t"
"/bin/sh")) (tramp-rcp-args nil)
                  (tramp-rcp-keep-date-arg nil) (tramp-su-program nil) 
(tramp-su-args
nil) (tramp-telnet-program nil)
                  (tramp-telnet-args nil))
                 ("krlogin" (tramp-connection-function 
tramp-open-connection-rsh)
(tramp-rsh-program "krlogin")
                  (tramp-rcp-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-rsh-args
("-x")) (tramp-rcp-args nil)
                  (tramp-rcp-keep-date-arg nil) (tramp-su-program nil) 
(tramp-su-args
nil) (tramp-telnet-program nil)
                  (tramp-telnet-args nil))
                 ("plink" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "plink")
                  (tramp-rcp-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-rsh-args
("-ssh")) (tramp-rcp-args nil)
                  (tramp-rcp-keep-date-arg nil) (tramp-su-program nil) 
(tramp-su-args
nil) (tramp-telnet-program nil)
                  (tramp-telnet-args nil))
                 ("pscp" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "plink")
                  (tramp-rcp-program "pscp") (tramp-remote-sh "/bin/sh")
(tramp-rsh-args ("-ssh")) (tramp-rcp-args nil)
                  (tramp-rcp-keep-date-arg "-p") (tramp-su-program nil) 
(tramp-su-args
nil) (tramp-telnet-program nil)
                  (tramp-telnet-args nil))
                 ("fcp" (tramp-connection-function tramp-open-connection-rsh)
(tramp-rsh-program "fsh") (tramp-rcp-program "fcp")
                  (tramp-remote-sh "/bin/sh -i") (tramp-rsh-args ("sh" "-i"))
(tramp-rcp-args nil) (tramp-rcp-keep-date-arg "-p")
                  (tramp-su-program nil) (tramp-su-args nil) 
(tramp-telnet-program
nil) (tramp-telnet-args nil))
                 )
 tramp-end-of-output "///f9fff819eb5f36132b9349320c43f238"
 tramp-coding-commands '(("mimencode -b" "mimencode -u -b"
base64-encode-region base64-decode-region)
                         ("mmencode -b" "mmencode -u -b" base64-encode-region
base64-decode-region)
                         ("recode data..base64" "recode base64..data" 
base64-encode-region
base64-decode-region)
                         ("uuencode xxx" "uudecode -o -" tramp-uuencode-region
uudecode-decode-region)
                         ("uuencode xxx" "uudecode -p" tramp-uuencode-region
uudecode-decode-region)
                         ("uuencode xxx" "tramp_uudecode" tramp-uuencode-region
uudecode-decode-region)
                         ("tramp_encode_with_module" "tramp_decode_with_module"
base64-encode-region base64-decode-region)
                         ("tramp_encode" "tramp_decode" base64-encode-region
base64-decode-region))
 tramp-actions-before-shell '((tramp-password-prompt-regexp
tramp-action-password) (tramp-login-prompt-regexp tramp-action-login)
                              (shell-prompt-pattern tramp-action-succeed)
(tramp-shell-prompt-pattern tramp-action-succeed)
                              (tramp-wrong-passwd-regexp 
tramp-action-permission-denied)
                              (tramp-yesno-prompt-regexp tramp-action-yesno)
(tramp-yn-prompt-regexp tramp-action-yn)
                              (tramp-terminal-prompt-regexp 
tramp-action-terminal))
 tramp-multi-actions '((tramp-password-prompt-regexp
tramp-multi-action-password)
                       (tramp-login-prompt-regexp tramp-multi-action-login)
(shell-prompt-pattern tramp-multi-action-succeed)
                       (tramp-shell-prompt-pattern tramp-multi-action-succeed)
                       (tramp-wrong-passwd-regexp
tramp-multi-action-permission-denied))
 tramp-terminal-type "dumb"
 tramp-shell-prompt-pattern "^[^#$%>\n]*[#$%>] *"
 shell-prompt-pattern "^[^#$%>\n]*[#$%>] *"
 backup-by-copying nil
 backup-by-copying-when-linked t
 backup-by-copying-when-mismatch nil
 backup-by-copying-when-privileged-mismatch 200
 file-name-handler-alist '(("^/[^/]*$" .
tramp-completion-file-name-handler) ("\\`/[^/:]+:" .
tramp-file-name-handler)
                           ("\\`/:" . file-name-non-special))
 )


Any ideas?
Ed-history is an old package that I've used for several years w/o
any problems.

-- pa
----------------------------!----------------------------------------
    /////// /////// //   // ! address@hidden
   //   // //   // ///////  ! Optimation AB
  /////// /////// // / //   ! Residensgatan 17 S-972 38 Lulea, Sweden
 //      //   // //   //    ! Tel: +46 920 25 82 73, +46 70 640 67 28
//      //   // //   //     ! http://www.optimation.se