Skip to content

Instantly share code, notes, and snippets.

@jyukutyo
Created November 16, 2011 01:54
Show Gist options
  • Select an option

  • Save jyukutyo/1369015 to your computer and use it in GitHub Desktop.

Select an option

Save jyukutyo/1369015 to your computer and use it in GitHub Desktop.
$ diff elscreen-1.4.6.el elscreen-1.4.6-5.el.https://launchpad.net/ubuntu/+source/elscreen/1.4.6-5
35a36,40
> (defun elscreen-booleanp (value)
> "Return t if VALUE is boolean.
> This implements GNU Emacs 22.1's `booleanp' function in earlier Emacs.
> This function may be removed when Emacs 21 is no longer supported."
> (or (equal value t) (equal value nil)))
136c141
< (when (or (booleanp value)
---
> (when (or (elscreen-booleanp value)
1693a1699,1700
> (if (string-match "^\\(19\\|2[0-2]\\)" emacs-version) ; emacs22 or prior-to
> (progn
1710a1718,1738
> ; else
> (progn
> (defun elscreen-e23-command-line ()
> (when (string-match "\\`-" argi)
> (error "Unknown option `%s'" argi))
> (setq file-count (1+ file-count))
> (setq inhibit-startup-buffer-menu t)
> (let* ((file
> (expand-file-name
> (command-line-normalize-file-name orig-argi)
> cl1-dir)))
> (elscreen-command-line-find-file file file-count cl1-line cl1-column))
> (setq cl1-line 0)
> (setq cl1-column 0)
> t) ; defun
>
> (add-hook 'after-init-hook (lambda ()
> (add-to-list 'command-line-functions
> 'elscreen-e23-command-line t))))
> ); endif
> )
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment