haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Some cleanup 

Ignore-this: 9623774e874ab9d118b1367aedee8788

darcs-hash:20120315015621-33bd9-351724bd992d32eb1885eaa69b83f9cce8684da1
This commit is contained in:
wojciech.meyer 2012-03-15 02:56:21 +01:00
parent afe9eed0b0
commit 4d78acb1bd
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/top/utop.el
View File

@ -203,7 +203,6 @@ to add the newline character if it is not accepted).")
(defun tabulated-list-init-header ()
(save-excursion
(let ((inhibit-read-only t))
;; Find the longest package name
(mapc
(lambda (entry)
(let* ((name (nth 0 entry))
@ -838,7 +837,7 @@ defaults to 0."
(define-derived-mode utop-list-packages-mode tabulated-list-mode "OCaml package list"
"Major mode for listing the findlib OCaml packages."
(setq tabulated-list-format [("Name" 32 t)
("Version" 32 t)])
("Version" 32 t)])
(setq tabulated-list-sort-key (cons "Name" nil))
(setq tabulated-list-printer 'utop-package-printer)
(add-hook 'tabulated-list-revert-hook 'utop-list-packages--refresh nil t)