halp-filename-directory is just the builtin file-name-directory

darius · Nov 15, 2008 · 07ec60c · 07ec60c
1 parent bf80cc5
commit 07ec60c
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/halp.el b/halp.el
@@ -64,11 +64,7 @@ loaded from, if it's not yet initialized."
     (let ((filename (symbol-file 'halp-helpers-directory)))
       (when filename
         (setq halp-helpers-directory 
-              (halp-filename-directory filename))))))
-
-(defun halp-filename-directory (filename)
-  "Return the directory part of a filename."
-  (replace-regexp-in-string "/[^/]*$" "/" filename))
+              (file-name-directory filename))))))
 
 
 ;; Running a helper command and applying its output