.emacs-my
changeset 963 102845496d41
parent 962 5d94d3736bbe
child 964 9382e2dce0ed
equal deleted inserted replaced
962:5d94d3736bbe 963:102845496d41
   958 
   958 
   959 (defun netbeans-find-command ()
   959 (defun netbeans-find-command ()
   960   "Search for NetBeans executable in PATH, later in '/opt/netbeans*/bin/'."
   960   "Search for NetBeans executable in PATH, later in '/opt/netbeans*/bin/'."
   961   (or
   961   (or
   962    (executable-find "netbeans")
   962    (executable-find "netbeans")
   963    (car (last (sort (file-expand-wildcards "/opt/[Nn]etbeans*/bin/netbeans" t) 'equals))) ))
   963    (car (last (sort (file-expand-wildcards "/opt/[Nn]etbeans*/bin/netbeans" t) 'equal))) ))
   964 (defvar netbeans-command (netbeans-find-command)
   964 (defvar netbeans-command (netbeans-find-command)
   965   "Command to run NetBeans.")
   965   "Command to run NetBeans.")
   966 (defun netbeans-open-file (file &optional line)
   966 (defun netbeans-open-file (file &optional line)
   967   "Open FILE on LINE in NetBeans."
   967   "Open FILE on LINE in NetBeans."
   968   (if (integerp line)
   968   (if (integerp line)
   971 (defun netbeans-open-this-buffer ()
   971 (defun netbeans-open-this-buffer ()
   972   "Open file for burrent buffer in NetBeans."
   972   "Open file for burrent buffer in NetBeans."
   973   (interactive)
   973   (interactive)
   974   (if (file-regular-p (buffer-file-name))
   974   (if (file-regular-p (buffer-file-name))
   975       (netbeans-open-file (buffer-file-name) (line-number-at-pos))
   975       (netbeans-open-file (buffer-file-name) (line-number-at-pos))
   976     (message "Current buffer wasnt' associated with a real file"))
   976     (message "Current buffer wasnt' associated with a real file")))
   977 
   977 
   978 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   978 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   979 (message "calendar")
   979 (message "calendar")
   980 
   980 
   981 ;; (setq mark-holidays-in-calendar t)
   981 ;; (setq mark-holidays-in-calendar t)