indentation - how to set 4 space indent in emacs -


every time add new line, indent automatically indents 2 spaces, not 4 spaces. below .emacs snippet.

(defun make-vline-xpm (width height color &optional lor)   (let* ((w width)          (h height)          (s1 (concat "\"" (make-string w (string-to-char " ")) "\""))          (s2 (cond               ((eq lor 0)                (concat "\"." (make-string (1- w) (string-to-char " ")) "\""))               ((eq lor 1)                (concat "\"" (make-string (1- w) (string-to-char " ")) ".\""))               ((null lor)                (concat "\"" (make-string (- (1- w)(/ (1- w) 2))(string-to-char " "))                        "." (make-string (/ (1- w) 2)(string-to-char " ")) "\""))))          (sa (concat s1 ",\n" s2 ",\n")))     (eval `(concat "/* xpm */ static char * dot_vline_xpm[] = { \"" (number-to-string w) " " (number-to-string h) " 2 1\", \"  c none\", \". c " color "\",\n" ,@(mapcar (lambda(x) sa)           (make-list (1- (/ h 2)) 0)) s1 ",\n" s2 "};" ))))  (defvar indent-vline-img (make-vline-xpm 9 20 "#4d4d4d")) (defun draw-indent-tab (beg end &optional color)   (if window-system       (set-text-properties        beg end        `(display (image                   :type xpm                   :data ,indent-vline-img                   :pointer text                   :ascent center                   :mask (heuristic t))                  rear-nonsticky (display)                  fontified t))     (compose-region      beg end      (prog1 "|"        (set-text-properties beg end '(font-lock-face (:foreground "#4d4d4d"))))      'decompose-region)))  (defun draw-indent-vline ()   (interactive)   (save-excursion     (beginning-of-line)     (let* ((i (current-indentation))            (l (save-excursion                 (count-lines (point)                              (forward-list)))))       (while (> l 0)         (let* ((p1 (progn (move-to-column i)(point)))                (p2 (1+ p1)))           (if (and (eq (get-byte p1) 32)                    (save-excursion                      (skip-chars-backward " ")(bolp)))               (draw-indent-tab p1 p2))           nil)         (forward-line)         (setq l (1- l))))))  (defun indent-vline-lisp ()   (interactive)   (funcall    (lambda (x)      (font-lock-add-keywords       nil `((,x              (0 (draw-indent-vline))))))    "^[ \t]*[,`#'(]")   (defadvice delete-char (after indent-vline activate compile)     (save-excursion       (let* ((p (point))              (q (skip-chars-forward " "))              (x (progn (skip-chars-backward " ")(bolp))))         (if x             (remove-text-properties p (+ p q) '(display)))))))  (defun indent-vline ()   (interactive)   (funcall    (lambda (x)      (font-lock-add-keywords       nil `((,x              (0 (if (save-excursion                       (skip-chars-backward " ")(bolp))                     (let* ((p1 (point))                            (p2 (1+ p1)))                       (if (or (null (eq (get-byte p1) 32))                               (get-text-property p1 'display))                           nil                         (draw-indent-tab p1 p2)                         nil))))))))    "   \\( \\)")   (defadvice delete-char (after indent-vline activate compile)     (save-excursion       (let* ((p (point))              (q (skip-chars-forward " "))              (x (progn (skip-chars-backward " ")(bolp))))         (if x             (remove-text-properties p (+ p q) '(display)))))))

i not know lisp language. .emscs copied others'. problem how set 4 space indent? have tried add below .emacs, not work.

(setq-default indent-tabs-mode nil) (setq-default tab-width 4) (setq indent-line-function 'insert-tab)

how using custom-set-variables:

(custom-set-variables     '(tab-width 4))

Comments

Post a Comment

Popular posts from this blog

php - Calling a template part from a post -

i include iframe within post in wordpress. located inside content of post, meaning cannot in post template file, otherwise either before or after. i'd add facebook plugin within posts: <div id="socialwrap"><div class="fb-like" data-href="http://onlinearizonahomes.info" data-send="true" data-width="450" data-show-faces="true" data-font="arial"></div></div> i thinking of calling template part within post <?php get_template_part( 'social' ); ?> cannot use php within post without plugin (i'd avoid using plugin this). an alternative using javascript create html in post, seems unnecessary use of javascript. what best way add html within wordpress post? you can use shortcode. add functions.php function cudjex_fbshare( $atts, $content = null ) { global $post; $link = get_permalink($post->id); return '<div id="socialwrap...
Read more

Firefox SVG shape not printing when it has stroke -

Image
i having issue svg shapes have stroke , trying them print in firefox. this simplest example: <svg xmlns="http://www.w3.org/2000/svg" version="1.1" xmlns:xlink="http://www.w3.org/1999/xlink"> <rect x="0" y="0" rx="15" ry="15" width="300" height="400" style="stroke:black;stroke-width:5;" fill="black" /> <circle id="firstcircle" cx="50" cy="50" r="30" stroke="black" stroke-width="2" fill="white" style="opacity:0.75;"/> <circle id="secondcircle" cx="50" cy="150" r="30" fill="white" style="opacity:0.75;"/> </svg> when try , print first shape 1 of 2 things: it not show @ all it shows off center in bounding box. the second shape no stroke shows expected, expected. when displaying on scre...
Read more

How to mention the localhost in android -

i trying call localhost in android application. unfortunately not possible used several methods emulator local host http://10.0.2.2/android/dbconnection.php and network ip address http://192.168.1.xx/android/dbconnection.php also http://localhost:8080/android/dbconnection.php but nothing connected localhost. purpose refer stackoverflow answers not working i facing same problem when worked on localhost. referred stackoverflow answer got solution create new emulator works fine in new emulator.
Read more