Procházet zdrojové kódy

Add comment

master
10sr před 6 roky
rodič
revize
ff85e1d1e7
Podepsáno: 10sr ID GPG klíče: 7BEC428194130EB2
1 změnil soubory, kde provedl 4 přidání a 9 odebrání
  1. +4
    -9
      emacs.el

+ 4
- 9
emacs.el Zobrazit soubor

@@ -1212,15 +1212,9 @@ ARG is num to show, or defaults to 7."
(interactive "P")
(let ((f (dired-get-filename)))
(message "%s"
(with-temp-buffer
(insert-file-contents f)
(buffer-substring-no-properties
(point-min)
(progn (goto-char (point-min))
(forward-line (1- (if arg
(prefix-numeric-value arg)
7)))
(point-at-eol)))))))
(apply 'concat
(my-file-head f
7)))))

(defun my-dired-diff ()
"Show diff of marked file and file of current line."
@@ -1605,6 +1599,7 @@ This mode is a simplified version of `adoc-mode'."

(defun my-file-head (filename &optional n)
"Return list of first N lines of file FILENAME."
;; Work with japanese text?
(let ((num (or n 10))
(size 100)
(beg 0)


Načítá se…
Zrušit
Uložit