mirror of
				https://github.com/m00natic/vlfi.git
				synced 2025-10-31 07:03:35 +00:00 
			
		
		
		
	Remove ability to launch VLFI from file end. It's superseded by
vlfi-end-of-file and may break decoding of file.
This commit is contained in:
		
							
								
								
									
										19
									
								
								vlfi.el
									
									
									
									
									
								
							
							
						
						
									
										19
									
								
								vlfi.el
									
									
									
									
									
								
							| @@ -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")))))) | ||||||
|   | |||||||
		Reference in New Issue
	
	Block a user