Explorar el Código

add dir-show, not usefull

pull/1/head
10sr hace 12 años
padre
commit
eba434b762
Se han modificado 1 ficheros con 11 adiciones y 1 borrados
  1. +11
    -1
      emacs.el

+ 11
- 1
emacs.el Ver fichero

@@ -1549,6 +1549,16 @@ when SEC is nil, stop auto save if enabled."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; misc funcs

(defun dir-show (&optional dir)
(interactive)
(let ((bf (get-buffer-create "*dir show*"))
(list-directory-brief-switches "-C"))
(with-current-buffer bf
(list-directory (or nil
default-directory)
nil))
))

(defalias 'qcalc 'quick-calc)

(defvar git-command-history nil
@@ -1570,7 +1580,7 @@ when SEC is nil, stop auto save if enabled."
(point-max)))
"")))
(defun my-git-shell-command (cmd)
""
"Shell like git command interface."
(interactive (list (read-shell-command (format "[%s]%s $ git : "
(abbreviate-file-name default-directory)
(my-git-ps1 "[GIT:%s]"))


Cargando…
Cancelar
Guardar