      (define-key flyspell-mouse-map [down-mouse-3] #'flyspell-correct-word)
      (define-key flyspell-mouse-map [mouse-3] #'undefined)
      (define-key flyspell-mouse-map [down-mouse-2] nil)
-     (define-key flyspell-mouse-map [mouse-2] nil)))
+     (define-key flyspell-mouse-map [mouse-2] nil)
+     ))
 
   ;;
   ;; xml mode

    :ensure t)
  
  ;;
  ;; Global key shortcuts:  
  ;;
  (global-set-key (kbd "<f2>") 'dabbrev-completion)
  (add-hook 'c-mode-common-hook

  ;;
  ;; Calendar
  ;;
  (require 'calendar)
  (copy-face font-lock-constant-face 'calendar-iso-week-face)
  (set-face-attribute 'calendar-iso-week-face nil
		      :height 1.0)
  (defvar calendar-week-start-day 1)
  (defvar calendar-intermonth-text
    '(propertize
      (format "%2d"
              (car
               (calendar-iso-from-absolute
                (calendar-absolute-from-gregorian (list month day year)))))
      'font-lock-face 'font-lock-function-name-face))

  ;;
  ;; Compilation buffer
