help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Emacs starts with current screen contents in its display buffer


From: Segundo Bob
Subject: Re: Emacs starts with current screen contents in its display buffer
Date: Wed, 09 Jul 2014 18:07:19 -0700
User-agent: Mozilla/5.0 (X11; Linux i686; rv:24.0) Gecko/20100101 Thunderbird/24.6.0

Pascal J. Bourguignon wrote:

Try to type C-l to have emacs redisplay the current buffer?
---
C-l has no effect on the display, not even a flicker.

---
Pascal J. Bourguignon wrote:

Use:

    emacs -q --no-spash

What you have put in your ~/.emacs should work, it works for me.
---

For me "emacs -q --no-splash" works no different than plain "emacs".

Here is my ~/.emacs:

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(delete-selection-mode t)
 '(global-linum-mode t)
 '(indent-tabs-mode nil)
 '(mark-even-if-inactive t)
 '(recentf-max-menu-items 30)
 '(recentf-max-saved-items 30)
 '(recentf-mode t)
 '(save-interprogram-paste-before-kill t)
 '(save-place t nil (saveplace))
 '(scroll-bar-mode (quote right))
 '(tab-stop-list (quote (4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64
68 72 76 80)))
 '(tab-width 4)
 '(transient-mark-mode 1))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )

;; 2012-03-28 W SegundoBob
;; I don't like the default font.
(set-face-font 'menu "-*-liberation mono-*-*-*-*-*-*-*-*-*-*-*-*")
(set-face-font 'default "-*-liberation mono-*-*-*-*-*-*-*-*-*-*-*-*")

;;; Emacs Load Path
(setq load-path (append  '("/home/ldi/emacs") load-path))

;; Allow narrow to region
(put 'narrow-to-region 'disabled nil)

(setq-default transient-mark-mode t)
(setq auto-mode-alist (cons '("\\.html$" . html-helper-mode)
auto-mode-alist))
(setq auto-mode-alist (cons '("\\.htm$" . html-helper-mode)
auto-mode-alist))
(setq inhibit-startup-message t)

;;; Enable use of the Gnome clipboard
(setq x-select-enable-clipboard t)
(setq interprogram-paste-function 'x-cut-buffer-or-selection-value)

;; Key mapping for counting words in buffer - SegundoBob
(require 'count-words-buffer)
(global-set-key (kbd "\C-c c") 'count-words-buffer)

;;; Key mapping for date and date-time - SegundoBob
(require 'insert-date)
(global-set-key (kbd  "\C-c d") 'insert-date)
(global-set-key (kbd "\C-c t") 'insert-date-time)

;; Miscellaneous utility functions -  SegundoBob
(load "bob-utils.el")

;; tabbar - SegundoBob
(require 'tabbar)
; turn on the tabbar
(tabbar-mode t)
;; 2011-11-27 Su SegundoBob - Sort tabs within each group
(defun tabbar-add-tab (tabset object &optional append_ignored)
  "Add to TABSET a tab with value OBJECT if there isn't one there yet.
 If the tab is added, it is added at the beginning of the tab list,
 unless the optional argument APPEND is non-nil, in which case it is
 added at the end."
  (let ((tabs (tabbar-tabs tabset)))
    (if (tabbar-get-tab object tabset)
        tabs
      (let ((tab (tabbar-make-tab object tabset)))
        (tabbar-set-template tabset nil)
        (set tabset (sort (cons tab tabs)
                          (lambda (a b) (string< (buffer-name (car a))
(buffer-name (car b))))))))))


;; 2011-11-27 Su SegundoBob - All buffers in same group
;; Default grouping is by major mode.
(setq tabbar-buffer-groups-function
          (lambda ()
            (list "All"))) ;; code by Peter Barabas

;; 2011-11-27 Su SegundoBob - tabbar dirty buffer marker
;;  Begun from code by yswzing.
(defadvice tabbar-buffer-tab-label (after fixup_tab_label_space_and_flag
activate)
  "Add a dirty-buffer mark to a tabbar name"
  (setq ad-return-value
        (if (and (buffer-modified-p (tabbar-tab-value tab))
                 (buffer-file-name (tabbar-tab-value tab)))
            (concat " + " (concat ad-return-value " "))
          (concat " " (concat ad-return-value " ")))))

(defun ztl-modification-state-change ()
  "Toggle buffer dirty state"
  (tabbar-set-template tabbar-current-tabset nil)
  (tabbar-display-update))

(defun ztl-on-buffer-modification ()
  "Initialize dirty-buffer flag before first change."
  (set-buffer-modified-p t)
  (ztl-modification-state-change))

(add-hook 'after-save-hook 'ztl-modification-state-change)
(add-hook 'first-change-hook 'ztl-on-buffer-modification)
;; yswzing: I don't know how to handle revert.
;;(add-hook 'after-revert-hook 'ztl-modification-state-change)
;; tabbar - end *****

;; I-Switch Buffers
(iswitchb-mode 1)

;; 2012-07-21 Sa SegundoBob
(load "adaptive-wrap-prefix.el")

;; 2012-07-21 Sa SegundoBob
(require 'yaml-mode)
(add-to-list 'auto-mode-alist '("\\.yml$" . yaml-mode))

;; 2012-07-22 Su - 2012-07-25 W SegundoBob
(require 'yad-mode)
(add-to-list 'auto-mode-alist '("\\.yad$" . yad-mode))
(add-hook 'yad-mode-hook (lambda ()
        (auto-fill-mode 0)              ; No auto fill.
        (visual-line-mode 1)            ; word wrap (Visual Line Mode)
        (flyspell-mode 1)               ; Automatic spell checking
(Flyspell)
        (linum-mode 1)                  ; Display line numbers in left
margin
        (setq tab-width 2)              ; Indent 2 spaces per level for
.yad only
        (make-variable-buffer-local 'tab-stop-list)
        (setq tab-stop-list '(2 4 6 8 10 12 14 16 18 20 22
            24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56 58 60 62
64 66
            68 70 72 74 76 78 80))
        ;(adaptive-wrap-prefix-mode 1)   ; Wrap to indentation --
Usually not desirable.
        ))

;; 2012-07-23 M SegundoBob
;; openSUSE doesn't load the delete-selection-mode code by default
(require 'delsel)
(delete-selection-mode 1)

;; 2012-07-23 M SegundoBob
;; Save cursor position in file between sessions.
(require 'saveplace)
;; Instead of turning it on here I turned it on in customize options
;; which put a different looking enable in the custom section somewhere
above.
;;(setq-default save-place t)

;; 2013-03-17 Su SegundoBob
(setq yas/root-directory '("~/emacs.d/mysnippets"

"/usr/share/emacs/site-lisp/yasnippet/snippets"))
;; Map `yas/load-directory' to every element
(mapc 'yas/load-directory yas/root-directory)

;; 2013-03-22 F SegundoBob
(add-hook 'before-save-hook 'delete-trailing-whitespace)
(column-number-mode t)
(global-whitespace-mode t)
;; make whitespace-mode use just basic coloring
(setq whitespace-style (quote (spaces tabs newline space-mark tab-mark
newline-mark)))


--
Segundo Bob
address@hidden



reply via email to

[Prev in Thread] Current Thread [Next in Thread]