   (setq nsm-permanent-host-settings
         (cl-sort nsm-permanent-host-settings
                  #'string<
-                 :key #'second)))
+                 :key #'cl-second)))
 
 (defun db/update-cert-file-directory (symbol new-value)
   "Set SYMBOL to NEW-VALUE and add all certificate in it to `gnutls-trustfiles’.

  (interactive)
  (if (string= "term-mode" major-mode)
      (bury-buffer)
      (if (get-buffer "*ansi-term*")
          (switch-to-buffer "*ansi-term*")
          (ansi-term explicit-shell-file-name))))

(defun db/gnus ()
  "Switch to the `*Group*' buffer, starting `gnus' if not existent."

  (let ((url (plist-get (text-properties-at (point)) 'help-echo)))
    (if url
        (kill-new url)
      (error "No link found"))))

(defun db/test-emacs ()
  ;; from oremacs
