sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-01-31 10:10:48 +00:00
Code Issues Releases Wiki Activity

Remove ability to launch VLFI from file end. It's superseded by

Browse Source 
vlfi-end-of-file and may break decoding of file.
This commit is contained in:
Andrey Kotlarski 2013-04-14 18:27:31 +03:00
parent fc689d5c88
commit 74febeb183
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
vlfi.el
View File

@ -87,16 +87,16 @@
(put 'vlfi-file-size 'permanent-local t)) (put 'vlfi-file-size 'permanent-local t))
;;;###autoload ;;;###autoload
(defun vlfi (file &optional from-end) (defun vlfi (file)
"View Large FILE. With FROM-END prefix, view from the back. "View Large FILE.
Batches of the file data from FILE will be displayed in a read-only Batches of the file data from FILE will be displayed in a read-only
buffer. You can customize number of bytes displayed by customizing buffer. You can customize number of bytes displayed by customizing
`vlfi-batch-size'." `vlfi-batch-size'."
(interactive "fFile to open: \nP") (interactive "fFile to open: ")
(with-current-buffer (generate-new-buffer "*vlfi*") (with-current-buffer (generate-new-buffer "*vlfi*")
(setq buffer-file-name file (setq buffer-file-name file
vlfi-file-size (vlfi-get-file-size file)) vlfi-file-size (vlfi-get-file-size file))
(vlfi-insert-file from-end) (vlfi-insert-file)
(vlfi-mode) (vlfi-mode)
(switch-to-buffer (current-buffer)))) (switch-to-buffer (current-buffer))))
@ -104,11 +104,10 @@ buffer. You can customize number of bytes displayed by customizing
;;; integration with other packages ;;; integration with other packages
;;;###autoload ;;;###autoload
(defun dired-vlfi (from-end) (defun dired-vlfi ()
"In Dired, visit the file on this line in VLFI mode. "In Dired, visit the file on this line in VLFI mode."
With FROM-END prefix, view from the back." (interactive)
(interactive "P") (vlfi (dired-get-file-for-visit)))
(vlfi (dired-get-file-for-visit) from-end))
;;;###autoload ;;;###autoload
(eval-after-load "dired" (eval-after-load "dired"
@ -137,7 +136,7 @@ OP-TYPE specifies the file operation being performed over FILENAME."
'(?o ?O ?v ?V ?a ?A)))) '(?o ?O ?v ?V ?a ?A))))
(cond ((memq char '(?o ?O))) (cond ((memq char '(?o ?O)))
((memq char '(?v ?V)) ((memq char '(?v ?V))
(vlfi filename nil) (vlfi filename)
(error "")) (error ""))
((memq char '(?a ?A)) ((memq char '(?a ?A))
(error "Aborted")))))) (error "Aborted"))))))