.emacs-my
changeset 961 d8f1ed2f2f9c
parent 960 272a40dfdbcd
child 962 5d94d3736bbe
equal deleted inserted replaced
960:272a40dfdbcd 961:d8f1ed2f2f9c
   956 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   956 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   957 (message "netbeans")
   957 (message "netbeans")
   958 
   958 
   959 (defun netbeans-find-command ()
   959 (defun netbeans-find-command ()
   960   "Search for NetBeans executable."
   960   "Search for NetBeans executable."
   961   (executable-find "netbeans")
   961   (or
   962   "/opt/netbeans-7.2/bin/netbeans")
   962    (executable-find "netbeans")
   963 (defvar netbeans-command (find-netbeans-command)
   963    "/opt/netbeans*/bin/netbeans")
       
   964 (defvar netbeans-command (netbeans-find-command)
   964   "Command to run NetBeans.")
   965   "Command to run NetBeans.")
   965 (defun netbeans-open-file (file &optional line)
   966 (defun netbeans-open-file (file &optional line)
   966   "Open FILE on LINE in NetBeans."
   967   "Open FILE on LINE in NetBeans."
   967   (if (integerp line)
   968   (if (integerp line)
   968       (start-process "netbeans" nil netbeans-command "--open" (format "%s:%d" file line))
   969       (start-process "netbeans" nil netbeans-command "--open" (format "%s:%d" file line))
   969     (start-process "netbeans" nil netbeans-command "--open" file)))
   970     (start-process "netbeans" nil netbeans-command "--open" file)))
   970 (defun netbeans-open-this-buffer ()
   971 (defun netbeans-open-this-buffer ()
   971   "Open file for burrent buffer in NetBeans."
   972   "Open file for burrent buffer in NetBeans."
   972   (interactive)
   973   (interactive)
   973   (netbeans-open-file (buffer-file-name) (line-number-at-pos)))
   974   (if (file-regular-p (buffer-file-name))
       
   975       (netbeans-open-file (buffer-file-name) (line-number-at-pos))
       
   976     (message "Current buffer wasnt' associated with a real file"))
   974 
   977 
   975 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   978 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   976 (message "calendar")
   979 (message "calendar")
   977 
   980 
   978 ;; (setq mark-holidays-in-calendar t)
   981 ;; (setq mark-holidays-in-calendar t)