Hello community, here is the log from the commit of package emacs.3173 for openSUSE:13.1:Update checked in at 2014-11-20 10:25:50 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:13.1:Update/emacs.3173 (Old) and /work/SRC/openSUSE:13.1:Update/.emacs.3173.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "emacs.3173" Changes: -------- New Changes file: --- /dev/null 2014-11-17 01:44:14.624034255 +0100 +++ /work/SRC/openSUSE:13.1:Update/.emacs.3173.new/emacs.changes 2014-11-20 10:25:54.000000000 +0100 @@ -0,0 +1,1868 @@ +------------------------------------------------------------------- +Thu May 8 11:59:32 UTC 2014 - [email protected] + +- Add the patches + CVE-2014-3421.patch + CVE-2014-3422.patch + CVE-2014-3423.patch + CVE-2014-3424.patch + to avoid several unsecure usage of temporary files (bnc#876847) + +------------------------------------------------------------------- +Wed Jan 15 10:31:16 UTC 2014 - [email protected] + +- Do not reassign S-left, S-right, S-up and S-down anymore (bnc#858430) + +------------------------------------------------------------------- +Tue Dec 3 11:00:44 UTC 2013 - [email protected] + +- Change emacs wrapper script to use new dbus-run-session tool to + avoid hanging emacs on terminal mode due I/O conflict on stdin + of both emacs and dbus-launch session (bnc#853082) + +------------------------------------------------------------------- +Wed Sep 11 12:30:07 UTC 2013 - [email protected] + +- Added /usr/share/emacs/site-lisp/site-start.d to package owned + directories so other packages do not need to own it + +------------------------------------------------------------------- +Sat Jun 15 15:14:01 UTC 2013 - [email protected] + +- Fix connection problem to Typhoon nntp servers. Instead of + CAPABILITIES use HELP + * emacs-24.3-nntp-typhoon-fix.patch + +------------------------------------------------------------------- +Fri Jun 7 07:53:58 UTC 2013 - [email protected] + +- Enforce update alternatives simply to avoid bug reports about + warnings + +------------------------------------------------------------------- +Thu Jun 6 16:13:16 UTC 2013 - [email protected] + +- Disable fontsets and enforce Xft as font backend + +------------------------------------------------------------------- +Tue May 28 09:58:49 UTC 2013 - [email protected] + +- Remove not used spec file scriplets +- Make pre requires more smart +- Avoid trouble with new byte compile format and old font-latex.elc + +------------------------------------------------------------------- +Fri May 24 10:30:24 UTC 2013 - [email protected] + +- Make emacs launch script smart, that is search for a valid dbus + on the current system if if not found launch a own dbus session +- With emacs version 24.3 the package epg becoes obsolate + +------------------------------------------------------------------- +Wed May 22 10:13:13 UTC 2013 - [email protected] + +- Update to to emacs version 24.3 + * Emacs no longer searches for `leim-list.el' files beneath the standard + lisp/ directory. There should not be any there anyway. If you have + been adding them there, put them somewhere else; e.g., site-lisp. + * `C-h f' (`describe-function') can now perform autoloading. + When this command is called for an autoloaded function whose docstring + contains a key substitution construct, that function's library is + automatically loaded, so that the documentation can be shown + correctly. To disable this, set `help-enable-auto-load' to nil. + * `C-h f' now reports previously-autoloaded functions as "autoloaded", + even after their associated libraries have been loaded (and the + autoloads have been redefined as functions). + * Images displayed via ImageMagick now support transparency and the + :background image specification property. + * When available, ImageMagick support is automatically enabled. + It is no longer necessary to call `imagemagick-register-types' + explicitly to install ImageMagick image types; that function is called + automatically at startup, or when customizing an imagemagick- option. + * Setting `imagemagick-types-inhibit' to t now disables the use of + ImageMagick to view images. (You must call `imagemagick-register-types' + afterwards if you do not use customize to change this.) + * The new variable `imagemagick-enabled-types' also affects which + ImageMagick types are treated as images. The function + `imagemagick-filter-types' returns the list of types that will be + treated as images. + * In minibuffer filename prompts, `C-M-f' and `C-M-b' now move to the + next and previous path separator, respectively. + * `minibuffer-electric-default-mode' can shorten "(default ...)" to "[...]" + in minibuffer prompts. Just set `minibuffer-eldef-shorten-default' + non-nil before enabling the mode. + * New option `mode-line-default-help-echo' specifies the help text + (shown in a tooltip or in the echo area) for any part of the mode line + that does not have its own specialized help text. + * You can now click mouse-3 in the coding system indicator to invoke + `set-buffer-file-coding-system'. + * emacsclient now obeys string values for `initial-buffer-choice', + if it is told to open a new frame without specifying any file to visit + or expression to evaluate. + * New option `server-auth-key' specifies a shared server key. + * Emacs now generates backtraces on fatal errors. + On encountering a fatal error, Emacs now outputs a textual description + of the fatal signal, and a short backtrace on platforms like glibc + that support backtraces. + * `C-x C-q' is now bound to the new minor mode `read-only-mode'. + This minor mode replaces `toggle-read-only', which is now obsolete. + * Most `y-or-n' prompts now allow you to scroll the selected window. + Typing `C-v' or `M-v' at a y-or-n prompt scrolls forward or backward + respectively, without exiting from the prompt. + * In the Package Menu, newly-available packages are listed as "new", + and sorted above the other "available" packages by default. + * If your Emacs was built from a bzr checkout, the new variable + `emacs-bzr-version' contains information about the bzr revision used. + * New option `create-lockfiles' specifies usage of lockfiles. + It defaults to t. Changing it to nil inhibits the creation of lock + files (use this with caution). + * New option `enable-remote-dir-locals', if non-nil, allows directory-local + variables on remote hosts. + * The entry for PCL-CVS has been removed from the Tools menu. + The PCL-CVS commands are still available via the keyboard. + * Using "unibyte: t" in Lisp source files is obsolete. + Use "coding: raw-text" instead. + * In the buffer made by `M-x report-emacs-bug', the `C-c m' binding + has been changed to `C-c M-i' (`report-emacs-bug-insert-to-mailer'). + The previous binding, introduced in Emacs 24.1, was a mistake, because + `C-c LETTER' bindings are reserved for user customizations. + * Non-regexp Isearch now performs "lax" space matching. + Each sequence of spaces in the supplied search string may match any + sequence of one or more whitespace characters, as specified by the + variable `search-whitespace-regexp'. (This variable is also used by a + similar existing feature for regexp Isearch.) + * New Isearch command `M-s SPC' toggles lax space matching. + This applies to both ordinary and regexp Isearch. + * New option `replace-lax-whitespace'. + If non-nil, `query-replace' uses flexible whitespace matching too. + The default is nil. + * Global `M-s _' starts a symbol (identifier) incremental search, + and `M-s _' in Isearch toggles symbol search mode. + `M-s c' in Isearch toggles search case-sensitivity. + * New binding `M-g c' for `goto-char'. + * New binding `M-g TAB' for `move-to-column'. + * `M-g TAB' (`move-to-column') prompts for a column number if called + interactively with no prefix arg. Previously, it moved to column 1. + * New option `yank-handled-properties' allows processing of text + properties on yanked text, in ways that are more general than just + removing them (as is done by `yank-excluded-properties'). + * New option `delete-trailing-lines' specifies whether + M-x delete-trailing-whitespace should delete trailing lines at the end + of the buffer. It defaults to t. + * `C-u M-=' now counts lines/words/characters in the entire buffer. + * `C-x 8 RET' is now bound to `insert-char', which is now a command. + `ucs-insert' is now an obsolete alias for `insert-char'. + * The `z' key no longer has a binding in most special modes. + It used to be bound to `kill-this-buffer', but `z' is too easy to + accidentally type. + * New command `C-x r M-w' (`copy-rectangle-as-kill'). + It copies the region-rectangle as the last rectangle kill. + * `C-x r +' is now overloaded to invoke `append-to-register'. + * New option `register-separator' specifies the register containing + the text to put between collected texts for use with + M-x append-to-register and M-x prepend-to-register. +- Update file lists +- Remove patches done upstream +- Port remaining patches +- Exclude info.info page as this is part of package info + +------------------------------------------------------------------- +Tue May 21 14:38:23 UTC 2013 - [email protected] + +- Do not install etags below OS 13.0 (bnc#820567) +- Use UTF-8 even in changelog for old entries + +------------------------------------------------------------------- +Sat Apr 27 10:18:18 UTC 2013 - [email protected] + +- For 13+ add etags subpackage, provide ctags via update-alternatives + +------------------------------------------------------------------- +Mon Apr 22 09:23:00 UTC 2013 - [email protected] + +- For 12.3+ buildrequire makeinfo instead of texinfo + +------------------------------------------------------------------- +Wed Mar 13 08:07:28 UTC 2013 - [email protected] + +- fix build with giflib5 by skipping configure test and adding + emacs-24.2-giflib5.patch + +------------------------------------------------------------------- +Wed Feb 20 07:59:47 UTC 2013 - [email protected] + +- Add missing backslashes spotted by Troy Sankey + +------------------------------------------------------------------- +Sat Jan 12 21:08:43 UTC 2013 - [email protected] ++++ 1671 more lines (skipped) ++++ between /dev/null ++++ and /work/SRC/openSUSE:13.1:Update/.emacs.3173.new/emacs.changes New: ---- CVE-2014-3421.patch CVE-2014-3422.patch CVE-2014-3423.patch CVE-2014-3424.patch app-defaults.Emacs check-build.sh dot.gnu-emacs emacs-24.1-bnc628268.patch emacs-24.1-ps-mule.patch emacs-24.3-asian-print.patch emacs-24.3-decl.dif emacs-24.3-flyspell.patch emacs-24.3-giflib5.patch emacs-24.3-glibc.patch emacs-24.3-iconic.patch emacs-24.3-nntp-typhoon-fix.patch emacs-24.3-nonvoid.patch emacs-24.3-ps-bdf.patch emacs-24.3-x11r7.patch emacs-24.3-xevent.patch emacs-24.3-xim.patch emacs-24.3.dif emacs-24.3.tar.xz emacs-rpmlintrc emacs.changes emacs.sh emacs.spec emacs.test site-lisp.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ emacs.spec ++++++ ++++ 4570 lines (skipped) ++++++ CVE-2014-3421.patch ++++++ Based on revno: 117066 revision-id: address@hidden parent: address@hidden fixes bug: http://bugs.debian.org/747100 committer: Glenn Morris <address@hidden> branch nick: emacs-24 timestamp: Mon 2014-05-05 20:50:51 -0700 message: * gnus-fun.el (gnus-grab-cam-face): Do not use predictable temp-file name. modified: lisp/gnus/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1433 lisp/gnus/gnus-fun.el gnusfun.el-20091113204419-o5vbwnq5f7feedwu-3243 --- lisp/gnus/gnus-fun.el +++ lisp/gnus/gnus-fun.el 2014-05-08 11:52:32.362735285 +0000 @@ -250,20 +250,21 @@ colors of the displayed X-Faces." (interactive) (shell-command "xawtv-remote snap ppm") (let ((file nil) + (tempfile (make-temp-file "gnus-face-" nil ".ppm")) result) (while (null (setq file (directory-files "/tftpboot/sparky/tmp" t "snap.*ppm"))) (sleep-for 1)) (setq file (car file)) (shell-command - (format "pnmcut -left 110 -top 30 -width 144 -height 144 '%s' | pnmscale -width 48 -height 48 | ppmtopgm > /tmp/gnus.face.ppm" - file)) + (format "pnmcut -left 110 -top 30 -width 144 -height 144 '%s' | pnmscale -width 48 -height 48 | ppmtopgm >> %s" + file tempfile)) (let ((gnus-convert-image-to-face-command (format "cat '%%s' | ppmquant %%d | ppmchange %s | pnmtopng" (gnus-fun-ppm-change-string)))) - (setq result (gnus-face-from-file "/tmp/gnus.face.ppm"))) + (setq result (gnus-face-from-file tempfile))) (delete-file file) - ;;(delete-file "/tmp/gnus.face.ppm") + ;;(delete-file tempfile) ; FIXME why are we not deleting it?! result)) (defun gnus-fun-ppm-change-string () ++++++ CVE-2014-3422.patch ++++++ Based on revno: 117067 revision-id: address@hidden parent: address@hidden fixes bug: http://bugs.debian.org/747100 committer: Glenn Morris <address@hidden> branch nick: emacs-24 timestamp: Mon 2014-05-05 20:53:31 -0700 message: find-gc.el misc fixes The whole file looks obsolete and/or broken. * lisp/emacs-lisp/find-gc.el (find-gc-source-directory): Give it a value. (find-gc-source-files): Update some names. (trace-call-tree): Simplify and update. Avoid predictable temp-file names. modified: lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432 lisp/emacs-lisp/find-gc.el findgc.el-20091113204419-o5vbwnq5f7feedwu-2220 --- lisp/emacs-lisp/find-gc.el +++ lisp/emacs-lisp/find-gc.el 2014-05-08 11:53:44.738766224 +0000 @@ -23,14 +23,15 @@ ;; Produce in find-gc-unsafe-list the set of all functions that may invoke GC. ;; This expects the Emacs sources to live in find-gc-source-directory. -;; It creates a temporary working directory /tmp/esrc. ;;; Code: (defvar find-gc-unsafe-list nil "The list of unsafe functions is placed here by `find-gc-unsafe'.") -(defvar find-gc-source-directory) +(defvar find-gc-source-directory + (file-name-as-directory (expand-file-name "src" source-directory)) + "Directory containing Emacs C sources.") (defvar find-gc-subrs-callers nil "Alist of users of subrs, from GC testing. @@ -59,14 +60,14 @@ Each entry has the form (FUNCTION . FUNC "indent.c" "search.c" "regex.c" "undo.c" "alloc.c" "data.c" "doc.c" "editfns.c" "callint.c" "eval.c" "fns.c" "print.c" "lread.c" - "abbrev.c" "syntax.c" "unexcoff.c" + "syntax.c" "unexcoff.c" "bytecode.c" "process.c" "callproc.c" "doprnt.c" - "x11term.c" "x11fns.c")) + "xterm.c" "xfns.c")) (defun find-gc-unsafe () "Return a list of unsafe functions--that is, which can call GC. -Also store it in `find-gc-unsafe'." +Also store it in `find-gc-unsafe-list'." (trace-call-tree nil) (trace-use-tree) (find-unsafe-funcs 'Fgarbage_collect) @@ -102,47 +103,38 @@ Also store it in `find-gc-unsafe'." -(defun trace-call-tree (&optional already-setup) +(defun trace-call-tree (&optional ignored) (message "Setting up directories...") - (or already-setup - (progn - ;; Gee, wouldn't a built-in "system" function be handy here. - (call-process "csh" nil nil nil "-c" "rm -rf /tmp/esrc") - (call-process "csh" nil nil nil "-c" "mkdir /tmp/esrc") - (call-process "csh" nil nil nil "-c" - (format "ln -s %s/*.[ch] /tmp/esrc" - find-gc-source-directory)))) - (with-current-buffer (get-buffer-create "*Trace Call Tree*") - (setq find-gc-subrs-called nil) - (let ((case-fold-search nil) - (files find-gc-source-files) - name entry) - (while files - (message "Compiling %s..." (car files)) - (call-process "csh" nil nil nil "-c" - (format "gcc -dr -c /tmp/esrc/%s -o /dev/null" - (car files))) - (erase-buffer) - (insert-file-contents (concat "/tmp/esrc/" (car files) ".rtl")) - (while (re-search-forward ";; Function \\|(call_insn " nil t) - (if (= (char-after (- (point) 3)) ?o) - (progn - (looking-at "[a-zA-Z0-9_]+") - (setq name (intern (buffer-substring (match-beginning 0) - (match-end 0)))) - (message "%s : %s" (car files) name) - (setq entry (list name) - find-gc-subrs-called (cons entry find-gc-subrs-called))) - (if (looking-at ".*\n?.*\"\\([A-Za-z0-9_]+\\)\"") + (setq find-gc-subrs-called nil) + (let ((case-fold-search nil) + (default-directory find-gc-source-directory) + (files find-gc-source-files) + name entry rtlfile) + (dolist (file files) + (message "Compiling %s..." file) + (call-process "gcc" nil nil nil "-I" "." "-I" "../lib" + "-fdump-rtl-expand" "-o" null-device "-c" file) + (setq rtlfile + (file-expand-wildcards (format "%s.*.expand" file) t)) + (if (/= 1 (length rtlfile)) + (message "Error compiling `%s'?" file) + (with-temp-buffer + (insert-file-contents (setq rtlfile (car rtlfile))) + (delete-file rtlfile) + (while (re-search-forward ";; Function \\|(call_insn " nil t) + (if (= (char-after (- (point) 3)) ?o) (progn - (setq name (intern (buffer-substring (match-beginning 1) - (match-end 1)))) - (or (memq name (cdr entry)) - (setcdr entry (cons name (cdr entry)))))))) - (delete-file (concat "/tmp/esrc/" (car files) ".rtl")) - (setq files (cdr files))))) -) - + (looking-at "[a-zA-Z0-9_]+") + (setq name (intern (match-string 0))) + (message "%s : %s" (car files) name) + (setq entry (list name) + find-gc-subrs-called + (cons entry find-gc-subrs-called))) + (if (looking-at ".*\n?.*\"\\([A-Za-z0-9_]+\\)\"") + (progn + (setq name (intern (match-string 1))) + (or (memq name (cdr entry)) + (setcdr entry (cons name (cdr entry))))))))))))) (defun trace-use-tree () (setq find-gc-subrs-callers (mapcar 'list (mapcar 'car find-gc-subrs-called))) ++++++ CVE-2014-3423.patch ++++++ Based on revno: 117068 revision-id: address@hidden parent: address@hidden committer: Glenn Morris <address@hidden> branch nick: emacs-24 timestamp: Mon 2014-05-05 20:55:54 -0700 message: browse-url.el comment modified: lisp/net/browse-url.el browseurl.el-20091113204419-o5vbwnq5f7feedwu-1785 --- lisp/net/browse-url.el +++ lisp/net/browse-url.el 2014-05-08 11:54:48.194721113 +0000 @@ -1335,6 +1335,9 @@ used instead of `browse-url-new-window-f (kill-buffer nil))) (if (and pid (zerop (signal-process pid 0))) ; Mosaic running (save-excursion + ;; This is a predictable temp-file name, which is bad, + ;; but it is what Mosaic uses/used. + ;; So it's not Emacs's problem. http://bugs.debian.org/747100 (find-file (format "/tmp/Mosaic.%d" pid)) (erase-buffer) (insert (if (browse-url-maybe-new-window new-window) ++++++ CVE-2014-3424.patch ++++++ Based on revno: 117071 revision-id: address@hidden parent: address@hidden committer: Michael Albinus <address@hidden> branch nick: emacs-24 timestamp: Tue 2014-05-06 11:51:05 +0200 message: Fix Bug#17415. * net/tramp-sh.el (tramp-uudecode): Replace the hard-coded temporary file name by a format specifier. (tramp-remote-coding-commands): Enhance docstring. (tramp-find-inline-encoding): Replace "%t" by a temporary file name. modified: lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432 lisp/net/tramp-sh.el trampsh.el-20100913133439-a1faifh29eqoi4nh-1 --- lisp/net/tramp-sh.el +++ lisp/net/tramp-sh.el 2014-05-08 11:56:08.770262271 +0000 @@ -605,9 +605,9 @@ This list is used for copying/renaming w See `tramp-actions-before-shell' for more info.") (defconst tramp-uudecode - "(echo begin 600 /tmp/tramp.$$; tail +2) | uudecode -cat /tmp/tramp.$$ -rm -f /tmp/tramp.$$" + "(echo begin 600 %t; tail -n +2) | uudecode +cat %t +rm -f %t" "Shell function to implement `uudecode' to standard output. Many systems support `uudecode -o /dev/stdout' or `uudecode -o -' for this or `uudecode -p', but some systems don't, and for them @@ -3938,7 +3938,7 @@ Each item is a list that looks like this \(FORMAT ENCODING DECODING [TEST]\) -FORMAT is symbol describing the encoding/decoding format. It can be +FORMAT is a symbol describing the encoding/decoding format. It can be `b64' for base64 encoding, `uu' for uu encoding, or `pack' for simple packing. ENCODING and DECODING can be strings, giving commands, or symbols, @@ -3948,9 +3948,11 @@ filename will be put into the command li specifier is not present, the input should be read from standard input. -If they are variables, this variable is a string containing a Perl -implementation for this functionality. This Perl program will be transferred -to the remote host, and it is available as shell function with the same name. +If they are variables, this variable is a string containing a +Perl or Shell implementation for this functionality. This +program will be transferred to the remote host, and it is +available as shell function with the same name. A \"%t\" format +specifier in the variable value denotes a temporary file. The optional TEST command can be used for further tests, whether ENCODING and DECODING are applicable.") @@ -4025,10 +4027,25 @@ Goes through the list `tramp-local-codin (throw 'wont-work-remote nil)) (when (not (stringp rem-dec)) - (let ((name (symbol-name rem-dec))) + (let ((name (symbol-name rem-dec)) + (value (symbol-value rem-dec)) + tmpfile) (while (string-match (regexp-quote "-") name) (setq name (replace-match "_" nil t name))) - (tramp-maybe-send-script vec (symbol-value rem-dec) name) + (when (string-match "%t" value) + (setq tmpfile + (make-temp-name + (expand-file-name + tramp-temp-name-prefix + (tramp-get-remote-tmpdir vec))) + value + (format-spec + value + (format-spec-make + ?t + (tramp-file-name-handler + 'file-remote-p tmpfile 'localname))))) + (tramp-maybe-send-script vec value name) (setq rem-dec name))) (tramp-message vec 5 ++++++ app-defaults.Emacs ++++++ ! ========================================================================== ! Emacs ! ========================================================================== Emacs.pane.menubar.font: -*-helvetica-bold-r-normal--12-*-*-*-p-*-iso8859-* Emacs.menu*.font: -*-helvetica-bold-r-normal--12-*-*-*-p-*-iso8859-* ! With GNU Emacs 24 Xft is used, therefore no fontsets are required. If you ! like to use fontsets you have to disable "FontBackend" and enable "Font". Emacs.FontBackend: xft !!Emacs.Font: fontset-16 Emacs*Fontset-0:\ -*-fixed-medium-r-*--16-*-*-*-*-*-fontset-16,\ latin-iso8859-1:-*-fixed-medium-r-*--16-*-iso8859-1,\ latin-iso8859-2:-*-fixed-medium-r-*--16-*-iso8859-2,\ latin-iso8859-3:-*-fixed-medium-r-*--16-*-iso8859-3,\ latin-iso8859-4:-*-fixed-medium-r-*--16-*-iso8859-4,\ cyrillic-iso8859-5:-*-fixed-medium-r-*--16-*-iso8859-5,\ greek-iso8859-7:-*-fixed-medium-r-*--16-*-iso8859-7,\ hebrew-iso8859-8:-*-fixed-medium-r-*--16-*-iso8859-8,\ latin-iso8859-9:-*-fixed-medium-r-*--16-*-iso8859-9,\ latin-iso8859-15:-*-fixed-medium-r-*--16-*-iso8859-15,\ arabic-digit:-*-fixed-medium-r-*--16-*-mulearabic-0,\ arabic-1-column:-*-fixed-medium-r-*--16-*-mulearabic-1,\ arabic-2-column:-*-fixed-medium-r-*--16-*-mulearabic-2,\ katakana-jisx0201:-*-fixed-medium-r-*--16-*-jisx0201.1976-0,\ japanese-jisx0208:-*-fixed-medium-r-*--16-*-jisx0208*-0,\ korean-ksc5601:-*-fixed-medium-r-*--16-*-ksc5601*-*,\ chinese-big5-1:-*-fixed-medium-r-*--16-*-big5*-0,\ chinese-gb2312:-*-medium-r-normal-*-16-*-gb2312*-*,\ chinese-cns11643-1:-*-medium-r-normal-*-16-*-cns11643*-1,\ chinese-cns11643-2:-*-medium-r-normal-*-16-*-cns11643*-2,\ chinese-cns11643-3:-*-medium-r-normal-*-16-*-cns11643*-3,\ chinese-cns11643-4:-*-medium-r-normal-*-16-*-cns11643*-4,\ chinese-cns11643-5:-*-medium-r-normal-*-16-*-cns11643*-5,\ chinese-cns11643-6:-*-medium-r-normal-*-16-*-cns11643*-6,\ chinese-cns11643-7:-*-medium-r-normal-*-16-*-cns11643*-7,\ thai-tis620:-*-fixed-medium-r-*--16-*-tis620.2529-1,\ vietnamese-viscii-lower:-*-fixed-medium-r-*--16-*-viscii1.1-1,\ lao:-*-fixed-medium-r-*--16-*-mulelao-1,\ tibetan:-*-fixed-medium-r-*--16-*-muletibetan-0,\ tibetan-1-column:-*-fixed-medium-r-*--16-*-muletibetan-1 Emacs*Fontset-1:\ -*-fixed-medium-r-*--24-*-*-*-*-*-fontset-24,\ latin-iso8859-1:-*-fixed-medium-r-*--24-*-iso8859-1,\ latin-iso8859-2:-*-fixed-medium-r-*--24-*-iso8859-2,\ latin-iso8859-3:-*-fixed-medium-r-*--24-*-iso8859-3,\ latin-iso8859-4:-*-fixed-medium-r-*--24-*-iso8859-4,\ cyrillic-iso8859-5:-*-fixed-medium-r-*--24-*-iso8859-5,\ greek-iso8859-7:-*-fixed-medium-r-*--24-*-iso8859-7,\ hebrew-iso8859-8:-*-fixed-medium-r-*--24-*-iso8859-8,\ latin-iso8859-9:-*-fixed-medium-r-*--24-*-iso8859-9,\ latin-iso8859-15:-*-fixed-medium-r-*--24-*-iso8859-15,\ arabic-digit:-*-fixed-medium-r-*--24-*-mulearabic-0,\ arabic-1-column:-*-fixed-medium-r-*--24-*-mulearabic-1,\ arabic-2-column:-*-fixed-medium-r-*--24-*-mulearabic-2,\ katakana-jisx0201:-*-fixed-medium-r-*--24-*-jisx0201.1976-0,\ japanese-jisx0208:-*-fixed-medium-r-*--24-*-jisx0208*-0,\ korean-ksc5601:-*-fixed-medium-r-*--24-*-ksc5601*-*,\ chinese-big5-1:-*-fixed-medium-r-*--24-*-big5*-0,\ chinese-gb2312:-*-medium-r-normal-*-24-*-gb2312*-*,\ chinese-cns11643-1:-*-medium-r-normal-*-24-*-cns11643*-1,\ chinese-cns11643-2:-*-medium-r-normal-*-24-*-cns11643*-2,\ chinese-cns11643-3:-*-medium-r-normal-*-24-*-cns11643*-3,\ chinese-cns11643-4:-*-medium-r-normal-*-24-*-cns11643*-4,\ chinese-cns11643-5:-*-medium-r-normal-*-24-*-cns11643*-5,\ chinese-cns11643-6:-*-medium-r-normal-*-24-*-cns11643*-6,\ chinese-cns11643-7:-*-medium-r-normal-*-24-*-cns11643*-7,\ thai-tis620:-*-fixed-medium-r-*--24-*-tis620.2529-1,\ vietnamese-viscii-lower:-*-fixed-medium-r-*--24-*-viscii1.1-1,\ lao:-*-fixed-medium-r-*--24-*-mulelao-1,\ indian-is13194:-*-fixed-medium-r-*--24-*-is13194-devanagari,\ indian-1-column:-*-fixed-medium-r-*--24-*-muleindian-1,\ indian-2-column:-*-fixed-medium-r-*--24-*-muleindian-2,\ tibetan:-*-fixed-medium-r-*--24-*-muletibetan-0,\ tibetan-1-column:-*-fixed-medium-r-*--24-*-muletibetan-1 Emacs*Fontset-2:\ -*-fixed-medium-r-*--20-*-*-*-*-*-fontset-20,\ latin-iso8859-1:-*-fixed-medium-r-*--20-*-iso8859-1,\ latin-iso8859-2:-*-fixed-medium-r-*--20-*-iso8859-2,\ latin-iso8859-3:-*-fixed-medium-r-*--20-*-iso8859-3,\ latin-iso8859-4:-*-fixed-medium-r-*--20-*-iso8859-4,\ cyrillic-iso8859-5:-*-fixed-medium-r-*--20-*-iso8859-5,\ greek-iso8859-7:-*-fixed-medium-r-*--20-*-iso8859-7,\ hebrew-iso8859-8:-*-fixed-medium-r-*--20-*-iso8859-8,\ latin-iso8859-9:-*-fixed-medium-r-*--20-*-iso8859-9,\ latin-iso8859-15:-*-fixed-medium-r-*--20-*-iso8859-15,\ katakana-jisx0201:-*-fixed-medium-r-*--20-*-jisx0201.1976-0,\ japanese-jisx0208:-*-fixed-medium-r-*--20-*-jisx0208*-0,\ korean-ksc5601:-*-fixed-medium-r-*--20-*-ksc5601*-* Emacs*Fontset-3:\ -*-fixed-medium-r-*--18-*-*-*-*-*-fontset-18,\ latin-iso8859-1:-*-fixed-medium-r-*--18-*-iso8859-1,\ latin-iso8859-2:-*-fixed-medium-r-*--18-*-iso8859-2,\ latin-iso8859-3:-*-fixed-medium-r-*--18-*-iso8859-3,\ latin-iso8859-4:-*-fixed-medium-r-*--18-*-iso8859-4,\ cyrillic-iso8859-5:-*-fixed-medium-r-*--18-*-iso8859-5,\ greek-iso8859-7:-*-fixed-medium-r-*--18-*-iso8859-7,\ hebrew-iso8859-8:-*-fixed-medium-r-*--18-*-iso8859-8,\ latin-iso8859-9:-*-fixed-medium-r-*--18-*-iso8859-9,\ latin-iso8859-15:-*-fixed-medium-r-*--18-*-iso8859-15,\ katakana-jisx0201:-*-*-medium-r-*--18-*-jisx0201.1976-0,\ japanese-jisx0208:-*-*-medium-r-*--18-*-jisx0208*-0,\ korean-ksc5601:-*-fixed-medium-r-*--18-*-ksc5601*-* Emacs*Fontset-4:\ -*-fixed-medium-r-*--14-*-*-*-*-*-fontset-14,\ latin-iso8859-1:-*-fixed-medium-r-*--14-*-iso8859-1,\ latin-iso8859-2:-*-fixed-medium-r-*--14-*-iso8859-2,\ latin-iso8859-3:-*-fixed-medium-r-*--14-*-iso8859-3,\ latin-iso8859-4:-*-fixed-medium-r-*--14-*-iso8859-4,\ cyrillic-iso8859-5:-*-fixed-medium-r-*--14-*-iso8859-5,\ greek-iso8859-7:-*-fixed-medium-r-*--14-*-iso8859-7,\ hebrew-iso8859-8:-*-fixed-medium-r-*--14-*-iso8859-8,\ latin-iso8859-9:-*-fixed-medium-r-*--14-*-iso8859-9,\ latin-iso8859-15:-*-fixed-medium-r-*--14-*-iso8859-15,\ katakana-jisx0201:-*-fixed-medium-r-*--14-*-jisx0201.1976-0,\ japanese-jisx0208:-*-fixed-medium-r-*--14-*-jisx0208*-0,\ korean-ksc5601:-*-fixed-medium-r-*--14-*-ksc5601*-*,\ thai-tis620:-*-fixed-medium-r-*--14-*-tis620.2529-1,\ lao:-*-fixed-medium-r-*--14-*-mulelao-1 Emacs*Fontset-5:\ -*-fixed-medium-r-*--12-*-*-*-*-*-fontset-12,\ latin-iso8859-1:-*-fixed-medium-r-*--12-*-iso8859-1,\ latin-iso8859-2:-*-fixed-medium-r-*--12-*-iso8859-2,\ latin-iso8859-3:-*-fixed-medium-r-*--12-*-iso8859-3,\ latin-iso8859-4:-*-fixed-medium-r-*--12-*-iso8859-4,\ cyrillic-iso8859-5:-*-fixed-medium-r-*--12-*-iso8859-5,\ greek-iso8859-7:-*-fixed-medium-r-*--12-*-iso8859-7,\ latin-iso8859-15:-*-fixed-medium-r-*--12-*-iso8859-15,\ hebrew-iso8859-8:-*-fixed-medium-r-*--12-*-iso8859-8,\ latin-iso8859-9:-*-fixed-medium-r-*--12-*-iso8859-9,\ katakana-jisx0201:-*-fixed-medium-r-*--12-*-jisx0201.1976-0,\ japanese-jisx0208:-*-fixed-medium-r-*--12-*-jisx0208*-0,\ korean-ksc5601:-*-fixed-medium-r-*--12-*-ksc5601.1987-0 Emacs*Fontset-6:\ -*-fixed-medium-r-*--10-*-*-*-*-*-fontset-10,\ latin-iso8859-1:-*-fixed-medium-r-*--10-*-iso8859-1,\ latin-iso8859-2:-*-fixed-medium-r-*--10-*-iso8859-2,\ latin-iso8859-3:-*-fixed-medium-r-*--10-*-iso8859-3,\ latin-iso8859-4:-*-fixed-medium-r-*--10-*-iso8859-4,\ cyrillic-iso8859-5:-*-fixed-medium-r-*--10-*-iso8859-5,\ greek-iso8859-7:-*-fixed-medium-r-*--10-*-iso8859-7,\ hebrew-iso8859-8:-*-fixed-medium-r-*--10-*-iso8859-8,\ latin-iso8859-9:-*-fixed-medium-r-*--10-*-iso8859-9,\ latin-iso8859-15:-*-fixed-medium-r-*--10-*-iso8859-15,\ katakana-jisx0201:-*-fixed-medium-r-*--10-*-jisx0201.1976-0,\ japanese-jisx0208:-*-fixed-medium-r-*--10-*-jisx0208*-0,\ korean-ksc5601:-*-fixed-medium-r-*--10-*-ksc5601*-* Emacs*Fontset-7:\ -*-fixed-medium-r-*--8-*-*-*-*-*-fontset-8,\ latin-iso8859-1:-*-fixed-medium-r-*--8-*-iso8859-1,\ greek-iso8859-7:-*-fixed-medium-r-*--8-*-iso8859-7,\ latin-iso8859-15:-*-fixed-medium-r-*--8-*-iso8859-15 Emacs*Fontset-8:\ -*-fixed-medium-r-*--7-*-*-*-*-*-fontset-7,\ latin-iso8859-1:-*-fixed-medium-r-*--7-*-iso8859-1,\ greek-iso8859-7:-*-fixed-medium-r-*--7-*-iso8859-7,\ latin-iso8859-15:-*-fixed-medium-r-*--7-*-iso8859-15 ++++++ check-build.sh ++++++ #!/bin/bash case $BUILD_BASENAME in *ppc*) if test $(getconf PAGESIZE) -ne 65536; then echo "Error: wrong build host, PAGESIZE must be 65536" exit 1 fi ;; *ia64*) if test $(getconf PAGESIZE) -ne 65536; then echo "Error: wrong build host, PAGESIZE must be 65536" exit 1 fi ;; *) ;; esac exit 0 ++++++ dot.gnu-emacs ++++++ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File name: ` ~/.gnu-emacs ' ;;; --------------------- ;;; ;;; Note: This file is for GNU-Emacs only ... ;;; GNU-Emacs is incompatible to X-Emacs. Therefore your ;;; personal ~/.emacs should load this file if your runnning ;;; the good old GNU-emacs. ;;; ;;; If you need your own personal ~/.gnu-emacs ;;; please make a copy of this file ;;; an placein your changes and/or extension. ;;; ;;; For emacs commands have a look onto the ;;; `emacs-revcard' in the directory /usr/doc/packages/emacs/ ;;; ;;; Copyright 1993-2001 Werner Fink ;;; Copyright (c) 1996-2001 SuSE Gmbh Nuernberg, Germany. ;;; All rights reserved. ;;; ;;; Author: Werner Fink, <[email protected]> 1993-2001 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; No splash screen at all ;; ----------------------- (if (and (file-exists-p "~/.inhibit-splash-screen") (boundp 'inhibit-splash-screen)) (setq-default inhibit-splash-screen t)) ;; ;; Debuging only ;; ------------- ; (open-dribble-file "~/.dribble") ; (open-termscript "~/.termscript") ;; ;; Emacs makes backup by moving original files, to ;; avoid trouble with hardlinked files we may use: ;; ----------------------------------------------- ; (defconst backup-by-copying-when-linked t) ;; ;; Rmail: We will place all Mail's an Mail-folders into ~/Mail ;; ----------------------------------------------------------- (if (file-accessible-directory-p "~/Mail/") (setq rmail-secondary-file-directory "~/Mail/")) ;; ;; Prefix for mail-mode ;; --------------------- (setq mail-yank-prefix "> ") ; (setq mail-archive-file-name "~/Mail/.CarbonCopy") (setq mail-self-blind nil) (setq mail-default-headers nil) (setq mail-signature nil) ;; ;; Settings for message-mode ;; ------------------------- (setq message-from-style "angles") (if (null mail-host-address) (let ((tmph (getenv "HOSTNAME")) (tmpf (getenv "FROM_HEADER"))) (if (or (null tmph) (not (string-match "\\." tmph))) (setq tmph (system-name))) (if (not (string-match "\\." tmph)) (setq mail-host-address "our.domain.is.not.set") (string-match "\\." tmph) (setq mail-host-address (substring tmph (match-end 0)))) (if (stringp tmpf) (setq mail-host-address tmpf))) (setq tmpf nil tmph nil)) ;; ;; RMAILGEN: Folder im Rmail-Mode :-) ;; ---------------------------------- ;; ;; 1. I want to define a mail directory that isn't `~/' (if (file-accessible-directory-p "~/Mail/") (setq rmailgen-default-directory "~/Mail/")) ; must end in slash ;;; ;; 2. I want 78 column (add-hook 'mail-mode-hook (function (lambda () (setq fill-column 78)))) (if (file-exists-p "~/.abbrev_defs") (progn (read-abbrev-file "~/.abbrev_defs") (add-hook 'mail-setup-hook 'mail-abbrevs-setup))) ;;; ;; 3. By default, if mail-archive-file-name is non-nil then ;; archive file names will be generated automatically based on ;; the message to which a reply is being constructed. If I ;; wanted to turn this off I would put in a statement like (setq rmailgen-archive-file-name nil) ;;; ;; 4. By default, rmailgen.el downcases generated filenames ;; If I wanted uppercase I would put in a statement like here. (setq rmailgen-downcase "dummy") ;;; ;; 5. By default, rmailgen.el does not append `.gz' to generated ;; filenames. If I wanted such an extension I would put in a statement ;; like ;;(setq rmailgen-gzip-file-name t) ;;; ;; 6. By default, rmailgen.el will use generated FCC filenames even ;; if the file does not exist. If I wanted to FCC only if the file ;; already exists I would put in a statement like ;; (setq rmailgen-archive-only-if-exists t) ;;; ;; 7. Add my own personal output list for specific friends ;; and special subjects. ;;; ;; First define rmail-output-file-alist, just in case this ;; is not already defined. That is, may be ;; ../lisp/rmailout.el has not been loaded yet. (if (not (boundp 'rmail-output-file-alist)) (defvar rmail-output-file-alist nil)) ;;; (setq rmail-output-file-alist (append (list ; ;; For my friends (some have strange account names). ; '("^From:[ \t]*.*jones.*" . "jmjones") ; '("^From:[ \t]*.*Joe[ \t]*Smith.*" . "joe") ; ; ;; Special subject lines. ; '("^Subject:[ \t]*.*crypt.*" . "crypt++") ; '("^Subject:[ \t]*.*rmailgen.*" . "genrmail") ; '("^Subject:[ \t]*.*dired-x.*" . "dired-x") ; '("^Subject:[ \t]*.*GNU Emacs 19 RMAIL Poll.*" . "rmail") ; ; ;; Add more entries here... ) ;;; ;; In case rmail-output-file-alist has been defined ;; already elsewhere. rmail-output-file-alist)) ;;; ;; 8. Load package [REQUIRED]. (if (file-exists-p "/usr/share/emacs/site-lisp/rmailgen.el") (require 'rmailgen)) ;; ;; Base text mode ;; ---------------------- (setq default-major-mode 'text-mode) (line-number-mode 1) (global-set-key "\e\?" 'goto-line) (column-number-mode 1) ;; ;; User can cutomize that: Just show e.g. DOS files with CR/NL ;; ---------------------- ; (setq-default inhibit-eol-conversion t) (setq-default require-final-newline "ask") ;; ;; Specials for X Window System ;; ------------------------- (if (not window-system) ;; ispell ;; ---------------------- ;; (A few changes on ispell) (setq ispell-highlight-face 'underline);) ;; ;; Some fonts ;; ----------------------- (if (> emacs-major-version 20) (require 'xfonts)) ;; ;; New in Emacs 21: tool bar menu, you may switch it of ;; ---------------------------------------------------- ; (if (fboundp 'tool-bar-mode) (tool-bar-mode 0)) ;; ;; mouse as arrow ;; -------------- (setq x-pointer-shape x-pointer-left-ptr) (if (x-display-color-p) (set-mouse-color "RoyalBlue") (set-mouse-color (cdr (assq 'mouse-color (frame-parameters))))) ;; ;; Automatically replacing of fore- and background. (if (not (x-display-color-p)) (progn (set-face-background 'region (cdr (assq 'foreground-color (frame-parameters )))) (set-face-foreground 'region (cdr (assq 'background-color (frame-parameters )))) ;; ispell ;; ---------------------- ;; (A few changes on ispell) (setq ispell-highlight-face 'underline))) ;; ;; Highlighting of special emacs modes ;; ----------------------------------- ;; We use font lock mode ;; Darken greyed strings in font lock mode (custom-declare-face 'font-lock-string-face '((((class grayscale) (background light)) (:foreground "gray37" :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :italic t)) (((class color) (background light)) (:foreground "gray37")) (((class color) (background dark)) (:foreground "LightGray")) (t (:italic t))) "Font Lock mode face used to highlight strings." :group 'font-lock-highlighting-faces) ;; Enable font lock support (require 'font-lock) (cond ((and (boundp 'jit-lock-mode) (symbol-value 'jit-lock-mode)) (setq font-lock-support-mode '((latex-mode . fast-lock-mode) (t . jit-lock-mode)))) ((and (boundp 'lazy-lock-mode) (symbol-value 'lazy-lock-mode)) (setq font-lock-support-mode '((latex-mode . fast-lock-mode) (t . lazy-lock-mode))))) (add-hook 'after-init-hook '(lambda () (global-font-lock-mode 1))) ;; ;; Some dialog ;; ------------------ (setq use-dialog-box t) ;; ;; less dialog ;; ----------- ;(menu-prompting nil) ;; ;; Set X synchrone ;; --------------- ;; Speed up (setq mouse-scroll-delay 0) (setq x-selection-timeout 0) ;; ;; We use a wrapper script for netscape ;; (if (file-executable-p "/usr/X11R6/bin/Netscape") (setq browse-url-netscape-program "/usr/X11R6/bin/Netscape")) ) ;; ;; emacsclient: automatical popup under X11 ;; ------------------------------------------ ;(defun server-make-window-visible () ; "Try to make this window even more visible." ;(if window-system ; (progn ; (let ((foo (selected-frame))) ; (sit-for 0) ; (make-frame-visible foo)) ; (accept-process-output)))) ;(add-hook 'server-switch-hook '(lambda () (server-make-window-visible))) ;(add-hook 'server-visit-hook '(lambda () (server-make-window-visible))) ;; Start it for popup ;(server-start) ;; ;; Emacs experts like this ;; ----------------------- (put 'eval-expression 'disabled nil) ;; ;; Working on parts of text ;; ------------------------ ;; NB: `C-x n n' is narrow-to-region ;; `C-x n p' is narrow-to-page ;; `C-x n w' is widen ;(put 'narrow-to-region 'disabled nil) ;(put 'narrow-to-page 'disabled nil) ;; ;; GNUS ;; ---- ;; Sorting (if (or (and (= emacs-major-version 19) (> emacs-minor-version 29)) (> emacs-major-version 19)) (add-hook 'gnus-select-group-hook '(lambda () (setq-default gnus-auto-select-first nil) (setq-default gnus-auto-center-summary nil) (setq gnus-thread-sort-functions '(gnus-thread-sort-by-number gnus-thread-sort-by-subject gnus-thread-sort-by-date gnus-thread-sort-by-score)))) (add-hook 'gnus-select-group-hook '(lambda () (setq-default gnus-auto-select-first nil) (setq-default gnus-auto-center-summary nil) ;; First of all, sort by date. (gnus-keysort-headers (function string-lessp) (function (lambda (a) (gnus-sortable-date (gnus-header-date a))))) ;; Then sort by subject string ignoring `Re:'. ;; If case-fold-search is non-nil, case of letters is ignored. (gnus-keysort-headers (function string-lessp) (function (lambda (a) (if case-fold-search (downcase (gnus-simplify-subject (gnus-header-subject a) t)) (gnus-simplify-subject (gnus-header-subject a) t))))) )) ) ;; highlighting, menus, and subscribing in GNUS (add-hook 'gnus-startup-hook '(lambda () (setq gnus-subscribe-newsgroup-method '(lambda (newsgroup) (gnus-subscribe-newsgroup newsgroup) (gnus-kill-newsgroup newsgroup))) (setq gnus-use-generic-from t) ;; highlighting and menu in GNUS (if (or (and (= emacs-major-version 19) (> emacs-minor-version 29)) (> emacs-major-version 19)) (progn (setq gnus-visual '(highlight menu)) (setq gnus-group-highlight '(;; News. ((and (> unread 100) (not mailp)) . gnus-summary-high-ticked-face) ((and (> unread 0) (not mailp)) . gnus-summary-high-read-face) ((and (= unread 0) (not mailp)) . gnus-summary-high-ancient-face) ((not mailp) . gnus-summary-normal-ancient-face) ;; Mail. ((and (= unread 0) (eq level 1)) . gnus-group-mail-1-empty-face) ((eq level 1) . gnus-group-mail-1-face) ((and (= unread 0) (eq level 2)) . gnus-group-mail-2-empty-face) ((eq level 2) . gnus-group-mail-2-face) ((and (= unread 0) (eq level 3)) . gnus-group-mail-3-empty-face) ((eq level 3) . gnus-group-mail-3-face) ((= unread 0) . gnus-group-mail-low-empty-face) (t . gnus-group-mail-low-face))) ))) ) ;; ;; Common to all C modes ;; --------------------- ;(add-hook 'c-mode-common-hook ; '(lambda () (c-set-style "linux") ; (c-set-offset 'case-label 4) ; (setq c-basic-offset 4))) ;; ;; Auto fill mode ;; -------------- (add-hook 'text-mode-hook 'turn-on-auto-fill) ;; ;; Fill-column ;; ----------- ;; Fill-column ist hier auf 78 Charakter gesetzt, nach Wunsch "andern! (setq-default fill-column 78) (add-hook 'TeX-mode-hook '(lambda () (setq fill-column 78))) ;; ;; AUC-TeX ;; ---------------------------- (if (boundp 'AUCTeX-version) (progn (let* ((version (split-string AUCTeX-version "\\.")) (major (string-to-number (car version))) (minor (string-to-number (car (cdr version))))) (if (or (> major 11) (and (eq major 11) (>= minor 86))) (custom-set-default 'TeX-master nil) (setq-default TeX-master nil))) ; ; Users private libaries ; (if (boundp 'AUCTeX-version) ; (progn ; (setq TeX-macro-private '("~/lib/tex-lib/")) ; (setq TeX-style-private "~/lib/site-lisp/auctex/style/") ; AUC-TeX-Macros ; (setq TeX-auto-private "~/lib/site-lisp/auctex/auto/"))) ; Autom. Auc-TeX-Macros (if (and window-system (featurep 'font-lock)) (progn (add-hook 'latex-mode-hook 'turn-on-font-lock) (if (boundp 'AUCTeX-version) (progn (add-hook 'LaTeX-mode-hook 'turn-on-font-lock) (add-hook 'LaTeX-mode-hook 'LaTeX-math-mode) (add-hook 'after-init-hook '(lambda () (load "auctex/font-latex" nil t))))))) )) ;; ;; Brace macros ;; ------------ (defun TeX-Inserting (sta stb stc) (if (= (preceding-char) sta ) (insert stb) (progn (insert stc) (backward-char 1)))) (defun TeX-schweif () (interactive "*") (TeX-Inserting ?\\ "{" "{}")) (defun TeX-rundekl () (interactive "*") (TeX-Inserting ?\\ "(" "()")) (defun TeX-eckigek () (interactive "*") (TeX-Inserting ?\\ "[" "[]")) (defun TeX-exponen () (interactive "*") (TeX-Inserting ?\\ "^" "^{}")) (defun TeX-subscri () (interactive "*") (TeX-Inserting ?\\ "_" "_{}")) (defun TeX-dollarm () (interactive "*") (TeX-Inserting ?\\ "$" "$$")) (defun TeX-REVbbox () (interactive "*") (TeX-Inserting ?\\ "bbox{" "\\bbox{}")) (add-hook 'LaTeX-mode-hook '(lambda () ;; Uncomment this for automatic bracket closing ;; Begin bracket closing ; (local-set-key "{" 'TeX-schweif) ; (local-set-key "(" 'TeX-rundekl) ; (local-set-key "[" 'TeX-eckigek) ; (local-set-key "^" 'TeX-exponen) ; (local-set-key "_" 'TeX-subscri) ; (local-set-key "$" 'TeX-dollarm) ; (local-set-key "\C-b" 'TeX-REVbbox) ;; ;; It's german: ;; Deutsche Tastatur im LaTeX-German-Style/Babel-Class ;; --------------------------------------------------- ;; Aktivierung mit `M-x german-mode' -> man dr"ucke ;; *nacheinander* <ComposeCharacter>, <">, <a> und staune! ;; ACHTUNG: Bei grossen Files sehr LANGSAM beim Abspeichern ;; das ist vom Prinzip her bedingt! Hier gibt's keinen Support! ; (require 'ger-keys) ;; End bracket closing ;; For ISO Latin standard: Macro out of `ger-keys' ;; ger-keys should be loaded ; (german-mode) ;; For german style usage: ; (modify-syntax-entry ?" "w") ; (local-set-key "\"" 'self-insert-command) ;; Deutsche Belegung amerikanischer Tastaturen: aus `ger-keys' ; (german-keyboard) )) ;; ;; Provide some usefull function keys ;; ---------------------------------- ;; Have a look on /usr/share/emacs/site-lisp/function-keys.el ;; Extensions or changes of the keymap ;; original definitions will found in loaddefs.el. ;;(global-set-key [escape] [?\e]) ; Escape ;; (global-set-key [M-left] 'backward-word) (global-set-key [M-right] 'forward-word) (global-set-key [M-up] 'beginning-of-line) (global-set-key [M-down] 'end-of-line) ;; ; (global-set-key [C-left] 'backward-char) ; (global-set-key [C-right] 'forward-char) ; (global-set-key [C-up] 'previous-line) ; (global-set-key [C-down] 'next-line) ;; ; (global-set-key [S-left] 'backward-char) ; (global-set-key [S-right] 'forward-char) ; (global-set-key [S-up] 'previous-line) ; (global-set-key [S-down] 'next-line) ;; (global-set-key [find] 'isearch-forward) ; Search (global-set-key [select] 'set-mark-command) ; Mark ;; (global-set-key [S-next] 'end-of-buffer) (global-set-key [S-prior] 'beginning-of-buffer) (global-set-key [S-find] 'find-file) (global-set-key [S-select] 'switch-to-buffer) (global-set-key [S-insert] 'insert-file) ;; (if (and (= emacs-major-version 19) (= emacs-minor-version 29)) (define-key key-translation-map [f1] nil)) ; 19.29+ (global-set-key [S-f1] 'find-file) (global-set-key [M-f1] 'find-file) (global-set-key [f1] 'help-for-help) ; `Help' (global-set-key [pause] 'toggle-read-only) ; `HoldScreen' ;; (if (global-key-binding [f2]) (progn (global-set-key [S-f2] 'split-window) (global-set-key [M-f2] 'split-window)) (global-set-key [f2] 'split-window)) (if (global-key-binding [f2]) (progn (global-set-key [S-f2] 'split-window) (global-set-key [M-f2] 'split-window)) (global-set-key [f2] 'split-window)) (if (global-key-binding [f3]) (progn (global-set-key [S-f3] 'isearch-forward) (global-set-key [M-f3] 'isearch-forward)) (global-set-key [f3] 'isearch-forward)) (if (global-key-binding [f4]) (progn (global-set-key [S-f4] 'query-replace-regexp) (global-set-key [M-f4] 'query-replace-regexp)) (global-set-key [f4] 'query-replace-regexp)) (if (global-key-binding [f5]) (progn (global-set-key [S-f5] 'save-buffer) (global-set-key [M-f5] 'save-buffer)) (global-set-key [f5] 'save-buffer)) (if (global-key-binding [f6]) (progn (global-set-key [S-f6] 'find-file) (global-set-key [M-f6] 'find-file)) (global-set-key [f6] 'find-file)) (if (global-key-binding [f7]) (progn (global-set-key [S-f7] 'buffer-menu) (global-set-key [M-f7] 'buffer-menu)) (global-set-key [f7] 'buffer-menu)) (if (global-key-binding [f8]) (progn (global-set-key [S-f8] 'repeat-complex-command) (global-set-key [M-f8] 'repeat-complex-command)) (global-set-key [f8] 'repeat-complex-command)) (if (global-key-binding [f9]) (progn (global-set-key [S-f9] 'execute-extended-command) (global-set-key [M-f9] 'execute-extended-command)) (global-set-key [f9] 'execute-extended-command)) (if (global-key-binding [f10]) (progn (global-set-key [S-f10] 'eval-expression) (global-set-key [M-f10] 'eval-expression)) (global-set-key [f10] 'eval-expression)) ;; ;;(global-set-key [f11] [?\e]) ; Escape (global-set-key [f11] esc-map) ; Escape ;; (global-set-key [f12] 'backward-delete-char-untabify) ; Backspace ;; ;; DEC keyboard: f13 up to f20 (global-set-key [f13] 'newline) ; Linefeed (global-set-key [linefeed] 'newline) ; Linefeed ;; (global-set-key [f14] 'switch-to-buffer) ;; ;; Emacs original key binding ;; ; (global-set-key [home] 'beginning-of-buffer) ; ; (global-set-key [end] 'end-of-buffer) ; ;; (global-set-key [help] 'info) ; Help (global-set-key [M-help] 'repeat-complex-command) ; Redo (global-set-key [menu] 'execute-extended-command) ; Do (global-set-key [M-menu] 'eval-expression) ; eval ;; (global-set-key [f17] 'beginning-of-buffer) (global-set-key [f18] 'end-of-buffer) (global-set-key [f19] 'save-buffer) (global-set-key [f20] 'find-file) ;; ;; Translate `C-h' to DEL. ; (keyboard-translate ?\C-h ?\C-?) ;; ;; Translate DEL to `C-h'. ; (keyboard-translate ?\C-? ?\C-h) ;;;;;;;;;; ;; the end ++++++ emacs-24.1-bnc628268.patch ++++++ --- lisp/obsolete/spell.el +++ lisp/obsolete/spell.el 2012-06-27 11:54:27.600009491 +0000 @@ -64,7 +64,7 @@ as its \"correct\" spelling; then the qu (with-no-warnings (spell-region (point-min) (point-max) "buffer"))) ;;;###autoload -(make-obsolete 'spell-buffer 'ispell-buffer "23.1") +(define-obsolete-function-alias 'spell-buffer 'ispell-buffer "23.1") ;;;###autoload (defun spell-word () @@ -83,7 +83,7 @@ and `query-replace' the entire buffer to (with-no-warnings (spell-region beg end (buffer-substring beg end))))) ;;;###autoload -(make-obsolete 'spell-word 'ispell-word "23.1") +(define-obsolete-function-alias 'spell-word 'ispell-word "23.1") ;;;###autoload (defun spell-region (start end &optional description) @@ -141,7 +141,7 @@ for example, \"word\"." (query-replace-regexp (concat "\\b" (regexp-quote word) "\\b") newword))))))) ;;;###autoload -(make-obsolete 'spell-region 'ispell-region "23.1") +(define-obsolete-function-alias 'spell-region 'ispell-region "23.1") ;;;###autoload (defun spell-string (string) ++++++ emacs-24.1-ps-mule.patch ++++++ --- lisp/ps-mule.el +++ lisp/ps-mule.el 2009-08-11 12:41:44.000000000 +0000 @@ -182,6 +182,8 @@ See also the variable `ps-font-info-data (defconst ps-mule-font-info-database-latin '((iso-8859-1 + (normal nil nil)) + (iso-8859-15 (normal nil nil))) "Sample setting of `ps-mule-font-info-database' to use latin fonts.") --- lisp/textmodes/ispell.el +++ lisp/textmodes/ispell.el 2012-06-26 16:37:56.424010429 +0000 @@ -1339,10 +1339,18 @@ Protects against bogus binding of `enabl nil ;; in pipe mode. Disable extended-char-mode (nth 6 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist) (assoc ispell-current-dictionary ispell-dictionary-alist))))) +;; +;; Most languages in ISO-8859-15 for EURO symbols uses ISO-8859-1 chars +;(defun ispell-get-coding-system () +; (nth 7 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist) +; (assoc ispell-current-dictionary ispell-dictionary-alist)))) (defun ispell-get-coding-system () - (nth 7 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist) - (assoc ispell-current-dictionary ispell-dictionary-alist)))) - + (let ((sys (nth 7 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist) + (assoc ispell-current-dictionary ispell-dictionary-alist))))) + (if (and (boundp 'buffer-file-coding-system) + (eq buffer-file-coding-system 'iso-latin-9) + (eq sys 'iso-latin-1)) + 'iso-latin-9 sys))) (defvar ispell-pdict-modified-p nil "Non-nil means personal dictionary has modifications to be saved.") ++++++ emacs-24.3-asian-print.patch ++++++ --- lisp/ps-mule.el +++ lisp/ps-mule.el 2009-08-10 16:18:24.585901695 +0000 @@ -239,7 +239,7 @@ Currently, data for Japanese and Korean (japanese-jisx0208 (normal bdf "jiskan24.bdf")) (korean-ksc5601 - (normal bdf "hanglm24.bdf")) + (normal bdf "gulim24.bdf")) (japanese-jisx0212 (normal bdf ("jksp40.bdf" "jisksp40.bdf"))) (chinese-cns11643-1 ++++++ emacs-24.3-decl.dif ++++++ --- src/frame.c +++ src/frame.c 2013-05-21 15:13:32.849939500 +0000 @@ -22,6 +22,9 @@ along with GNU Emacs. If not, see <http #define FRAME_INLINE EXTERN_INLINE #include <stdio.h> +#ifdef STDC_HEADERS +#include <stdlib.h> +#endif #include <errno.h> #include <limits.h> ++++++ emacs-24.3-flyspell.patch ++++++ --- lisp/textmodes/flyspell.el +++ lisp/textmodes/flyspell.el 2009-08-11 12:54:35.749901460 +0000 @@ -284,6 +284,12 @@ If this variable is nil, all regions are "The key binding for flyspell auto correction." :group 'flyspell) +(defvar flyspell-signature-separator + (if (boundp 'message-signature-separator) + message-signature-separator + "^-- $") + "*String used to recognize .signatures.") + ;;*---------------------------------------------------------------------*/ ;;* Mode specific options */ ;;* ------------------------------------------------------------- */ @@ -307,7 +313,6 @@ property of the major mode name.") ;;*--- mail mode -------------------------------------------------------*/ (put 'mail-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify) (put 'message-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify) -(defvar message-signature-separator) (defun mail-mode-flyspell-verify () "Function used for `flyspell-generic-check-word-predicate' in Mail mode." (let ((header-end (save-excursion @@ -319,11 +324,11 @@ property of the major mode name.") nil t) (point))) (signature-begin - (if (not (boundp 'message-signature-separator)) + (if (not (boundp 'flyspell-signature-separator)) (point-max) (save-excursion (goto-char (point-max)) - (re-search-backward message-signature-separator nil t) + (re-search-backward flyspell-signature-separator nil t) (point))))) (cond ((< (point) header-end) (and (save-excursion (beginning-of-line) ++++++ emacs-24.3-giflib5.patch ++++++ --- src/image.c +++ src/image.c 2013-05-21 15:49:41.945819346 +0000 @@ -7192,7 +7192,11 @@ gif_load (struct frame *f, struct image } /* Open the GIF file. */ +#if GIFLIB_MAJOR < 5 gif = fn_DGifOpenFileName (SSDATA (file)); +#else + gif = fn_DGifOpenFileName (SSDATA (file), NULL); +#endif if (gif == NULL) { image_error ("Cannot open `%s'", file, Qnil); @@ -7213,7 +7217,11 @@ gif_load (struct frame *f, struct image memsrc.len = SBYTES (specified_data); memsrc.index = 0; +#if GIFLIB_MAJOR < 5 gif = fn_DGifOpen (&memsrc, gif_read_from_memory); +#else + gif = fn_DGifOpen (&memsrc, gif_read_from_memory, NULL); +#endif if (!gif) { image_error ("Cannot open memory source `%s'", img->spec, Qnil); ++++++ emacs-24.3-glibc.patch ++++++ --- configure.ac +++ configure.ac 2013-05-21 14:16:11.589439382 +0000 @@ -1692,6 +1692,7 @@ system_malloc=no case "$opsys" in ## darwin ld insists on the use of malloc routines in the System framework. darwin|sol2-10) system_malloc=yes ;; + gnu-linux) system_malloc=yes ;; esac if test "${system_malloc}" = "yes"; then @@ -1732,6 +1733,7 @@ fi use_mmap_for_buffers=no case "$opsys" in cygwin|freebsd|irix6-5) use_mmap_for_buffers=yes ;; + gnu-linux) use_mmap_for_buffers=yes ;; esac AC_FUNC_MMAP --- configure +++ configure 2013-05-21 13:59:14.357439665 +0000 @@ -9828,6 +9828,7 @@ system_malloc=no case "$opsys" in ## darwin ld insists on the use of malloc routines in the System framework. darwin|sol2-10) system_malloc=yes ;; + gnu-linux) system_malloc=yes ;; esac if test "${system_malloc}" = "yes"; then @@ -9871,6 +9872,7 @@ fi use_mmap_for_buffers=no case "$opsys" in cygwin|freebsd|irix6-5) use_mmap_for_buffers=yes ;; + gnu-linux) use_mmap_for_buffers=yes ;; esac --- lib-src/Makefile.in +++ lib-src/Makefile.in 2013-05-21 14:51:33.357939393 +0000 @@ -296,14 +296,16 @@ test-distrib${EXEEXT}: ${srcdir}/test-di ../lib/libgnu.a: $(config_h) cd ../lib && $(MAKE) libgnu.a +REGEXPOBJ = +#REGEXPOBJ = regex.o regex.o: $(srcdir)/../src/regex.c $(srcdir)/../src/regex.h $(config_h) ${CC} -c ${CPP_CFLAGS} -DCONFIG_BROKETS -DINHIBIT_STRING_HEADER \ ${srcdir}/../src/regex.c -etags${EXEEXT}: ${srcdir}/etags.c regex.o $(config_h) +etags${EXEEXT}: ${srcdir}/etags.c $(REGEXPOBJ) $(config_h) $(CC) ${ALL_CFLAGS} -DEMACS_NAME="\"GNU Emacs\"" \ -DVERSION="\"${version}\"" ${srcdir}/etags.c \ - regex.o $(LOADLIBES) -o etags + $(REGEXPOBJ) $(LOADLIBES) -o etags ebrowse${EXEEXT}: ${srcdir}/ebrowse.c ${srcdir}/../lib/min-max.h $(config_h) $(CC) ${ALL_CFLAGS} -DVERSION="\"${version}\"" \ @@ -314,7 +316,7 @@ ebrowse${EXEEXT}: ${srcdir}/ebrowse.c ${ ctags${EXEEXT}: etags${EXEEXT} $(CC) ${ALL_CFLAGS} -DCTAGS -DEMACS_NAME="\"GNU Emacs\"" \ -DVERSION="\"${version}\"" ${srcdir}/etags.c \ - regex.o $(LOADLIBES) -o ctags + $(REGEXPOBJ) $(LOADLIBES) -o ctags profile${EXEEXT}: ${srcdir}/profile.c $(config_h) $(CC) ${ALL_CFLAGS} ${srcdir}/profile.c \ --- lib-src/etags.c +++ lib-src/etags.c 2013-05-21 14:52:23.881939078 +0000 @@ -91,7 +91,7 @@ char pot_etags_version[] = "@(#) pot rev # define NDEBUG /* disable assert */ #endif -#include <config.h> +#include <../src/config.h> #ifndef _GNU_SOURCE # define _GNU_SOURCE 1 /* enables some compiler checks on GNU */ ++++++ emacs-24.3-iconic.patch ++++++ --- lisp/startup.el +++ lisp/startup.el 2008-03-31 10:23:04.503065574 +0000 @@ -2171,6 +2171,9 @@ A fancy display is used on graphic displ ((equal argi "-no-splash") (setq inhibit-startup-screen t)) + ((equal argi "-iconic") + (setq inhibit-startup-message t)) + ((member argi '("-f" ; what the manual claims "-funcall" "-e")) ; what the source used to say ++++++ emacs-24.3-nntp-typhoon-fix.patch ++++++ --- lisp/gnus/nntp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -1282,7 +1282,7 @@ If SEND-IF-FORCE, only send authinfo to "nntpd" pbuffer nntp-address nntp-port-number :type (cadr (assoc nntp-open-connection-function map)) :end-of-command "^\\([2345]\\|[.]\\).*\n" - :capability-command "CAPABILITIES\r\n" + :capability-command "HELP\r\n" :success "^3" :starttls-function (lambda (capabilities) ++++++ emacs-24.3-nonvoid.patch ++++++ --- src/xmenu.c +++ src/xmenu.c 2013-05-21 15:21:41.301439390 +0000 @@ -310,8 +310,8 @@ for instance using the window manager, t #else { Lisp_Object title; - const char *error_name; - Lisp_Object selection; + const char *error_name = NULL; + Lisp_Object selection = Qnil; ptrdiff_t specpdl_count = SPECPDL_INDEX (); /* Decode the dialog items from what was specified. */ ++++++ emacs-24.3-ps-bdf.patch ++++++ --- lisp/ldefs-boot.el +++ lisp/ldefs-boot.el 2012-06-26 16:26:01.900010474 +0000 @@ -21658,9 +21658,9 @@ With prefix argument ARG, restart the Pr ;;;;;; 18685 911514 0)) ;;; Generated autoloads from ps-bdf.el -(defvar bdf-directory-list (if (memq system-type '(ms-dos windows-nt)) (list (expand-file-name "fonts/bdf" installation-directory)) '("/usr/local/share/emacs/fonts/bdf")) "\ +(defvar bdf-directory-list (if (memq system-type '(ms-dos windows-nt)) (list (expand-file-name "fonts/bdf" installation-directory)) '("/usr/share/fonts/bdf")) "\ List of directories to search for `BDF' font files. -The default value is '(\"/usr/local/share/emacs/fonts/bdf\").") +The default value is '(\"/usr/share/fonts/bdf\").") (custom-autoload 'bdf-directory-list "ps-bdf" t) --- lisp/ps-bdf.el +++ lisp/ps-bdf.el 2009-08-10 16:21:47.000000000 +0000 @@ -42,9 +42,9 @@ (defcustom bdf-directory-list (if (memq system-type '(ms-dos windows-nt)) (list (expand-file-name "fonts/bdf" installation-directory)) - '("/usr/local/share/emacs/fonts/bdf")) + '("/usr/share/fonts/bdf")) "List of directories to search for `BDF' font files. -The default value is '(\"/usr/local/share/emacs/fonts/bdf\")." +The default value is '(\"/usr/share/fonts/bdf\")." :type '(repeat :tag "BDF font directory list" (directory :tag "BDF font directory")) :group 'ps-print-miscellany) ++++++ emacs-24.3-x11r7.patch ++++++ --- src/xrdb.c +++ src/xrdb.c 2007-05-15 16:01:41.439517668 +0000 @@ -39,6 +39,9 @@ along with GNU Emacs. If not, see <http #include <X11/X.h> #include <X11/Xutil.h> #include <X11/Xresource.h> +#ifdef USE_X_TOOLKIT +#include <X11/Intrinsic.h> +#endif #ifdef HAVE_PWD_H #include <pwd.h> #endif @@ -539,6 +542,15 @@ x_load_resources (Display *display, cons XrmPutLineResource (&rdb, line); #endif /* not USE_MOTIF */ +#ifdef USE_X_TOOLKIT + if ((db = XtScreenDatabase(DefaultScreenOfDisplay (display)))) + { + XrmCombineDatabase (rdb, &db, FALSE); + rdb = db; + } + else + { +#endif /* not USE_X_TOOLKIT */ user_database = get_user_db (display); @@ -580,6 +592,10 @@ x_load_resources (Display *display, cons XrmMergeDatabases (db, &rdb); } +#ifdef USE_X_TOOLKIT + } /* (db != XtScreenDatabase()) */ +#endif /* not USE_X_TOOLKIT */ + return rdb; } ++++++ emacs-24.3-xevent.patch ++++++ --- src/xmenu.c +++ src/xmenu.c 2013-05-21 15:42:44.917439139 +0000 @@ -953,7 +953,7 @@ set_frame_menubar (FRAME_PTR f, bool fir { deep_p = 1; f->output_data.x->saved_menu_event = xmalloc (sizeof (XEvent)); - f->output_data.x->saved_menu_event->type = 0; + memset(f->output_data.x->saved_menu_event,0,sizeof(XEvent)); } #ifdef USE_GTK --- src/xselect.c +++ src/xselect.c 2012-07-03 11:08:10.732010284 +0000 @@ -2350,7 +2350,14 @@ x_fill_property_data (Display *dpy, Lisp Lisp_Object o = XCAR (iter); if (INTEGERP (o) || FLOATP (o) || CONSP (o)) - val = cons_to_signed (o, LONG_MIN, LONG_MAX); + { + if (INTEGERP (o) && (XFASTINT (o) > LONG_MAX || XFASTINT (o) < LONG_MIN)) + val = (long) XFASTINT (o); + else if (FLOATP (o) && (XFLOAT_DATA (o) > LONG_MAX || XFLOAT_DATA (o) < LONG_MIN)) + val = (long) XFLOAT_DATA (o); + else + val = cons_to_signed (o, LONG_MIN, LONG_MAX); + } else if (STRINGP (o)) { block_input (); --- src/xterm.c +++ src/xterm.c 2013-05-21 15:44:18.617938988 +0000 @@ -5764,9 +5764,11 @@ static struct x_display_info *next_noop_ #define SET_SAVED_BUTTON_EVENT \ do \ { \ - if (f->output_data.x->saved_menu_event == 0) \ + if (f->output_data.x->saved_menu_event == 0) { \ f->output_data.x->saved_menu_event = \ xmalloc (sizeof (XEvent)); \ + memset(f->output_data.x->saved_menu_event,0,sizeof(XEvent)); \ + } \ *f->output_data.x->saved_menu_event = event; \ inev.ie.kind = MENU_BAR_ACTIVATE_EVENT; \ XSETFRAME (inev.ie.frame_or_window, f); \ ++++++ emacs-24.3-xim.patch ++++++ --- src/xfns.c +++ src/xfns.c 2007-05-15 16:37:13.282161551 +0000 @@ -1845,8 +1845,8 @@ static XIMStyle best_xim_style (XIMStyle static XIMStyle supported_xim_styles[] = { - XIMPreeditPosition | XIMStatusArea, XIMPreeditPosition | XIMStatusNothing, + XIMPreeditPosition | XIMStatusArea, XIMPreeditPosition | XIMStatusNone, XIMPreeditNothing | XIMStatusArea, XIMPreeditNothing | XIMStatusNothing, ++++++ emacs-24.3.dif ++++++ ++++ 773 lines (skipped) ++++++ emacs-rpmlintrc ++++++ addFilter(".*no-documentation.*") addFilter(".*zero-length.*/var/games/emacs/.*-scores.*") addFilter(".*hidden-file-or-dir.*/etc/skel/.gnu-emacs.*") addFilter(".*file-in-usr-marked-as-conffile.*/usr/share/emacs/site-lisp/site-start.el.*") addFilter(".*non-etc-or-var-file-marked-as-conffile.*/usr/share/emacs/site-lisp/site-start.el.*") addFilter(".*no-manual-page-for-binary.*emacs-*") addFilter(".*name-repeated-in-summar.*") addFilter(".*idden-file-or-dir.*\.dir-locals.el.*") ++++++ emacs.sh ++++++ #!/bin/bash # # Launch a GNU Emacs # # The environment variable EMACS_TOOLKIT is used to determine # the prefered GUI. Possible values/types of EMACS_TOOLKIT are # # nox -- for pure console based GNU Emacs # gtk -- for full GTK2/3 based GNU Emacs # x11 -- for full LUCID based GNU Emacs (used Xaw3d) # # Should work but remember history # bnc#345669 -- Emacs doesn't un-maximize in KDE/KWin # bnc#342385 -- Emacs doesn't keep the iconic information in KDE/KWin # # if test -z "$EMACS_TOOLKIT" ; then # EMACS_TOOLKIT=gtk # KDE_FULL_SESSION=$(xprop -root KDE_FULL_SESSION 2>/dev/null) # case "$KDE_FULL_SESSION" in # *true*) EMACS_TOOLKIT=x11 # esac # fi # : ${EMACS_TOOLKIT:=gtk} if test "$EMACS_TOOLKIT" = gtk; then # Currently (2013/05/24) the parser of the GNOME libs # are broken that is it is not independent from locale LC_NUMERIC=POSIX export LC_NUMERIC fi arg0=$0 argv=("$@") if test -e ${arg0}-${EMACS_TOOLKIT} then set -- ${arg0}-${EMACS_TOOLKIT} elif test -e ${arg0}-x11 then set -- ${arg0}-x11 elif test -e ${arg0}-nox then set -- ${arg0}-nox else echo "no emacs binary found" exit 1 fi dbusdaemon=$(type -p dbus-daemon 2>/dev/null) dbuslaunch=$(type -p dbus-launch 2>/dev/null) dbusession=$(type -p dbus-run-session 2>/dev/null) # # Now check for valid dbus, e.g. after su/sudo/slogin # if test -n "$dbusdaemon" ; then # # Currently (2013/05/24) the option --autolaunch for scanning for an # already existing session is an internal option of dbus-launch(1). # if test -s /var/lib/dbus/machine-id ; then read -t1 mid < /var/lib/dbus/machine-id elif test -s /etc/machine-id ; then read -t1 mid < /etc/machine-id else mid= fi if test -n "$DBUS_SESSION_BUS_ADDRESS" ; then # Determine dbus identifier for guid in ${DBUS_SESSION_BUS_ADDRESS//,/ } ; do case "$guid" in guid=*) break esac done # Check if dbus-daemon is active dpid= for suid in "${HOME}/.dbus/session-bus/"${mid}* ; do test -e "$suid" || break grep -q $guid "$suid" || continue dpid=$(grep -E '^DBUS_SESSION_BUS_PID=[[:digit:]]+' "$suid") test /proc/${dpid#*=}/exe -ef $dbusdaemon && continue unset DBUS_SESSION_BUS_ADDRESS break done test -n "$dpid" || unset DBUS_SESSION_BUS_ADDRESS fi # Find a valid dbus-daemon if active if test -z "$DBUS_SESSION_BUS_ADDRESS" ; then for suid in "${HOME}/.dbus/session-bus/"${mid}* ; do test -e "$suid" || break dpid=$(grep -E '^DBUS_SESSION_BUS_PID=[[:digit:]]+' "$suid") test /proc/${dpid#*=}/exe -ef $dbusdaemon || continue dadd=$(grep -E '^DBUS_SESSION_BUS_ADDRESS=' "$suid") DBUS_SESSION_BUS_ADDRESS=${dadd#*=} export DBUS_SESSION_BUS_ADDRESS done fi unset mid guid suid dadd # Oops ... no dbus-daemon then launch a new session if test -z "$DBUS_SESSION_BUS_ADDRESS" ; then if test -z "$dbusession" -a -n "$dbuslaunch" ; then set -- $dbuslaunch --sh-syntax --close-stderr --exit-with-session ${1+"$@"} arg0=$dbuslaunch elif test -n "$dbusession" ; then set -- $dbusession -- ${1+"$@"} arg0=$dbusession else arg0=emacs fi fi unset dbuslaunch dbusdaemon fi exec -a $arg0 ${1+"$@"} "${argv[@]}" ++++++ emacs.test ++++++ Testform f�r emacs =================== 22.05.2007: Version 22.0.99 Maintainer: werner Vorraussetzungen: ================= X sollte installiert sein. Starten: ======== emacs emacs -nw emacs -q --no-site emacs -nw -q --no-site als Editor von mailx/elm/pine ... Testen mit verschiedensten File-Typen (*.tex, man-pages. *.html, info-mode, gnus, rmail, ...) Ergebnisse: =========== H�ngt von der gew�hlten mode ab. -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
