274 |
274 |
275 (setq view-read-only t) |
275 (setq view-read-only t) |
276 |
276 |
277 (setq read-quoted-char-radix 16) |
277 (setq read-quoted-char-radix 16) |
278 |
278 |
279 (setq standard-display-table (make-display-table)) |
279 (when (>= emacs-major-version 22) |
280 (let ( (i ?\x80) hex hi low ) |
280 (setq standard-display-table (make-display-table)) |
281 (while (<= i ?\xff) |
281 (let ( (i ?\x80) hex hi low ) |
282 (setq hex (format "%x" i)) |
282 (while (<= i ?\xff) |
283 (setq hi (elt hex 0)) |
283 (setq hex (format "%x" i)) |
284 (setq low (elt hex 1)) |
284 (setq hi (elt hex 0)) |
285 (aset standard-display-table (unibyte-char-to-multibyte i) |
285 (setq low (elt hex 1)) |
286 (vector (make-glyph-code ?\\ 'escape-glyph) |
286 (aset standard-display-table (unibyte-char-to-multibyte i) |
287 (make-glyph-code ?x 'escape-glyph) |
287 (vector (make-glyph-code ?\\ 'escape-glyph) |
288 (make-glyph-code hi 'escape-glyph) |
288 (make-glyph-code ?x 'escape-glyph) |
289 (make-glyph-code low 'escape-glyph))) |
289 (make-glyph-code hi 'escape-glyph) |
290 (setq i (+ i 1)))) |
290 (make-glyph-code low 'escape-glyph))) |
|
291 (setq i (+ i 1)))) |
|
292 ) |
291 |
293 |
292 ;; generic-define-* before (require 'generic-x) allow load all useful extra modes. |
294 ;; generic-define-* before (require 'generic-x) allow load all useful extra modes. |
293 (setq generic-define-mswindows-modes t) |
295 (setq generic-define-mswindows-modes t) |
294 (setq generic-define-unix-modes t) |
296 (setq generic-define-unix-modes t) |
295 (require 'generic-x) |
297 (require 'generic-x) |
1134 (or (buffer-file-name) |
1136 (or (buffer-file-name) |
1135 (buffer-name))) |
1137 (buffer-name))) |
1136 (save-excursion |
1138 (save-excursion |
1137 (re-search-forward "\\_<class\\_>" nil t)))) |
1139 (re-search-forward "\\_<class\\_>" nil t)))) |
1138 |
1140 |
1139 (add-to-list 'magic-mode-alist |
1141 (when (>= emacs-major-version 22) |
1140 '(my-c++-header-file-p . c++-mode)) |
1142 (add-to-list 'magic-mode-alist '(my-c++-header-file-p . c++-mode)) |
1141 |
1143 ) |
1142 |
1144 |
1143 (setq-default comment-style (quote indent)) |
1145 (setq-default comment-style (quote indent)) |
1144 (setq-default comment-column 44) |
1146 (setq-default comment-column 44) |
1145 (setq-default comment-fill-column my-fill-column) |
1147 (setq-default comment-fill-column my-fill-column) |
1146 |
1148 |